Loginformular - beim 1. Login Passwortwechsel erzwingen

[derilzemer]

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:

Code [Auswählen] Erweitern

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

[markusxy]

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

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

[MaggieMay]

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.

[derilzemer]

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