Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fehler beim Kompilieren
Autor: Renate
Datum: 10.03.09 23:12
Option Explicit 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

Fehler beim Kompilieren	1.262	Renate	10.03.09 23:12
Re: Fehler beim Kompilieren	788	smither	18.03.09 15:47

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen