Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to keep a program error message from showing?
Message
 
 
À
19/09/2002 17:30:40
Henry Ravichander
RC Management Systems Inc.
Saskatchewan, Canada
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00702490
Message ID:
00702512
Vues:
24
This message has been marked as the solution to the initial question of the thread.
Hi Henry,
I use SEEK function because it simplifies code. Try
                IF NOT seek(alltrim(mpatlastname), ALIAS(),  "last_name")
			do form pat_add    &&do form notfindapppatient
			thisform.release()
		ENDIF
>>Correct your SEEK to use existing index tag.
>>
>Hi Sergey:
>
>Thank you for your response. I am lost here now.
>
>The users types in a few characters of the name or telephone number they want to locate and then the user clicks the select button. The the Find form shows up - it has a grid with the following code in the GotFocus event of the Find form.
>
>
thisform.refresh
>do case
>	case .not. isblank(mpatlastname)
>		seek alltrim(mpatlastname) order tag last_name of patient.cdx
>		if not found() and eof()
>			do form pat_add    &&do form notfindapppatient
>			thisform.release()
>		endif
>	case mservpatphone <> 0
>		seek (mservpatphone) order tag phone of patient.cdx
>		if not found() and eof()
>			do form pat_add    &&do form notfindapppatient
>			thisform.release()
>		endif
>	case mhlth_card <> 0
>		seek (mhlth_card) order tag health_num of patient.cdx
>		if not found() and eof()
>			do form pat_add    &&do form notfindapppatient
>			thisform.release()
>		endif
>ENDCASE
>
>Once found the user, clicks on the name and clicks Return on the Find form which then goes back to the calling form and populates the fields in the original form with data from the name searched for.
>
>Thanks again for your suggestions.
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform