Stop Form Opening

  • Thread starter Thread starter DS
  • Start date Start date
D

DS

How do you stop a form from opening if it has no Data in it? The form
is based on a Query.
Thanks
DS
 
in message:
How do you stop a form from opening if it has no Data in it? The form
is based on a Query.
Click to expand...

Use the form's open event to test the recordset returned.
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "There are no records to display at this time." _
, vbInformation, "No Records"
Cancel = True
End If
End Sub


You will of course need to trap for and ignore Error 2501
in the code routine that opens the form.
 
Jeff said:
in message:




Use the form's open event to test the recordset returned.
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "There are no records to display at this time." _
, vbInformation, "No Records"
Cancel = True
End If
End Sub


You will of course need to trap for and ignore Error 2501
in the code routine that opens the form.
Click to expand...
Worked Great, I just Changed the Message Box and now I'm Happy!!!
Thanks
DS


Private Sub Form_Open(Cancel As Integer)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Access Open Form with WhereCondition 6
Access Sub form opens before the main form in MS Access 0
Two forms openining on startup (2007) 0
Access Access Report Works on One Machine but not Another 3
Parameter Value error in a Subform 0
Opening Forms 1
Access Field won't show as currency in the form, shows just a number (but works fine in the query) 1
Opening form unexpectedly closes other form 0

Back
Top