Checking for Null

[Nylex]

Just trying to stop wrong entries from happening but the following wont work
____
Private Sub NewWorkOrder_Click()
On Error GoTo Err_NewWorkOrder_Click

Debug.Print PropDesc

'Exit this sub if No property selected
If PropDesc = "" Then Exit Sub

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Auto Orders"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec

Exit_NewWorkOrder_Click:
Exit Sub

Err_NewWorkOrder_Click:
MsgBox Err.DesCription
Resume Exit_NewWorkOrder_Click

End Sub
______
I can not match the PropDesc - I have tried "" and Null - the debug says it
is Null but I can not get it to exit the sub if no property selected

 

[UpRider]

I like to use the following to check text fields for null:

If len(PropDesc & vbnullstring) = 0 then exit sub

HTH, UpRider

 

[Allen Browne]

In VBA code, use the IsNull() function to test for null:
If IsNull(PropDesc) Then Exit Sub

More info:
Common errors with Null
at:
http://allenbrowne.com/casu-12.html
The 5th one covers your current example, but the others may be helpful too.