Guten Morgen,

habe folgendes Szenario. Eine Accessdatenbank A öffnet im Hintergrund eine weitere Acccesdatenbank B als Application und lässt dann in B einen VBA Code durchlaufen. Dies macht er auch ganz brav führt alles durch. Doch am Ende bekomme ich dann den Laufzeitfehler '440' - Die Methode 'Run' für das Objeckt '_Application' ist fehlgeschlagen.

'Code der Datenbank A
Sub Update()

Dim accApp As New Access.Application
Set accApp = CreateObject("Access.Application")
accApp.OpenCurrentDatabase "D:\X\X.accdb"
accApp.Run "ctrl_Update_Click"
accApp.CloseCurrentDatabase
Set accApp = Nothing

End Sub

'Code der Datenbank B
Sub ctrl_Update_Click()

Call Neu Backend
    
Dim PauseTime As Variant, start As Variant

PauseTime = 5
start = Timer
Do While Timer < start + PauseTime
Loop
    
Call Export
Call Kopieren
Call Hacken_Steuertabelle

'Code für Call Hacken_Steuertabelle
Sub Hacken_Steuertabelle()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim Pfad As String
    Dim Dname As String
    Dim Var As String
                   
    Dname = Dir(CurrentDb.name)
    Pfad = "D:\X\Y.accdb"
    Set db = Workspaces(0).OpenDatabase(Pfad)
    Set rs = db.OpenRecordset("Steuertabelle", dbOpenDynaset)
    
    If Not rs.EOF Then rs.MoveFirst
    Do While Not rs.EOF
        Var = rs!Loader
        If Var = Dname Then
        rs.Edit
        rs!Erledigt = True
        rs.Update
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing

End Sub

So das sind alle wichtigen Bestandteile in denen evtl. ein Fehler liegen könnte. In den anderen Call Funktionen ist es eher 
unwahrscheinlich, da alle Aktionen durchgeführt werden. Bitte dirgend um Hilfe!

Beste Grüße