Help to build simple error message

[upplepop]

I have a form with several Tabs. On the last tab (page4) I want a routine that will give an error message if a Text Box on the first tab (page1) is null and set the focus on that text box. This is what I have so far, but it's not working:

Private Sub txtClosed_GotFocus()
If txtDOB.Text Is Null Then MsgBox("Need date of birth&quot As VbMsgBoxResult
End Sub

Can anyone help?

 

[Garridon]

I think you might be looking for something like:

If me.txtDOB Is Null Then
MsgBox "Need date of birth", vbExclamation

End If

End Sub
Linda Adams
Visit my web site for writing and Microsoft Word tips:

http://www.hackman-adams.com

Official web site for actor David Hedison:

http://www.david-hedison.com

 

[upplepop]

I tried using that, but I get a error:

Run-Time error '424': object required

Here's what I used:

Private Sub txtClosed_GotFocus()
If Me.txtDOB Is Null Then
MsgBox "Enter DOB", vbExclamation
End If
End Sub

What's wrong???

 

[SeeJane]

Hi,

I think your problem may be with the "Is Null" part of your routine. The syntax IsNull([what you're checking]) should work.

so yours would go like...

If IsNull(Me.txtDOB) Then
MsgBox "Enter DOB", vbExclamation
End If

Hope this helps out,
CJ

 

[upplepop]

thanks guys, it works beautifully!