DoCmd.applyFilter mit VBA

Martin66119

Grünschnabel
Hallo ins Forum,

In meinem Datenbankprojekt verwende ich VBA. Um bestimmte Daten anzuzeigen verwende ich den Befehl DoCmd.Apply Filter mit like. Nun würde ich gerne eine Message anzeigen, wenn kein Treffer gefunden wird. Wie kann ich das realisieren.

Danke om Voraus
Martin
 

Yaslaw

alter Rempler
Moderator
Annahmen:
- Programm: MS Access
- Daten in einem Datenblattformular angezeigt

Dann kannst du nach dem Filter setzen ja das Recordset des Forms abfregen und die Zeilenanzahl ausgeben.
Hab grad kein Access zur Hand, müsste aber etwa so gehen
Visual Basic:
if me.recordset.recordcount = 0 then
    msgbox "keine Daten da"
end if
 
Zuletzt bearbeitet: