Display "No Record" message on a form

[Bagger]

Can someone assist me in creating the code to display a message on a form where there is no record found.
I have a song file 50,000 records.when a search is done and right now the only way I know it is complete and no record is found is the "hourglass" goes away. Thanks in advance for any asiatance.

 

[THoey]

The following is from the help file:

The following example creates a Recordset object based on the Orders table and then determines the number of records in the Recordset object:

Sub CountRecords()
Dim dbs As Database, rst As Recordset

' Return reference to current database.
Set dbs = CurrentDb
' Open table-type Recordset object.
Set rst = dbs.OpenRecordset("Orders&quot
Debug.Print rst.RecordCount
rst.Close
Set dbs = Nothing
End Sub

You should be able to modify that to pop up a form or un-hide a "No Records Found" Text Label.

Hope that helps... Terry M. Hoey