Hallo zusammen,
habe folgendes Problem:
Ich habe eine Access Datenbank in der ein Formular per Click ausgeführt wird! Das wird meistens manuell ausgeführt aber soll in Zukuft zusätzlich an zwei tagen (per Aufgabenplaner) automatisiert werden!
Deshalb sollte dieses "Click-Ereigniss" von Excel gestartet werden und dann kann ich dem Aufgabenplaner das öffnen dieses Excelfiles auftragen wobei das Makro dann ausgeführt werden soll!
Mein Problem hierbei ist der Code!
Access Startet das Ereigniss im Formular über Module bis in Klassenmodule! Diese muss ich ja auch mit übergeben oder?
Folgendes habe ich bereits zusammen, leider kenne ich mich hierbei wirklich nicht so gut aus!
Bin für alle Hilfe & Tipps Dankbar! Verweise wäre auch sehr nett!
Private Sub Workbook_Open()
Dim Access As New Access.Application
Set Access = CreateObject("Pfad.mdb")
Dim frm As Form
Set frm = Access.DoCmd.OpenForm("Formular")
Access.DoCmd.OpenModule MODUL, (Formular)
Access.OpenCurrentDatabase "Pfad.mdb"
Access.Visible = True
Access.CloseCurrentDatabase
Set Access = Nothing
Do While ie.Busy = True
Loop
ActiveWorkbook.Close (False)
End Sub
habe folgendes Problem:
Ich habe eine Access Datenbank in der ein Formular per Click ausgeführt wird! Das wird meistens manuell ausgeführt aber soll in Zukuft zusätzlich an zwei tagen (per Aufgabenplaner) automatisiert werden!
Deshalb sollte dieses "Click-Ereigniss" von Excel gestartet werden und dann kann ich dem Aufgabenplaner das öffnen dieses Excelfiles auftragen wobei das Makro dann ausgeführt werden soll!
Mein Problem hierbei ist der Code!
Access Startet das Ereigniss im Formular über Module bis in Klassenmodule! Diese muss ich ja auch mit übergeben oder?
Folgendes habe ich bereits zusammen, leider kenne ich mich hierbei wirklich nicht so gut aus!
Bin für alle Hilfe & Tipps Dankbar! Verweise wäre auch sehr nett!
Private Sub Workbook_Open()
Dim Access As New Access.Application
Set Access = CreateObject("Pfad.mdb")
Dim frm As Form
Set frm = Access.DoCmd.OpenForm("Formular")
Access.DoCmd.OpenModule MODUL, (Formular)
Access.OpenCurrentDatabase "Pfad.mdb"
Access.Visible = True
Access.CloseCurrentDatabase
Set Access = Nothing
Do While ie.Busy = True
Loop
ActiveWorkbook.Close (False)
End Sub