Aufruf von Access aus Notes

[Daniel]

Hallo Zusammen! Ich hoff, jemand kann mir weiterhelfen.

Ich möchte aus Notes eine Access.mdb aufrufen. Mit Word funktioniert das Wunderbar aber bei Access???
Ich führ folgendes aus:

Dim obj_AccessApplication As Variant
   Dim obj_AccessDatabase As Variant
   
   Set obj_AccessApplication = CreateObject("Access.Application")
   Set obj_AccessDatabase = obj_AccessApplication.OpenCurrentDatabase("\\hbdo01\groups\Vert_Info\FEHLER_BASIS.mdb")
   
   obj_AccessApplication.Visible = True


Ich bekomme immer den Fehler TypeMismatch 13 zurück.

Weiß jemand von euch, was ich da falsch mache?

SG

Daniel

[Axel]

Hi,

bei welchem Aufruf erscheint denn die Fehlermeldung. Auf den ersten Blick scheint alles richtig auszusehen.


Axel
 

[Axel]

Hi,

ich hab' in der Zwischenzeit mal ein bisschen rumprobiert und den Fehler gefunden.

Er tritt in dieser Zeile auf:

   Set obj_AccessDatabase = obj_AccessApplication.OpenCurrentDatabase("\\hbdo01\groups\Vert_Info\FEHLER_BASIS.mdb")

Denn die Methode OpenCurrentDatabase liefert keinen Rückgabewert.

So funktioniert's:
Call obj_AccessApplication.OpenCurrentDatabase("\\hbdo01\groups\Vert_Info\FEHLER_BASIS.mdb")

Aber dann nur obj_AccessApplication.Visible = True aufzurufen reicht nicht aus, denn Access wird gleich wieder geschlossen. Du musst noch ein Formular, Report oder Tabelle öffnen.

So kann z.B. ein Öffnen einer Tabelle (hier eine Tabelle mit Namen Adresse aussehen):
Call obj_AccessApplication.DoCmd.OpenTable("Adressen",0)


Axel

 

[Daniel]

Sorry, war bis jetzt weg!

Danke für die Hilfe!
Ich werde das gleich mal ausprobieren...
Bis bald!

Daniel

[Daniel]

Scheint wirklich zu funzen. Ich hab momentan noch das Glück, dass innerhalb der MDB nach dem Aufruf automatisch ein Formular aufgerufen wird. Aber ich werde den Aufruf noch einbauen. Muss nun zum Zahnarzt.....

Bis Bald und 1000 Dank!

Daniel