Hallo zusammen,
ich möchte aus einer Access-Anwendung (Acc 2010) heraus eine Prozedur in einer 2. Access-DB aufrufen. Leider hatte ich trotz aller suche bisher keinen Erfolg.
Diesen Code verwende ich:
Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "AndereDB.accdb"
objAccess.DoCmd.RunMacro "XMLimport"
In diesem Fall wird ein Laufzeitfehler 2485 gemeldet ("Objekt ... wurde nicht gefunden"). Verwende ich statt "RunMacro" nur "Run", kommt der Laufzeitfehler 438 ("Objekt unterstützt diese Methode nicht").
Die Code-Zeile objAccess.Application.Run "XMLimport" liefert keine Fehlermeldung, aber es passiert auch nichts (die aufrufende Prozedur springt einfach in die nächste Zeile).
Hat jemand noch einen Tipp? Vielen Dank im voraus.
Freundliche Grüße,
Rainer
Da es sich bei objAccess ja bereits um die Application handelt, wäre es so korrekt:
objAccess.Run "XMLimport"
Wenn beim Aufruf der Prozedur nichts passiert, dann müsste man mal die Prozedur ansehen.
Du kannst ja an den Anfang der Prozedur eine Msgbox einbauen, dann siehst du ja ob der Code ausgelöst wird.
Hat die Prozedur eigentlich keine Parameter?
LG Markus
Hallo Markus,
wenn ich vor dem Öffnen der 2. DB ein "objAccess.Visible = True" einfüge, funktioniert der Aufruf mit objAccess.Run
Also alles prima!
Viele Grüße,
Rainer