Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to check for a field with no data?
Message
 
 
To
27/07/2003 15:16:16
Henry Ravichander
RC Management Systems Inc.
Saskatchewan, Canada
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00813927
Message ID:
00813928
Views:
6
This message has been marked as the solution to the initial question of the thread.
Henry,

The EMPTY() function is correct way to check if there's any data in a memo field but code may be simplified.
* 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:
>
>Here is the code I have been working with:
>
>
   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
>
>I have tried this with NOT ISNULL() adn NOT ISBLANK() functions, but does not seem to work, in that the first time a blank field is encountered it works, but the second time around for a new record, the behaviour is not as what is expected.
>
>All I am trying to do here is to see if anyone one of the 3 fields in a table has data. If it does, then, disbale the enter Data button to allow Edits only. If it does not have any data, then enable Enterdata only and disable Edit. There could be situation where only one of the fields is blank - in which case it should be treated as an edit.
>
>Where am I going wrong? Thanks in advance.
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform