conditional macro

[Guest]

If a filter returns no records I would like a message box to appear to say
'No records found'. Do I do this with a conditional macro and what would the
syntax be?
Thanks

 

[Guest]

JOJO,

Use something like:

***
Dim db As Database
Dim Rst As Recordset

Set db = CurrentDB()
Set Rst = db.OpenRecordset("YOURTABLENAME")
If Rst.RecordCount = 0 Then 'test for the existance of any records
Msgbox ("No records found")
Exit Function
End If

'The rest of your code to be executed if records exist
***


Don't forget to include error handling in your procedure.

Daniel