Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Updating a record
Message
De
15/08/2002 15:03:02
Henry Ravichander
RC Management Systems Inc.
Saskatchewan, Canada
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00689782
Message ID:
00690107
Vues:
20
>So, what's your problem?
>
>>Hi All:
>>
>>I have the following code in the click event of the Save Button.
>>
>>
IF mcheck = 0
>> thisform.command2.Enabled = .t.
>> mlcl_doc_nm = FoundNumber.doc_number
>> if this.caption = "Save"
>> update memos set Memos.FromDoc = mRefDocDispName,;
>> Memos.FromDocNum = mLCL_DOC_NM,;
>> Memos.ToWhom = mToAddress,;
>> Memos.NameOfPat = mRefPatDispName,;
>> Memos.HealthNum = mHealthCard,;
>> Memos.Contents = mNOTES;
>> WHERE Memos.MemoRefNum = EditThisReferralLetter.MemoRefNum
>> MESSAGEBOX('Changes have been saved.', 0+64+256,'Information')
>> ELSE
>> messagebox ('Some of the fields on this form are empty. Please complete the form.',0+64+256,'Information')
>> ENDIF
>>ENDIF

Hi Jayesh:

Good question. Before I could state the problem, I hit the wrong key - and away went my post. This has been resolved. The ELSE was misplaced.

Thank you for your response though:)
- Ravi

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

Click here to load this message in the networking platform