Hallo,
ich möchte ein Programm schreiben, wo am Ende ein Zähler steht, der mir die Datensätze über die ID zählen soll.
Leider erhalte ich immer einen Nullwert, es werden 0 Datensätze gezählt.
Folgendes habe ich geschrieben:
Dim db As Database
Set db = CurrentDb
Dim Zähler As Integer
Dim rs As Recordset
Set rs = db.OpenRecordset("Select Count([tblTier].Standort_Id) as [txtAnzahl] From [tblTier]")
Me.txtAnzahl = Zähler
While Not rs.EOF
Zähler = Standort_ID
rs.MoveNext
Wend
MsgBox "Dieses Tierheim enthält " & Zähler & " Datensätze."
rs.Close
Wo liegt mein Fehler???
LG Irina
|