Stop Form from Opening

[Bob Vance]

My message box is operating perfect but can I also stop the Form [frmModify]
from opening as well.............Thanks Bob
Private Sub Form_Load()
DoCmd.Maximize

On Error Resume Next

' ------ this needs a criteria clause
Me.tbCompanyName = DLookup("CompanyName", "tblCompanyInfo")
'-------

' check for horse name
If Nz(Me.cbHorseName, 0) = 0 Then

MsgBox "(Client Invoice) Must be Edited from Main Menu/ClientInvoices!",
vbOKOnly + vbCritical, "Client Invoice "

End If


End Sub

 

[Dirk Goldgar]

My message box is operating perfect but can I also stop the Form
[frmModify] from opening as well.............Thanks Bob
Private Sub Form_Load()
DoCmd.Maximize

On Error Resume Next

' ------ this needs a criteria clause
Me.tbCompanyName = DLookup("CompanyName", "tblCompanyInfo")
'-------

' check for horse name
If Nz(Me.cbHorseName, 0) = 0 Then

MsgBox "(Client Invoice) Must be Edited from Main Menu/ClientInvoices!",
vbOKOnly + vbCritical, "Client Invoice "

End If


End Sub

Assuming that you had to wait for the Load event so that you could check the
value of the (presumably) bound control cbHorseName, your best bet is to
simply close the form:

DoCmd.Close acForm, Me.Name, acSaveNo

 

[Bob Vance]

Thanks Dirk, That did the trick......................Bob

My message box is operating perfect but can I also stop the Form
[frmModify] from opening as well.............Thanks Bob
Private Sub Form_Load()
DoCmd.Maximize

On Error Resume Next

' ------ this needs a criteria clause
Me.tbCompanyName = DLookup("CompanyName", "tblCompanyInfo")
'-------

' check for horse name
If Nz(Me.cbHorseName, 0) = 0 Then

MsgBox "(Client Invoice) Must be Edited from Main Menu/ClientInvoices!",
vbOKOnly + vbCritical, "Client Invoice "

End If


End Sub

Assuming that you had to wait for the Load event so that you could check
the value of the (presumably) bound control cbHorseName, your best bet is
to simply close the form:

DoCmd.Close acForm, Me.Name, acSaveNo


--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)