Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Application.CurrentData.AllTables |
30.01.2007 14:29:41 |
Lars |
|
|
|
01.02.2007 05:52:00 |
Rasta |
|
|
|
06.02.2007 09:30:16 |
Lars |
|
|
|
07.02.2007 11:05:48 |
Rasta |
|
|
|
07.02.2007 11:11:08 |
Lars |
|
|
Von:
Lars |
Datum:
30.01.2007 14:29:41 |
Views:
2029 |
Rating:
|
Antwort:
|
Thema:
Application.CurrentData.AllTables |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Application.CurrentData.AllTables |
30.01.2007 14:29:41 |
Lars |
|
|
|
01.02.2007 05:52:00 |
Rasta |
|
|
|
06.02.2007 09:30:16 |
Lars |
|
|
|
07.02.2007 11:05:48 |
Rasta |
|
|
|
07.02.2007 11:11:08 |
Lars |
|
|