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

Hallo,
Shell beginnt zunächst mal mit einer/der MSAccess.exe, denn shell ist zum Start ausführbarer Programme gedacht..
Das Makro kann per Ãœbergabeparameter "/X DeinMakroname" aktiviert werden.
Das Makro "DeinMakroname" ist in der DB zu erstellen und öffnet dein gewünschtes Formular.

 

Hallo Vincenz,

vielleicht kannst Du mir ein letztes mal ein Tipp gegen. In Deinem Beispiel ist der Zugriff mit einem Recordset beschrieben. Ich brauche aber der Zugriff auf ein Formular. Die Lösung mit Currentdatabase funktioniert bei einer ungeschützen Datenbank einwandfrei, nur brauche ich den Code für eine geschütze DB mit MDW-Datei.

Gruss Franz


Sub Datenbank_oeffnen()

Dim PrvEng As DAO.PrivDBEngine, wrk As DAO.Workspace
Dim wrkgrp As String, user As String, pwd As String
Dim dbs As DAO.Database
Dim rst As DAO.Recordset

wrkgrp = "C:\Programme\Test.mdw"
user = "demo"
pwd = "demo"

Set PrvEng = New PrivDBEngine
PrvEng.SystemDB = wrkgrp

Set wrk = PrvEng.CreateWorkspace("OwnerRights", user, pwd, dbUseJet)
Set dbs = wrk.OpenDatabase("C:\Programme\Test.mdb")

End Sub

 

Hallo Franz,
wird mit dem von Dir gezeigten Code ein Datenbankobjekt erstellt?
Kontrollier das mal im Debugger oder füge hinter
Set dbs= mal
Code:

ein.
Ich habe noch nie etwas mit mdw-Dateien gemacht. Wenn das dbs-Objekt korrekt erzeugt wird, kann ich Dir weiterhelfen.

Gruß
Vincenz

 

Hallo Vincenz,
wenn ich den code; Msgbox dbs.name hinterlege wird mir in Meldungbox der Pfad mit der Datenbank angzeigt.
Der Befehl dbs.openDatabase steht beim tippen nicht zur Verfügung. Ich denke ich mit dieser Methode nur auf ein Recordset Zugriff?

Gruss Franz

 

Hallo Franz,
der Zugriff auf die Db funktioniert damit.
Was soll mit dem Formular gemacht werden?
Ich brauche mal eine Idee für die nachfolgenden Schritte.

Edit: Habe gerade im Objektmodell nachgesehen:
Mit DAO.Database hast Du keinen Zugriff auf die Forms-Collection der Datenbank.
Also nochmal: Warum musst Du unbedingt das Formular öffenen?

Gruß
Vincenz

 

Hallo Steffen,

Danke für den Hinweis. Es funktioniert soweit, ich kann das Formualar öffnen.
Jetzt muss ich nur ein Datensatz in diesem Formular einstellen. Jetzt ist die Frage ob ich die ID für das Formular noch beim Befehl /XDeinMakroname mit angeben kann?
Danke.
Gruß Franz

 

Hallo Vincenz,

ich möchte das Formular "Test" öffnen und den Datensatz welcher in A1 steht anzeigen lassen (s. code).

Gruß Franz

.OpenDatabase
.DoCmd.OpenForm "frm_Test", , , "Nr_ID = " & _
ActiveWorkbook.Worksheets("Tabelle1").Cells(1, 1)

 

\@Franz:
Warum fährst du jetzt eigentlich zweigleisig?

Du kannst Access über die Kommandozeile Parameter mitgeben (/cmd), welche innerhalb von VBA per Command() gelesen werden können.

 

Hallo Franz,
leider reden wir irgendwie aneinander vorbei.
Sinn der ganzen Aktion kann es ja nicht sein, ein Formular anzuzeigen. Mit den Daten oder Funktionen dahinter soll ja hoffentlich auch was gemacht werden. Sonst könntest Du ja auch ein Bild auf den Monitor malen.
Also nochmal im Detail:
Welche Daten willst Du anzeigen?
Was soll mit den Daten passieren?

Grundsätzlich versuchst Du gerade, zwei grundverschiedene Wege zu beschreiten.
Über den von mir skizzierten Weg erhälst Du einen definierten Zugriff auf die Datenbank und kannst die Aktionen vom aufrufenden Programm aus kontrollieren.
Wenn Du den von Steffen vorgeschlagenen Weg gehst, hast Du keine Kontrolle über die geöffnete Datenbank aus der Excel-Anwendung heraus, da Access sozusagen neben Excel geöffnet wird.
Eine Rückmeldung geänderter Daten an das aufrufende Excel wird damit schwierig.

Wenn Du

nur das vorhast, warum fragst Du aus deinem Formular nicht ganz einfach beim Öffenen/Anzeigen ein entsprechendes Excel-Sheet ab? Ist wg. geschützten DB sicher einfacher.

Gruß
Vincenz

 

Was hat den das Spielchen Excel-Access für einen Hintergrund?
Wieso werden nicht alle Aufgaben gleich in Access erledigt und das ganze nach Excel exportiert (bzw. Daten aus Excel importiert)?


Gruß

LL

 

Hallo Vincenz,

vielen Dank für Deine Antworten. Es ist wohl nur mit der CurrentDatabase Methode möglich auf das Formobjekt zu zugreifen, um ein Formular mit einem Datensatz einzustellen! Dies funktioniert einwanfrei bei einer ungeschützen Datenbank! Da ich aber auf eine geschützte Datenbank zugreifen möchte, bleibt mir noch die Möglichkeit mit einem Recordset. Diese Methode kenne ich bzw. weiß ich es einrichten muss.

Gruss Franz

 

Hallo,

Ist dein Problem nun damit gelöst?
Ansonsten habe ich dir 2 grundverschiedene Möglichkeiten aufgezeigt, wie man das mit shell lösen kann.

 

Hallo Steffen,
Danke auch an Deine Antworten. Mit der Funktion konnte ich die DB öffnen und auch das Formular ansprechen!
Shell "C:\Programme\Microsoft Office\OFFICE11\MSACCESS.EXE C:\Test.mdb /wrkgrp C:\Test\Sicherheit.MDW /user demo /pwd demo /X Makro1

Nur konnte ich nicht den gewüschten Datensatz nicht einstellen. Die Daten_ID würde in Zelle A1 stehen.

Gruss Franz

 

Hallo,
genau dafür habe ich dir 2 Möglichkeiten gezeigt:
#23: Ãœbergabeparameter /cmd und command()
#14: Start per Shell(andwait) und Ãœbernahme des Application-Objektes (GetObject).

 

Insofern kein anderes Access am laufe ist, müsste dies funz:

Code: