Hallo,



ich habe da eine verknüpfte Tabelle in meiner QUELLE.MDB. Wenn ich diese mit folgendem Code exportiere:

----------------------------------------------------------------------

Public Function Export2MDB(strTable As String) As Boolean

Dim wsp As Workspace

Dim dbs As Database



On Error GoTo Fehler

DoCmd.TransferDatabase acExport, "Microsoft Access", Pathname & "\ZIEL.MDB", acTable, strTable, strTable & "_" & Format(Date, "yyyy-mm-dd")

DoCmd.CopyObject Pathname & "\ZIEL.MDB", strTable & "_" & Format(Date, "yyyy-mm-dd"), acTable, strTable



Export2MDB = True

Exit Function



Fehler:

Select Case Err.Number

Case 3024 'MDB existiert nicht und muss erstellt werden

Set wsp = DBEngine.Workspaces(0)

Set dbs = wsp.CreateDatabase(Pathname & "\DVDB_BKP.MDB", dbLangGeneral)

Set dbs = Nothing

Resume

Case Else

Export2MDB = False

Debug.Print Err.Number, Err.Description

End Select



End Function

-----------------------------------------------------

wird die Tabelle in der ZIEL.MDB ebenfalls als verknüpfte Tabelle angelegt. Dabei spielt es keine Rolle, ob ich TransferDatabase oder CopyObject vernwende. Sie soll aber komplett eigenständig nach ZIEL.MDB kopiert/exportiert werden. Was mache ich falsch? Ich verwende Access 97.



Danke

jayz1102
CCEA, MCSE, MCDBA, MCSA

geschrieben von jaymz1102 , 05.04.2006, 15:24 Uhr , 13 mal gelesen