Access und DoCmd

[Alex Schneieder]

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.
Gruß
Alex

[Stefan]

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