Hallo,
in meiner DB habe ich ein Loginformular. Ich fände es ganz nützlich, wenn der User beim 1. Login das Startpasswort neu setzen MUSS.
Ist dies durch eine Erweiterung des bestehenden Codes möglich, oder muss dazu eine extra Prozedur geschrieben werden? Aktueller Code des Login:
Private Sub cmdLogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblBenutzer", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "UserID='" & Me.txtBenutzername & "'"
If rs.NoMatch = True Then
Me.lblFalscherBenutzer.Visible = True
Me.txtBenutzername.SetFocus
Exit Sub
End If
Me.lblFalscherBenutzer.Visible = False
If rs!Passwort <> Encrypt(Me.txtPasswort) Then
Me.lblFalschesPasswort.Visible = True
Me.txtPasswort.SetFocus
Exit Sub
End If
Me.lblFalschesPasswort.Visible = False
If rs!BenutzerArtID_F = 1 Then
Dim prop As Property
On Error GoTo SetProperty
Set prop = CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, False)
CurrentDb.Properties.Append prop
SetProperty:
If MsgBox("Willst du wirklich den Bypass-Key aktivieren?", vbYesNo, "Allow Bypass") = vbYes Then
CurrentDb.Properties("AllowBypassKey") = True
Else
CurrentDb.Properties("AllowBypassKey") = False
End If
End If
DoCmd.OpenForm "frmMenueseite"
DoCmd.Close acForm, "frmLogin"
End Sub
Ein weitere Frage die zum Thema Login entsteht werde ich in einem Extrathread stellen.
mfG
Andreas
ZitatIch fände es ganz nützlich, wenn der User beim 1. Login das Startpasswort neu setzen MUSS.
Ist dies durch eine Erweiterung des bestehenden Codes möglich
Ich nehme an du kennst die Situation, dass du ein Passwort ändern musst.
Zuerst logst du dich ein.
Nach dem erfolgreichen Login wirst du zum Passwort wechsel aufgefordert.
Du musst also nichts ändern, sondern nur erweitern.
Das zentrale ist in diesem Fall zu wissen, ob das Passwort bereits geändert wurde.
Da gibt es natürlich viele Möglichkeiten. z.B. eine eigene Spalte mit dem Startpasswort ..... aber da kannst ja selber überlegen.
LG Markus
Hallo,
du kannst bspw. ein Standard-Passwort vergeben (für alle dasselbe) und dies nach erfolgreichem Login prüfen und ggfls. automatisch das Formular zum Ändern des Passworts öffnen, wobei dann die Abbrechen-Schaltfläche gesperrt sein sollte. Dies kannst du umsetzen, indem du beim Öffnen einen OpenArgs-Parameter übergibst, welcher im Open-Ereignis ausgewertet wird.
Hi,
das mit allen das gleiche PW zu vergeben dachte ich mir schon, aber dann :-[. Das hört sich für mich als VBA Guru total simpel an ..... In dem Bereich benötige ich mal wie immer support :(.
Gruß Andreas