Forms

[Jim Kennedy]

Here's one option. Create a label in your form header (I
called mine blank). The label can say something
like "Sorry, there are no records."

Now add some code to the open event of the form. It
should look something like this:

Private Sub Form_Open(Cancel As Integer)
Dim rs As Object

Set rs = Me.RecordsetClone

If rs.RecordCount > 0 Then
Me.blank.Visible = False
Else
Me.blank.Visible = True
End If
End Sub