Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Access schreibgeschützt starten

Access schreibgeschützt starten
21.05.2013 10:28:51
dieterlem
Hallo Excelfreunde,
ich möchte aus Excel heraus Access schreibgeschützt starten. Aus der StartZeile in Windows mache ich das so:
msaccess.exe /ro "C:\"db.accdb"
Starten aus Excel:
Dim AccObj as Object
Set AccObj = CreateObject("Access.Application")
AccObj.Visible = True
AccObj.OpenCurrentDatabase("C:\"db.accdb")
Wie kann ich Access aus Excel VBA schreibgeschützt öffnen?
Ist es auch möglich Parameter (zb. Kundenname) beim öffnen mit zu übergeben? Zb. msaccess.exe /ro "C:\"db.accdb" /cmd "Kunde"
Danke für eure Hilfe
Gruß
Dieterlem

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Access schreibgeschützt starten
21.05.2013 11:11:50
Luschi
Hallo Dieterlem,
da Du die Accessdatei mit sichtbarer Accessbenutzeroberfläche öffnen willst,
mußt Du auf eine Windows-API-Funktion zurückgreifen.
Hier ein Beispiel:

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Sub acc_Oeffnen_ro()
Dim xPath As String, xFile As String
xPath = "C:\Users\abc\Documents\"
xFile = "Database2.accdb"
Call ShellExecute(Application.hwnd, "Open", xFile, "/ro", xPath, 1)
End Sub
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Access schreibgeschützt starten
21.05.2013 20:18:10
Dieterlem
Hallo Luschi,
danke für deine Hilfe. Ich werde das nachher gleich mal testen.
Gruß
Dieterlem

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige