Access & VBA

[Lung]

Moin!

Ich habe folgendes Problem:

Ich müßte in einem Formular alle vorhandenen Tabellen anzeigen lassen, weiß aber nicht wie!

Gibt es irgendeine Funktion? Ein bestimmtes Objekt? Irgendeinen Aufruf im Code?

Und vielleicht kann mir auch jemand sgen, wie ich bei einer Tabellenerstellungsabfrage eine fortlaufende Nummer im Tabellenname vergebe?

Panik!

Bin für jedes bißchen Information dankbar!

[Dieser Beitrag wurde von Lung am 17. November 2000 editiert.]

[Wolle]

Hi Lung,

wenn ich die Frage richtig verstanden habe meinst du die Tabellennamen und nicht die Daten.

Private Sub Form_Load()

Dim db As Database

Set db = CurrentDb

Dim i as Integer

Dim j as Integer

i = db.TableDefs.Count

For j = 0 To i - 1

MsgBox (db.TableDefs(j).Name)

Next

End Sub

Ich habs hier mal mit einer Messagebox ausprobiert. Access hat noch einige versteckte Tabellen, die dabei mit ausgegeben werden, aber das abzufangen dürfte kein Problem sein.

Die Erstellungsabfrage würde ich auch von VBA aus machen. Die sieht dann so aus:

Dim db As Database

Dim i as Integer

Set db = CurrentDb

i = db.TableDefs.Count

DoCmd.RunSQL ("SELECT TabelleAlt.Feld INTO TabelleNeu" & i & " FROM TabelleAlt;")

Du kannst auch eine Tabelle mit nur einem Feld (Integer) als Zähler nehmen. Bei jeder Erstellungsabfrage liest du den Wert mit i=dlookup("feld","tabelle") aus der Tabelle und schreibst dann den neuen Wert mit "UPDATE tabelle SET feld=feld+1" wieder in die Tabelle zurück. Die Erstellungsabfrage sieht dann wie oben aus, nur brauchst du außer i keine Variablen deklarieren.

Wolle

[Dieser Beitrag wurde von Wolle am 17. November 2000 editiert.]