DoCmd.applyFilter mit VBA

[Martin66119]

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]

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

if me.recordset.recordcount = 0 then
    msgbox "keine Daten da"
end if

 

[Martin66119]

Oh, klasse. Das ist ja einfach wenn man es weiß. Werde das gleich morgen testen.

Grüße
Martin