Hallo,
ich bekomme bei folgendem code die Fehlermeldung 3049, can't open database
danke fürs helfen
Const systemdatenbank = "C:\Dokumente und Einstellungen\Renate\Anwendungsdaten\Microsoft\Access\SYSTEM.MDW"
Private Sub Command1_Click()
' User und Gruppen erstellen
Dim ws As Workspace
If MsgBox("Haben Sie die Konstante SYSTEMDATENBANK angepaßt?", vbYesNo, "Frage") = vbNo Then End
DBEngine.SystemDB = systemdatenbank
Set ws = DBEngine.Workspaces(0)
' Hinweis: der zweite Parameter ist die PID
ws.Groups.Append ws.CreateGroup("Buchhalter", "123456")
ws.Groups.Append ws.CreateGroup("Pförtner", "654321")
ws.Groups.Refresh
ws.Users.Append ws.CreateUser("Chef", "11111", "pwChef") ' Name, PID, PW
ws.Users.Append ws.CreateUser("Bauer", "22222", "pwBauer") ' Name, PID, PW
ws.Users.Append ws.CreateUser("Ackermann", "33333", "pwAckermann") ' Name, PID, PW
ws.Users.Append ws.CreateUser("Lindner", "44444", "pwLindner") ' Name, PID, PW
ws.Users.Append ws.CreateUser("Lehmann", "55555", "pwLehmann") ' Name, PID, PW
End Sub
ich bekomme bei folgendem code die Fehlermeldung 3049, can't open database
danke fürs helfen
Const systemdatenbank = "C:\Dokumente und Einstellungen\Renate\Anwendungsdaten\Microsoft\Access\SYSTEM.MDW"
Private Sub Command1_Click()
' User und Gruppen erstellen
Dim ws As Workspace
If MsgBox("Haben Sie die Konstante SYSTEMDATENBANK angepaßt?", vbYesNo, "Frage") = vbNo Then End
DBEngine.SystemDB = systemdatenbank
Set ws = DBEngine.Workspaces(0)
' Hinweis: der zweite Parameter ist die PID
ws.Groups.Append ws.CreateGroup("Buchhalter", "123456")
ws.Groups.Append ws.CreateGroup("Pförtner", "654321")
ws.Groups.Refresh
ws.Users.Append ws.CreateUser("Chef", "11111", "pwChef") ' Name, PID, PW
ws.Users.Append ws.CreateUser("Bauer", "22222", "pwBauer") ' Name, PID, PW
ws.Users.Append ws.CreateUser("Ackermann", "33333", "pwAckermann") ' Name, PID, PW
ws.Users.Append ws.CreateUser("Lindner", "44444", "pwLindner") ' Name, PID, PW
ws.Users.Append ws.CreateUser("Lehmann", "55555", "pwLehmann") ' Name, PID, PW
End Sub