schon wieder ich:
Habe im Archiv folgenden Code gefunden (von mir schon angepasst):
</p><pre>Sub CallAccessMacro()
Dim accApp As Object
Dim sFile As String
sFile = "J:\Test\eto.mdb"
If Dir(sFile) = "" Then
Beep
MsgBox "Access-Datenbank wurde nicht gefunden!"
Else
Set accApp = CreateObject("Access.Application")
accApp.OpenCurrentDatabase sFile
accApp.Run "Makro1"
accApp.CloseCurrentDatabase
Set accApp = Nothing
End If
End Sub</pre><p>
Das Programm hängt sich bei der Zeile accApp.OpenCurrentDatabase sFile auf.
Woran kann es denn liegen? Wer kann mir hier weiterhelfen?
Gruß, Stefan