je doet eerst een dcount() als die de waarde 0 geeft dan geef je het bericht
Dim AantalRecords as integer
AantalRecords = Dcount("eenveld","Welketabel","WelkeVoorwaarde")
if AantalRecords <1 then
msgbox "Geen Records gevonden"
exit sub
end if
En nu doe je de Dlookup("eenveld","Welketabel","WelkeVoorwaarde")