Office: (Office 2013) VBA Zeilen in einer Tabelle zählen

Hallo zusammen,
es wäre super wenn mir hier jemand weiterhelfen könnte, ich bin hier gerade etwas am verzweifeln.
Ich möchte mir gerne die Anzahl der Zeilen in meinem Formular anzeigen lassen, nichts funktioniert. Mit der Access Hilfe etc kam ich leider auch nicht weiter.

In meiner TestAbfrage habe ich folgenden SQL String

SELECT Count(Tabelle1.GLN) AS AnzahlvonTM FROM Tabelle1;


Das habe ich versucht einzubinden, es läuft aber auf einen Fehler.


Private Sub Befehl25_Click()

Dim QRYanzahl As String

QRYanzahl = "SELECT Count(Tabelle1.TM)FROM Tabelle1;"
DoCmd.RunSQL QRYanzahl

MsgBox QRYanzahl

End Sub


:)

 

Moin,

Ist das die gleiche Anzahl wie Zeilen in der Tabelle?
Dann so:
Code:

Sonst müsste noch ein Kriterium dazu
oder per .RecordCount die Anzahl der im Formular gefilterten Sätze ermittelt werden.
maike

 

Hallo,

der Steuerelementinhalt =Anzahl(*) in einem Textfeld sollte genügen.

 

Super danke, ich hab mir schon fast gedacht das es ziemlich simpel ist.

Dann kann ich jetzt versuchen das ganze in das Formular einzubinden. *Smilie

Die Variante mit RecordCount hatte ich auch schon probiert, aber da findet er noch nichtmal meine Tabelle.

 

RecordCount zählt die Datensätze in einem Recordset, das müsstest du dann aus deiner Tabelle vorher erzeugen bzw. das Formular-Recordset verwenden.
maike

 

Hallo EinKeks,

falls du auf Geschwindigkeit Wert legst:
Code:

Die RecordCount-Lösung läuft etwas schneller ab, als die Lösung mit dem Steuerelementinhalt =Anzahl(*).

Gruß
Josef

 

Hallo,

der RecordCount liefert erst nach einem MoveLast ein korrektes Ergebnis und ob das dann noch schneller ist als Anzahl(*) wage ich zu bezweifeln.
Auch wäre das Load-Ereignis dem Open vorzuziehen.

 

Hallo,
danke schon mal für die Hilfe, sorry Ich fang gerade erst an mich tiefer da einzuarbeiten und bin leider noch nicht wirklich weiter gekommen.
Wäre super wenn ihr mir da nochmal weiterhelfen könntet.

Was muss ich genau machen um die DCount("*", "Tabelle1") in mein Textfeld zu bekommen. Ich hab das so probiert, aber das funktioniert leider nicht

Dim test As String
test = DCount("*", "Tabelle1")


Wenn ich das mit der Tabelle in das Feld eingebe bekomm ich auch nen Fehler
Steuerelementinhalt =Anzahl(*)



Und das mit dem Recordset komm ich auch nicht wirklich weiter

Private Sub Text23_Click()

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Tabelle1", dbOpenTable)

rs.RecordCount

rs.Close
db.Close

Set rs = Nothing
Set db = Nothing



End Sub

 

Hallo,

Code:

ist für ein Textfeldsteuerelement als Steuerelementinhalt einzutragen - nicht mehr und auch nicht weniger.

 

Wo genau hast du das denn alles hingeschrieben?
Wie heißt das Feld, in dem die Anzahl angezeigt werden soll?

Der Code mit der DCount Funktion gehört in die Ereignisprozedur des Formulars "Beim Anzeigen". Es fehlt die Zuweisung an das Feld, die Variable strTest ist überflüssig:
Code:

Der Ausdruck = Anzahl(*) gehört in den Steuerelementinhalt des Feldes. IMHO muss das Feld sich dabei im Fuß des Formulars befinden ...

Bei der Recordset-Variante hast du zwar das Recordset erzeugt und die Anzahl der Sätze gezählt (Hinweis von MaggieMay mit MoveLast beachten) - aber die werden nirgendwo angezeigt. Da fehlt ebenfalls die Zuweisung an das entsprechende Feld.

maike

 

Hi,

MoveLast wäre hier die richtige Wahl - so wie ich es wohl auch geschrieben hatte.

 

super danke nochmal an alle funktioniert jetzt wie es soll