mlcl_doc_nm = FoundNumber.doc_number mrefdocdispname = thisform.combo1.DisplayValue mrefpatdispname = thisform.combo2.DisplayValue mToAddress = thisform.edit2.value mNotes = thisform.edit1.value 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 ENDIFVariable mcheck will be greater than 0 if any one of the fields is empty. A couple of the fields are memo fields and is being check as follows:
If empty(mNotes) mcheck = mCheck + 1 endifProblem: While testing I deleted the contents of a memo field (mToAddress) and on click Save - did get mcheck = 1, however, the messagebox after the ELSE in the IF Statement above did not fire. Further, the Changes were not made to the table also. No other error messages.