need help

I have a form
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/13999-need-help.html
When I open it if TA Number is null, the I want a message box to appear, no
travels to approve. And then an okay to click on to close the form.

Can someone please help me with this?

*

 
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!

Try in the Form_Open Event

Sub Form_Open(Cancel As Integer)
Dim Rs As DAO.Recordset
Set Rs = Me.RecordsetClone
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13999
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13999
Cancel = Rs.BOF And Rs.EOF
Set Rs = Nothing
If Cancel Then
MsgBox "Go home, everything is done ", vbCritical, "We're out of
business"
End If
Exit Sub

HTH

Pieter

"Chey" wrote in message
news:367BFBAA-953F-43FA-B8B0-7C6BA3298B2E@microsoft.com...
>I have a form
> When I open it if TA Number is null, the I want a message box to appear,
> no
> travels to approve. And then an okay to click on to close the form.
>
> Can someone please help me with this?

Try in the Form_Open Event

Sub Form_Open(Cancel As Integer)
Dim Rs As DAO.Recordset
Set Rs = Me.RecordsetClone
Cancel = Rs.BOF And Rs.EOF
Set Rs = Nothing
If Cancel Then
MsgBox "Go home, everything is done ", vbCritical, "We're out of
business"
End If
Exit Sub

HTH

Pieter

"Chey" wrote in message
news:367BFBAA-953F-43FA-B8B0-7C6BA3298B2E@microsoft.com...
>I have a form
> When I open it if TA Number is null, the I want a message box to appear,
> no
> travels to approve. And then an okay to click on to close the form.
>
> Can someone please help me with this?



--
----------------------------------------
I am using the free version of SPAMfighter for private users.
It has removed 4367 spam emails to date.
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13999
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13999
Paying users do not have this message in their emails.
Get the free SPAMfighter here: http://www.spamfighter.com/len

Chey,
Assuming [TA] is on the Main form... use the Main form Current event...

Private Sub Form_Current()
Dim Response as Variant, Prompt as String
Prompt = "No Travels to Approve"
If IsNull([TA]) Then
Response = MsgBox Prompt, vbOKonly
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13999
DoCmd.Close
End If
--
hth
Al Camp
Candia Computer Consulting - Candia NH
http://home.comcast.net/~cccsolutions
There are 10 types of people in the world.
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13999
Those who understand binary, and those who don't.


"Chey" wrote in message
news:367BFBAA-953F-43FA-B8B0-7C6BA3298B2E@microsoft.com...
>I have a form
> When I open it if TA Number is null, the I want a message box to appear, no
> travels to approve. And then an okay to click on to close the form.
>
> Can someone please help me with this?