AC97: vorgegebene Tabellen importieren

Computer: Software & Programmierung Microsoft Access
#1

Hallo Experten,

ich bräuchte mal wieder Eure Hilfe (wenn möglich).

Ich habe in meiner Datenbank eine Tabelle mit Tabellennamen eingerichtet („tblDateiliste“).

Die Tabellen aus dieser Liste existieren in einer anderen DB („C:\Produkte.MDB“). Von dort aus möchte ich mir diese Tabellen in meine neue MDB importieren.

Ich habe mir auch schon eine Proz geschrieben, die das machen sollte. Leider wird nur die erste Tabelle, deren Namen in der Beschreibungstabelle („tblDateiliste“) als erster DS steht, importiert.

Hier die Proz:

Dim db As Database
Dim tbl As Recordset
Dim FN As Variant ' FN = Feldname in der Tabelle "tblDateiliste"

Set db = CurrentDb()
Set tbl = db.OpenRecordset("tblDateiliste") 'Herkunftstabelle

For Each FN In tbl.Fields
 DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\Produkte.mdb", acTable, FN, FN & "\_BU"
 'soll alle Tabellen aus der "C:\Produkte.mdb" 
'importieren und als "Feldname" & \_BU (BackUp) sichern

Next FN

Irgendwo liegt hier ein Fehler - ich kann ihn nur nicht erkennen.

Ich bin für jede Hilfe dankbar :smile:

gruss Andy

#2

Hallo,
.Fields ist die Auflistung der Felder Deiner Tabelle. Was Du suchst sind die Datensätze. Die bekommst Du mit
tbl.first und in einer Schleife jeweils mit tbl.next, solange tbl.eof nicht true ergibt.

Gruß

J.

#3

Hallo José,

Danke! Hat prima geklappt mit

tbl.MoveFirst

Do Until tbl.EOF

For Each FN In tbl.Fields

 DoCmd.MachwasDraus

 tbl.MoveNext

 Next FN

 Loop

gruss Andy

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

1 Like
#4

Hi,

Danke! Hat prima geklappt mit

tbl.MoveFirst
tbl.MoveNext

Ja, sorry, Sprache verwechselt, bei Oracle heißen solche Dinger einfach first und next…

Gruß

J.