Writing code for finding Null value field

[Raveen1609]

Dears. I have a simple problem, which I couldnt solve. I am a basic Access VBA user.



On click event of the Yes/No field checkedData

If my datefield1 is empty, I want message "ok", else
I want to check, either Datefield2 or Stringfiled must be filled. If both are empty, I must get message "Select" otherwise Message "Ok"
I try the following code, but it is not working. I am making some mistake not sure.

Kindly help.

Private Sub CheckedData_Click()
If Me.Datefiled1 <> "" Then
If ([Datefield2] & "") = "" And (Stringfield & "") = "" Then
MsgBox "Select"

Else

MsgBox "ok"
End If
End If
End Sub

[Micron]

"" is an empty string. It is not Null. You cannot compare anything to Null as it basically means "unknown". So Null cannot be = or < or > than anything and the reverse is true. You can test if something is null though.

If IsNull(Me.Datefiled1) Then <--- it is either true or it is false

[Raveen1609]

Thanks very much.

I have modified the code as below, the False part seems to be working, I am getting "Select" message, whereas the true part is not working. I am not getting "ok" message.


Private Sub CheckedData_Click()
If Me.Datefiled1 <> "" Then
If IsNull(Me.Me.Datefiled2) And IsNull(Me.Stringfield) Then


MsgBox "Select"

Else
MsgBox "ok"


End If
End If
End Sub

[orange]

If my datefield1 is empty, I want message "ok", else
I want to check, either Datefield2 or Stringfiled must be filled. If both are empty, I must get message "Select" otherwise Message "Ok"

You have "ok" and Ok" in your post. I modified Ok to Okay just to show the message false part of
If Datefield2 or Stringfield is not NULL

Try this

Private Sub CheckedData_Click()
If Me.Datefiled1 <> "" Then
        If IsNull(Me.Me.Datefiled2) And IsNull(Me.Stringfield) Then
          MsgBox "Select"  ' Datefiled2 and Stringfield are both NULL
        Else
          MsgBox "Okay"    ' Datefield2 or Stringfiled is not NULL
        End If
Else 
     MsgBox "ok"           ' Datefiled1 is Empty
End If
End Sub

Hope I've understood your issue/logic.

[Gicu]

Shoudn't the first check also look for Not Null instead of <>""?

Private Sub CheckedData_Click()
If Not IsNull(Me.Datefiled10 Then   ' <> "" Then
        If IsNull(Me.Me.Datefiled2) And IsNull(Me.Stringfield) Then
          MsgBox "Select"  ' Datefiled2 and Stringfield are both NULL
        Else
          MsgBox "Okay"    ' Datefield2 or Stringfiled is not NULL
        End If
Else 
     MsgBox "ok"           ' Datefiled1 is Empty
End If
End Sub

Cheers,

[Raveen1609]

Thanks very much. Now the code is working, but!!

I have few moe codes below the Else MsgBox "ok" for the first IF condition is false. I want the same codes to be executed, if the second IF condition is false also. So currently I am copying the same long codes in this location. Is it possible to do it with a single Else statement to execute, if the conditions are false in both If statements

In this case I copied the same codes again below the Else and MsgBox "Okay"

Shoudn't the first check also look for Not Null instead of <>"" yes accept, will change. Thanks