Display Message "No Records Found"

  • Thread starter Thread starter Don K.
  • Start date Start date
D

Don K.

I have a Database (Access 07) that I put to gather and use to help manage a
large equipment fleet for the DOT. I have never had any formal training in
Access but through trial and error and exploring sample databases have built
a very useful DB.
I have a form that opens from a query. I would like a message to display
when the query returns 0 records to the form. I explored the previous
questions on this post and found the following code that I used.

Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Cancel = True
End If
End Sub

This stops the form from opening when 0 records are returned. What else do
I need to add to the code to display a message “No Records Found†and return
back to my forms switchboard?

Thanks in advance

Don K.
 
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "No Records Found", vbExclamation
Cancel = True
End If
End Sub
 
Back
Top