MSGBox: Check empty date field, checkbox control

[Dököll]

Me again!

I have been battling this one for months. Wrote below to aid in getting certain subforms to hide once checkbox named Active is clicked. I am hoping to make the code work for Date fields that may be empty. I think i am going about it the wrong way:

Private Sub Active_BeforeUpdate(Cancel As Integer)
 
'On current event of main form
'Check if checkbox is selected
'then show or hide subform
    If Me.Active = True Then
        Me.InfoOnly.Visible = True
    Else
        Me.InfoOnly.Visible = False
    End If
End Sub
 
 

I tried:

Private Sub Active_BeforeUpdate(Cancel As Integer)
 
'On current event of main form
'Check if checkbox is selected and contact date field is empty
'then pop up an error message
 
    If Me.Active = True And Me.ContactDate Is Null Then
        MsgBox "Please add a contact date to continue..."    
    Else
        ...
    End If
End Sub
 
 

It is not working. In fact, now and then I get an error that something or other is missing, not always, but I do get that. For now, I get nada, code is mute, no errors though, just does not do anything;-)

Can you help? Thanks!

Dököll

[Dököll]

Dokoll,
This link should help you with screening the emails:

http://www.fabalou.com/Access/Modules/reading_email.asp

Neat, will give that a whirl...

Good afternoon:-)