Office: (Office 2003) Geschützte Access Datenbank öffnen

Hallo zusammen,

ich muss von einem Excelsheet aus eine geschützte Access-Datenbank öffnen und das
Formular "frm_Test" öffnen. Anbei mein codeansatz. Ich bekomme bei der Zeile .accApp.Open, Cnn
die Fehlermeldung "Objekt Überstützt diese Eigenschaft oder Methode nicht.
Hat jemand eine Idee wo der Fehler liegen könnte?
Danke.
Gruss Franz

Private Sub Geschuetze_Datenbank_oeffnen()
Dim accApp As Object
Dim Cnn As ADODB.Connection
Dim SysDBName As String
Dim DataBaseName As String
Dim Pwd As String
Dim UserID As String
Dim rs As New Recordset

Set accApp = CreateObject("Access.Application")
SysDBName = "C:\Programme\Test\Sicherheit_Test.mdw"
DataBaseName = "C:\Programme\Test\Datenbank_Test.mdb"
UserID = "User" ' für System.mdw
Pwd = "test" ' für System.mdw
Set Cnn = New ADODB.Connection

With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = DataBaseName
.Properties("Jet OLEDB:System Database") = SysDBName
.Properties("Password") = Pwd
.Properties("User ID") = UserID
.Open Cnn
End With

With accApp
.accApp.Open, Cnn
.DoCmd.openform "frm_Test"
.Visible = True
End With
End Sub

:)

 

Hi,

ohne den Code jetzt Befehl für Befehl kontrolliert zu haben fällt mir auf, dass

With accAPP

dann eigentlich statt .AccApp.open, Cnn

nur .Open, Cnn kommen müsste, da Du den Verweis ja schon mit "with accApp" gesetzt hast.

Servus
Peter

 

Hallo Peter,
Danke für den Hinweis. Habe ich auch schon probiert, bekomme aber die gleiche Fehlermeldung!

Gruss Franz

 

Hallo Franz,
das Application-Object von Access hat keine Open-Methode.
Somit kannst Du auch nicht mittels accApp.Open, Conn deine Datenbank öffnen.

Die Aktion, die Du auf der DB durchführen willst, kannst Du doch auch über Excel auslösen.

Wenn hiermit
Code:

eine Connection zur AccessDB geöffnet wird, benötigst Du die Formulare der DB nicht.
Gruß
Vincenz

 

Hallo Vincenz,
habe den Befehl .open Cnn auskommantiert. Wie kann ich aber jetzt die Datenbank öffnen und das Formular z.b. frm_test ansprechnen das aber nicht das Startformular der Datenbank ist?
Gruss Franz

 

Hallo Franz,
es muss heißen
Code:

Das Open muss schon stehen bleiben.

Damit hast Du eine ADODB-Connection zur Access-DB geöffnet.
Hierüber kannst Du jetzt Such- oder Aktionsabfragen auf die AccessDB abschicken.
Was möchtest Du denn überhaupt erreichen?

Gruß
Vincenz

 

OK. Wie kann ich jetzt ein Formular in der Datebank öffnen welches aber nicht mein Startformular ist? Ich brauche keine Such- oder Aktionsabfragen!
Gruß
Franz

 

Hallo Franz,
ich kann Dir nur einen Ansatz liefern.
Code:

Leider kann ich so die Forms-Auflistung nicht ansprechen.
Aber vllt. hilft es Dir ja bei der Suche

Gruß
Vincenz

 

Hallo Franz,
so geht es:
Code:

Gruß
Vincenz

 

Hallo Vincenz,
Danke für Dein Code. Das Problem ist, das ich eine geschützte Datenbank habe mit einer Arbeitsgruppendatei MDW. Wenn ich jetzt in der Zeile:
appAcc.opencurrentDatabase ("C:\Test\Test.mdb /wrkgrp C:\Test\Sicherheit.MDW /user demo /pwd demo") ergänze, wird nur das Programm Access geöffnet nicht die Datenbank. Gibt es eine Lösung für das Problem. Danke.
Gruss Franz

 

Hallo Franz,
ich habe das ganze nur mal kurz ausprobiert. Genutzt habe ich das noch nie. Daher kann ich dich hier nur auf die Hilfe verweisen. Lt. OH kann man OpenCurrentDatabase ein Passwort mitgeben.

Gruß
Vincenz

 

Hallo Vincenz,
Danke für den Hinweis. Ich habe mir die Hilfe zu currentDatabase angesehen. Hier kann ich nur ein Kennwort für die Datenbank hinterlegen. Über die MDW (Arbeitsgruppendatei) frage ich aber den User und das Passwort ab! Ich glaube das mit dieser Methode es gar nicht möglicht ist auf geschützte Datenbank mit MDW-Datei zu öffnen?
Gruss Franz

 

Die Suche im Forum liefert:http://www.ms-office-forum.net/forum...d.php?t=190313

wie gesagt, selbst gemacht habe ich das auch noch nicht. Auch arbeite ich nicht mit geschützten AccessDB.
Gruß
Vincenz

 

Hallo,
die einfachste Variante wäre ein Shell-Aufruf mit Übergabe eines Makronamens.
Dieses Makro öffnet dann das Formular.
Auch möglich: Start per Shell(andwait) und Übernahme des Application-Objektes (GetObject).

 

Hallo Steffen,
kannst Du mir ein Beispiel geben. Den Befehl Shell "C:\Test\Test.mdb /wrkgrp C:\Test\Sicherheit.MDW /user demo /pwd demo" habe ich auch schon probiert.
Leider kann mit dem Befehl kein Formularname ansteuern, da ich nicht das Startformular öffnen möchte sondern ein anders.
Gruss Franz