If Statement is true but the code in it is NOT running, please help!

[HVACMAN24]

I have a form that people often forget to select their name and area before submitting. So I'm trying to add code to just pop up a window saying you forgot to enter your info and exit the sub before submitting. But for some reason the code in my if statement is NOT running. I ran the break mode to confirm that the variable I'm using for the condition was right and it is, but it just skips the code inside.

I've attached a copy of the database I'm working with. The code I'm trying to add is in the Form_5S Score Card_Frm, and in the btnSubmit_Click sub. It's the very first piece of code in the sub.

Thanks

 

[boblarson]

Well, a quick glance shows you have this line:

    If Me.AreaName.Value = Null Then

and that will NEVER evaluate to true. Because you can't test for null that way. You can SET a control to Null that way but you can't check to see if it is Null that way.

The correct way would be:

    If IsNull(Me.AreaName) Then

But even that will miss empty strings, so I go with this test:

   If Len(Me.AreaName & vbNullString) = 0 Then

 

[HVACMAN24]

Thanks.

Out of curiousity can you explain why my original why doesnt work a little more? I made another database that I basically had the same kind of code for and it worked. It looked like this:

Code:
If cboPSuct.Value = Null Then
intPSuct = 0
Else
intPSuct = cboPSuct.Value
End If

 

[jdraw]

Here's a link to Allen Browne's description of Null and some issues.
http://allenbrowne.com/casu-12.html

see Error #5

 

[boblarson]

Thanks.

Out of curiousity can you explain why my original why doesnt work a little more? I made another database that I basically had the same kind of code for and it worked. It looked like this:

Code:
If cboPSuct.Value = Null Then
intPSuct = 0
Else
intPSuct = cboPSuct.Value
End If

I already stated it. But you cannot check for null by seeing if something is equal to null because something isn't EQUAL to null. It is either null or it has a value which is equal to something.