Office: (Office 2013) MSysObjects

Hallo Forum,
ich möchte ein Formular erstellen, das mir alle in der Datenbank enthaltenen Tabellen und die jeweilige Anzahl Datensätze auflistet. Hintergrund: über das Formular möchte ich anschließend Datensätze aus einer Test-DB löschen.

Ich habe also eine Abfrage auf die Tabelle MSysObjects durchgeführt und die Tabellen im Endlosformular aufgelistet. Fehlt noch die Information, wie viele Datensätze die jeweilige Tabelle hat. Der Splate "Name" in MSysObjects habe ich den Alias "Tab_Name" verpasst und dann folgende Unterabfrage zur Ermittlung der Anzahl Datensätze in der jeweiligen Tabelle erstellt:
anz_rec: (select count(*) form [Tab_Name])
Das führt aber zu einem Fehler, die Tabelle "Tab_Name" wird nicht gefunden. Aber wie ist die korrekte Syntax.

PS: Hilfsweise habe ich eine Prozedur erstellt, die das Endlosformular durchläuft und die Anzahl der Datensätze pro Tabelle per VBA ermittelt. Um dann festzustellen, dass ich im Endlosformular nicht die Werte pro Zeile ändern kann, sondern immer den Wert für alle Zeilen setze. Also auch keine Lösung.

Herzlichen Dank im Voraus für Hinweise für eine der beiden Varianten!

Viele Grüße
Michael

:)

 

Ist das nur hier im Post ein Schreibfehler? --> (select count(*) form [Tab_Name])

 

Hallo,

Alias stehen in der aktuellen Abfrage nicht zur Verfügung. Auch kann in einer Unterabfrage keine Variable (Feld) für eine Tabelle angegeben werden.

Versuche es so: Code:

 

Alternativ geht es auch ohne Zählen via SQL:

DBEngine(0)(0).TableDefs([Tab_Name]).RecordCount

Eventuell in eine Funktion auslagern.

 

So was löst man mit einer Funktion, die in die Abfrage eingebunden wird.
Code:

In der Abfrage wird dann die Funktion eingebunden.

Select Name, getTableCount(Name)AS RecordCount from MSysObjects where ...

 

Genau...

 

Danke, das ist exakt das, was ich gesucht habe!