nicht angemeldet
Hallo,
ich habe das geschrieben:
Dim Access
Set Access = CreateObject("Access.Application")
Dim myWorkspace
Set myWorkspace = Access.DBEngine.Workspaces(0)
Dim myDatabase
Set myDatabase = myWorkspace.OpenDatabase("C:\TEST\roper.mdb")
Access.Visible = True
Access.DoCmd.OpenQuery "Abfrage1", acNormal, acEdit
Access.DoCmd.TransferText acExportDelim, "PERLSTEFAN", "RECHNUNGEN", "D:\VBS\Test.txt", False, ""
Access.Quit
Leider funktioniert es nicht ganz. Access 97 geht auf und verweigert dann mit dem Hinweis, Access könne nicht die DoCmd-Aktion ausführen während es einen anderen Vorgang abarbeitet.
Probier mal folgendes:
Dim oAccess
Set oAccess = CreateObject("Access.Application")
oAccess.OpenCurrentDatabase "C:\test\db1.mdb"
Set oDoCmd = oAccess.DoCmd
oAccess.DoCmd.OpenQuery "Abfrage1", acNormal, acEdit
oAccess.Quit
set oDoCmd = Nothing
set oAccess = Nothing
Allerdings habe ich dabei das Problem, dass die DB nicht ordnungsgemäss beendet wird: Lockfile db1.ldb bleibt bestehen und an der DB können keine Änderungen mehr durchgeführt werden.
Gruß
Stefan