Hallo Alle,
ich möchte in einer Listbox einige Tabellen zur Auswahl bereit stellen.
Kriterium : Sie müssen einen bestimmten Namen haben UND sie müssen mindestens einen Datensatz enthalten (sie dürfen nicht "leer" sein).
Habe mit einer Schleife über das Application Object die Namen "gefiltert".
Sub Tabellen_Name()
Dim Tabelle As AccessObject
For Each Tabelle In Application.CurrentData.AllTables
If Left(Tabelle.Name, 3) = "FBE" Or _
Left(Tabelle.Name, 3) = "FBT" Or _
Left(Tabelle.Name, 3) = "FBK" Or _
Left(Tabelle.Name, 3) = "FBP" Then
´
Debug.Print Tabelle.Name
End If
Next Tabelle
End Sub
Kann ich über diesen Weg auch nachschauen ob die Tabellen Datensätze enthalten ?
Oder müsste ich hier einen komplett anderen Weg gehen ?
Danke und Grüße,
Lars
|