I have found something like this to be useful, assuming DAO is used:
Dim rs as DAO.Recordset
Set rs = Me.sfSubForm.Form.RecordsetClone
Select Case rs.Recordcount
Case >= 1
' aLL ok
Case = 0
' Display message
Case rs.BOF=True and rs.EOF=True
' Display message
End Select
If the...