Invalid use of Null

[Wayne311]

I have a form where the user could invoke a procedure out of order and cause an error. The first field is null until the next field has any data entered at which point the first field is populated with a number. I am trying to stop the error and re-direct the user to the proper field. Any suggestions?

Thanks
Wayne

Private Sub Command10_Click()
If (Forms(Me.Parent.Name).Controls("RcptCRDistrict Subform1").Form!RcptNumber) = Null Then


MsgBox ("Enter Last Name") End If
Me.Text8 = DSum("Charge", "RcptCRDistrict", "[RcptNumber] = " & Forms(Me.Parent.Name).Controls("RcptCRDistrict Subform1").Form!RcptNumber)
Me.Refresh
End Sub

[pbaldy]

Nothing is ever equal to Null. Try

If IsNull(...) Then

You'll also want an Exit Sub in there to stop the code from trying the formula.

[SteveF]

I have a form where the user could invoke a procedure out of order and cause an error. The first field is null until the next field has any data entered at which point the first field is populated with a number. I am trying to stop the error and re-direct the user to the proper field. Any suggestions?

Thanks
Wayne

Private Sub Command10_Click()
If (Forms(Me.Parent.Name).Controls("RcptCRDistrict Subform1").Form!RcptNumber) = Null Then
MsgBox ("Enter Last Name") End If
Me.Text8 = DSum("Charge", "RcptCRDistrict", "[RcptNumber] = " & Forms(Me.Parent.Name).Controls("RcptCRDistrict Subform1").Form!RcptNumber)
Me.Refresh
End Sub

I think the problem is with the If statement -- the "= Null" is what is giving you the error.

Try this instead:
If IsNull(<NameOfControl>) = True Then

In the True section of the If/Then, you should also explicitly re-direct the user to the last name control, like this:
<LastNameControl>.SetFocus

and exit the Proc (Exit Sub) if nothing else should happen until the last name is entered.

So the section would look like this:
If IsNull(Forms(Me.Parent.Name).Controls("RcptCRDistr ict Subform1").Form!RcptNumber) = True Then
MsgBox ("Enter Last Name")
<LastNameControl>.SetFocus
Exit Sub
End If

Steve

[Wayne311]

Thank you for the replys. It works with the following changes (for those who care).

Thread Solved!
Wayne

Private Sub Command10_Click()
If IsNull(Forms(Me.Parent.Name).Controls("RcptCRDistr ict Subform1").Form!RcptNumber) = True Then
MsgBox ("Enter Last Name")
Forms(Me.Parent.Name)!CarrierLName.SetFocus
Exit Sub
End If
Me.Text8 = DSum("Charge", "RcptCRDistrict", "[RcptNumber] = " & Forms(Me.Parent.Name).Controls("RcptCRDistrict Subform1").Form!RcptNumber)
Me.Refresh
End Sub

[pbaldy]

Happy to help!