Public Funktion ExportTables ()
Schwaches DB als Datenbank
Schwache rs als Recordset
Schwaches sSQL als Schnur
sSQL = „auserwähltes SourceTableName, TargetTableName, DatabaseName vom tblTableExport“
Einstellen DB = CurrentDb ()
Rs = db.OpenRecordset (sSQL) einstellen
Tun während nicht rs.EOF
DoCmd.TransferDatabase transfertype: =acExport, _
databasetype: = " Microsoft Access ", _
databasename: =rs. Felder (2).Value, _
ObjectType: =acTable, Quelle: =rs. Felder (0). Wert, _
Bestimmungsort: =rs. Felder (1).Value, structureonly: =False
rs.MoveNext
Schleife
Enden-Funktion
|