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
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
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