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