Object Requred Error. Help!

[dmon000]

The first If line executes fine. The second, "ElseIf Me.AP1INITIALS Is Null Then" returns the error message.
Any ideas why?
Thanks!!

Private Sub cmdApprove_1_Click()
If Not Me.AP1Check Then
MsgBox "Please check the Operations checkbox", vbSystemModal: Me.AP1Check.SetFocus: GoTo Incomplete
ElseIf Me.AP1INITIALS Is Null Then
MsgBox "Please enter Your Initials", vbSystemModal: Me.AP1INITIALS.SetFocus: GoTo Incomplete
ElseIf Me.AP1DATE Is Null Then MsgBox "Please enter the date of Approval", vbSystemModal: Me.AP1DATE.SetFocus: GoTo Incomplete
End If
emailBody = "ECN " & txtECN_NO & " has been approved by the Operations Manager. Please review."
recipients = Split(GET_RECIP("TEST"))
SndMsg recipients, "ECN Approval Notification for ECN number" & Me.ECN_NO, emailBody, False
fNP100a_NP_sub.SetFocus
cmdApprove_1.Enabled = False

Incomplete:
End Sub

 

[ck1999]

try isnull(Me.AP1INITIALS)

ck1999

 

[HarleyQuinn]

What is Me.AP1INITIALS?

If it's a textbox try something like:

ElseIf Me.AP1INITIALS = ""

Hope this helps

HarleyQuinn
---------------------------------
The most overlooked advantage to owning a computer is that if they foul up there's no law against wacking them around a little. - Joe Martin

Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[JoeAtWork]

I recommend:

ElseIf Nz(Me.AP1INITIALS,"") = "" Then