title image


Smiley VBA: Ausfindig machen ob Source Datensätze erhält
Hallo zusammen



Ich habe eine Suchfunktion eingebaut welche die Recordsource dynamisch

anpasst.

Nun wollte ich eine Funktion machen, welche falls die neue Recordsource

leer ist eine Messagebox ausgibt:

"Die folgende Suche enthält keine Ergebnisse"

und danach zurück auf die ursprüngliche Recordsource wechselt.

Das ganze geschieht in einem Endlosformular.



z.b



---------------

tab_personen

---------------



hans muster

verena muster



---------------



wird nun der Suchparameter "Sabrina" mitgegeben liefert die Suche keine Ergebnisse.

In diesem Fall sollen wieder alle Datensätze angezeigt werden.



Also Code habe ich mir das ganze etwa so vorgestellt:







Dim rs As DAO.Recordset

dim counter as int



counter = 0



rs.movefirst



do until rs.eof



counter = counter + 1



loop



if counter = 0 then

msgbox "bla",,"bla"

end if







Nun diese Methode wird jedoch nicht funktionieren wenn ich keine Datensätze habe.

Oder funktionieren "rs.eof" & "rs.movefirst" auch wenn keine Datensätze vorhanden

sind? ich denke nicht..



Danke schon einmal im Voraus für eure Hilfe

Greetz



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: