Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Daniel am 03.06.04 - 12:17:09
-
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
-
Hi,
bei welchem Aufruf erscheint denn die Fehlermeldung. Auf den ersten Blick scheint alles richtig auszusehen.
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
-
Sorry, war bis jetzt weg!
Danke für die Hilfe!
Ich werde das gleich mal ausprobieren...
Bis bald!
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