* Check if any of 3 memo fields has data in it mUpdatePatSummary = NOT empty(mPersonalData) ; OR NOT empty(mPastHist) ; OR NOT empty(mAllergies) * Disallow data entry if there's data in any of memo's thisform.cmdEnterData.Enabled = NOT mUpdatePatSummary>Hi all:
mPersonalData = CurPatientSummary.PersonData > mPastHist = CurPatientSummary.PastHist > mAllergies = CurPatientSummary.Allergies > IF !empty(mPersonalData) > mUpdatePatSummary = .t. > thisform.cmdEnterData.Enabled = .f. > ELSE > thisform.cmdEnterData.Enabled = .t. > ENDIF > > IF !empty(mPastHist) > mUpdatePatSummary = .t. > thisform.cmdEnterData.Enabled = .f. > ELSE > thisform.cmdEnterData.Enabled = .t. > ENDIF > > IF !empty(mAllergies) > mUpdatePatSummary = .t. > thisform.cmdEnterData.Enabled = .f. > ELSE > thisform.cmdEnterData.Enabled = .t. > ENDIF>