Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to keep a program error message from showing?
Message
De
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:
00702506
Vues:
16
>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.
- Ravi

True greatness consists in being great in little things.
- Charles Simmons
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform