Hallo liebe Mitglieder,
ich benötige Hilfe und hoffe Ihr könnt mir dabei weiterhelfen.
Ich habe eine Datenbank (AC2010) erstellt, bzw. bin Sie gerade am aufbauen, die prinzipiell Aufträge verwalten soll und von verschiedenen Benutzern bedient wird. Dafür gibt es verschiedene Benutzergruppen und Berechtigungen.
Das mit der Benutzerverwaltung konnte ich dank der Hilfe von
http://www.access-im-unternehmen.de/688
lösen.
Jetzt habe ich 3 "Hauptformulare" erstellt: frmBerechtigungsgruppeAdmin, frmBenutzergruppeBenutzer, frmBenutzergruppeVerwaltung.
Wie kann ich das lösen, dass die drei Benutzergruppen nach dem Login automatisch auf Ihr Formular geleitet werden und auch nur von diesem Hauptformular aus auf die entsprechenden Unterformulare/Abfragen und Berichte zugreifen können? Sprich der Rest von der Datenbank ist für Sie gesperrt *außer für die benutzergruppe Admin* .
Die Datenbank habe ich mal im Anhang beigefügt!
*sonstige Kritik und Vorschläge zu der Datenbank sind auch gerne gesehen ;D
Vielen Dank schonmal im Voraus.
Hallo,
ganz so richtig versteh ich die "Hauptformulare" nicht... und auch nicht die Ablaufsteuerung...
Diese Forms sind doch für die Einstellung der User-Rechte zu verwenden und nicht als Einstiegsformulare nach dem Einloggen....
Nach dem Einloggen könnte im Einlogformular entspr. der aktuellen Benutzergruppe und/oder der BenutzerID das für den akt. User, bzw. die akt. Gruppe zuständige Formular geladen werden....
PS: Von einem Anhang ist nichts zu sehen...
ich bitte um Entschuldigung,
anbei meine der Anhang, ich hoffe damit kann ich das aufklären.
Hallo,
ok, und wie gesagt: In der Login-Prozedur das oder die zugehörenden "Hauptformulare" für die BenutzerID, bzw. BenutzergruppenID laden...
Private Sub cmdLogin_Click()
Dim lngBenutzerID As Long
lngBenutzerID = Nz(DLookup("BenutzerID", "tblBenutzer", "Benutzername = '" & Me!cboBenutzername & "' AND Kennwort = '" & Me!txtKennwort & "'"), 0)
If lngBenutzerID = 0 Then
MsgBox "Benutzername und/oder Kennwort sind falsch."
Me!txtKennwort.SetFocus
Else
MsgBox "Anmeldung erfolgreich!"
OptionEinstellen "CurrentUserID", CStr(lngBenutzerID)
Select Case DLookup("Benutzergruppeid", "tblBenutzerBenutzergruppen", "BenutzerID = " & lngBenutzerID)
Case 1 'Admins
DoCmd.OpenForm "frmStartformAdmin"
Case 2 'Benutzer
DoCmd.OpenForm "frmStartformBenutzer"
Case Else
MsgBox "Unknown Group"
End Select
DoCmd.Close acForm, Me.Name
End If
End Sub