Hallo zusammen,
ich bin gerade dabei für Access ein Login Formular zu erstellen. Zu 90% bin ich auch schon fertig aber eine funktion, die ich noch benötige bekomme ich nicht hin.
Die User ID und das Passwort wird abgefragt, soweit sogut. Jetzt soll aber noch eine Abfrage geschehen welche Funktion derjenige hat.
Z.B. Admin oder User
Wenn man als Admin eingestuft wird soll das Formular: FormAdmin gestartet werden und wenn man User ist soll das FormUser gestartet werden.
Ich hoffe, dass mir da jemand helfen kann.
Schoneinmal vielen Dank für eure Unterstützung.
Private Sub KnopfLogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "UserID='" & Me.txtUserID & "'"
If rs.NoMatch = True Then 'User Prüfung
Me.lbUserFalsch.Visible = True
Me.txtUserID.SetFocus
Exit Sub
End If
Me.lbUserFalsch.Visible = False
If rs!Passwort <> Nz(Me.txtPasswort, "") Then 'Passwort Prüfung
Me.lbPWFalsch.Visible = True
Me.txtPasswort.SetFocus
Exit Sub
End If
Me.lbPWFalsch.Visible = False
DoCmd.OpenForm "FormUser" 'Öffnet Start Formular
DoCmd.Close acForm, "login" 'Beendet das Formular Login
End Sub
|