Message Box

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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/13933-message-box.html
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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13933
actually close the form.

Can some one show me how to do this?

Thanks
Chey

*

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!

If [Field Value]= "" Then
res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13933
Exit Sub

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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13933
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access

"Chey" wrote in message
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13933
news:8AC58ED4-EACE-42CD-B83C-E39344630FAD@microsoft.com...
>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

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

This is what I have
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13933
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13933

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

"Corey" wrote:

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

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

"Chey" wrote in message
news:E22A2620-CBAC-4F99-8CDE-EA89C3ECDF59@microsoft.com...
> 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
>
> "Corey" wrote:
>
>> If [Field Value]= "" Then
>> res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
>> Exit Sub
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13933
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13933
>>
>>
>>