automatischer Aufruf von benutzerdefinierten "Hauptformularen"

[SIGMA]

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 

Vielen Dank schonmal im Voraus.

[DF6GL]

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...

[SIGMA]

ich bitte um Entschuldigung,
anbei meine der Anhang, ich hoffe damit kann ich das aufklären.

[DF6GL]

Hallo,

ok, und wie gesagt: In der Login-Prozedur das oder die zugehörenden "Hauptformulare" für die BenutzerID, bzw. BenutzergruppenID laden...

Code [Auswählen] Erweitern

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