title image


Smiley So wie Du den Befehl ausführst...
...kommt kein Verweis auf die externe DB zustande (einfach den DB-Namen als Text zuweisen reicht nicht); ich poste Dir mal ein Beispiel-Coding, das verdeutlicht, wie man die Tabellen einer externen DB in einer Schleife durchlaufen kann. Deinen Code musst Du dann entsprechend ergänzen:





Sub ExterneDBTabellen()



Const dbFilePath As String = "C:\Temp\Deine.mdb"



Dim accApp As Object

Dim dbs As DAO.Database

Dim tbl As DAO.TableDef





Set accApp = CreateObject("Access.Application")

accApp.OpenCurrentDatabase dbFilePath, False

Set dbs = accApp.CurrentDb



For Each tbl In dbs.TableDefs

Debug.Print tbl.Name

Next



accApp.CloseCurrentDatabase

accApp.Quit



Set tbl = Nothing

Set dbs = Nothing

Set accApp = Nothing



End Sub







Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: