Message Box

[Guest]

I need to create a message box.
Right now what I have going on is when you check a box it sends an email,
then prints, then closes the form, then opens it back up to go on to the next
one. If TA Number is null when it opens I would like an Message Box to
appear saying there are no more travels to be approved. Then an OKAY to
actually close the form.

Can some one show me how to do this?

Thanks
Chey

 

[Corey]

If [Field Value]= "" Then
res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
Exit Sub

 

[Arvin Meyer [MVP]]

You can use a standard MsgBox, but it is difficult to run a function from
one, and you can't customize the font, etc. The following MsgBox creator
simulates the standard MsgBox with a customizeable Access form:

http://www.datastrat.com/Download/MsgBox2K.zip
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access

 

[Guest]

It didn't work. I palced it under on open. It still opens.

This is what I have

Private Sub Form_Open(Cancel As Integer)
If [TA Number] = "" Then
res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
End If
Exit Sub
End Sub

 

[Larry Linson]

Controls on the Form are not ready to be used in the Open event. The
OnCurrent event fires for each Record when the Record is displayed. Controls
have been initialized to the value of the first Record in the Load event.
If you want to do this once, for the first Record, put your code in the Load
event; if you want to do this for every Record, put it in the Current event.

Larry Linson
Microsoft Access MVP

It didn't work. I palced it under on open. It still opens.

This is what I have

Private Sub Form_Open(Cancel As Integer)
If [TA Number] = "" Then
res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
End If
Exit Sub
End Sub

If [Field Value]= "" Then
res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
Exit Sub