Hallo an alle
Ich wollte aus einer offenen Access 2000 Datenbank heraus eine zweite Datenbank öffnen. Habe zum Testen folgenden Code benutzt. (BS: Vista)
-----------------------------------------------------------------------
Public Sub Start_Click()
Dim Pfad As String
Dim Anwendung As String
Dim StrBefehlszeile As String
Pfad = "E:\Alle Access\Datenbank2.mdb"
Anwendung = "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"
StrBefehlszeile = [Anwendung] & " " & [Pfad]
Call Shell(StrBefehlszeile, 1)
End Sub
----------------------------------------------------------------------------
Die Datenbank2 öffnet sich mit 2 Fehlermeldungen:
1. "Die Befehlszeile, mit der Sie Microsoft Access gestartet haben, enthält eine Option, die Microsoft Access unbekannt ist."
2. Nach Klick auf OK. Die zweite Meldung: "Microsoft Access kann die Datenbank 'E:\Alle.mdb' nicht finden.
Es ist dann nur ein leerer "Datenbankrahmen" offen.
Was muss ich ändern, das es doch noch klappt?
Mit freundlichen Grüßen
spaceman