Multiple null fields

[Arlend Floyd]

Here what im trying to do. If any of the three Text fields are null then
display msgbox. It works fine with just one text box, but I can’t seem to
understand how to look at three text fields. What’s the proper way to use
multiple fields?

If IsNull([Text65] Or [Text67] Or [Text69]) Then

intSave = MsgBox("Are you sure you want to go to a new customer without
inputing a Action?", vbYesNo + vbQuestion + vbDefaultButton2, "Save
Confirmation")
If intSave = vbYes Then

DoCmd.Close
DoCmd.OpenForm "FrmCustSearch"
End If
Else
DoCmd.Close
DoCmd.OpenForm "FrmCustSearch"
End If

 

[Jeanette Cunningham]

If IsNull([Text65] Or IsNull([Text67]) Or IsNull([Text69]) Then

Jeanette Cunningham

 

[Arlend Floyd]

Thanks works fine..

If IsNull([Text65] Or IsNull([Text67]) Or IsNull([Text69]) Then

Jeanette Cunningham

Here what im trying to do. If any of the three Text fields are null then
display msgbox. It works fine with just one text box, but I can't seem to
understand how to look at three text fields. What's the proper way to use
multiple fields?

If IsNull([Text65] Or [Text67] Or [Text69]) Then

intSave = MsgBox("Are you sure you want to go to a new customer without
inputing a Action?", vbYesNo + vbQuestion + vbDefaultButton2, "Save
Confirmation")
If intSave = vbYes Then

DoCmd.Close
DoCmd.OpenForm "FrmCustSearch"
End If
Else
DoCmd.Close
DoCmd.OpenForm "FrmCustSearch"
End If

 

[Douglas J. Steele]

Alternatively, since using + as a concatenation character propagates Nulls,
you could use

If IsNull([Text65] + [Text67] + [Text69]) Then

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

If IsNull([Text65] Or IsNull([Text67]) Or IsNull([Text69]) Then

Jeanette Cunningham

Here what im trying to do. If any of the three Text fields are null then
display msgbox. It works fine with just one text box, but I can't seem to
understand how to look at three text fields. What's the proper way to use
multiple fields?

If IsNull([Text65] Or [Text67] Or [Text69]) Then

intSave = MsgBox("Are you sure you want to go to a new customer without
inputing a Action?", vbYesNo + vbQuestion + vbDefaultButton2, "Save
Confirmation")
If intSave = vbYes Then

DoCmd.Close
DoCmd.OpenForm "FrmCustSearch"
End If
Else
DoCmd.Close
DoCmd.OpenForm "FrmCustSearch"
End If