Thema Datum  Von Nutzer Rating
Antwort
Rot VBA + SQL Access Zähler
11.06.2021 09:25:01 Irina
Solved
11.06.2021 09:55:04 Mase
Solved
27.06.2021 04:04:35 Wowa
Solved
27.06.2021 12:52:55 Mase
Solved
27.06.2021 16:41:31 Wowa
Solved
27.06.2021 16:45:07 wowa
Solved
27.06.2021 16:49:35 Gast1068
Solved
27.06.2021 21:08:19 Mase
Solved

Ansicht des Beitrags:
Von:
Irina
Datum:
11.06.2021 09:25:01
Views:
116
Rating: Antwort:
 Nein
Thema:
VBA + SQL Access Zähler

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA + SQL Access Zähler
11.06.2021 09:25:01 Irina
Solved
11.06.2021 09:55:04 Mase
Solved
27.06.2021 04:04:35 Wowa
Solved
27.06.2021 12:52:55 Mase
Solved
27.06.2021 16:41:31 Wowa
Solved
27.06.2021 16:45:07 wowa
Solved
27.06.2021 16:49:35 Gast1068
Solved
27.06.2021 21:08:19 Mase
Solved