Wachtwoord ophalen uit tabel

[RSpan]

Ik heb een formulier met wachtwoord beveiliging gevonden, nu wil ik deze gaan gebruiken met dat verschil dat hij het wachtwoord uit een tabel haalt.
de tabel heet TblWachtwoord en in het veld [wachtwoord] komt het wachtwoord te staan wat vergeleken moet worden met het ingetypte wachtwoord.
genoeg wachtwoord getypt ik hoop dat mijn vraag duidelijk is.

hierbij de code

Option Explicit
'-----------
' Simple Password Protection Routine
' Developed by: Candace L. Tripp
' ctripp1@earthlink.net
'-----------

Private Sub Form_Load()

    gOkToClose = False
    ' number of tries
    gintPasswordFlag = 1

End Sub

Private Sub Form_Unload(Cancel As Integer)

    If Not gOkToClose Then
        Cancel = True
    End If
    
End Sub

Private Sub PASSWORD_AfterUpdate()
On Error GoTo err_PASSWORD_AfterUpdate
  
    If Me![PASSWORD] = "test" Then
        gOkToClose = True
                DoCmd.OpenForm "FrmOndhfingeg"
                DoCmd.Close A_FORM, "frmPassword"
                DoCmd.Close A_FORM, "Hoofdmenu"
    Else
        ' give them three shots at getting it right
        Select Case gintPasswordFlag
        Case 1 To 2
            DoCmd.Beep
            MsgBox "Incorrect password", 16, "Password"
            gintPasswordFlag = gintPasswordFlag + 1
        Case Else
        gOkToClose = True
        DoCmd.Close A_FORM, "frmPassword"
            DoCmd.Beep
            DoCmd.OpenForm "frmPasswordFail"
        End Select
        
    End If
exit_PASSWORD_AfterUpdate:
    Exit Sub
    
err_PASSWORD_AfterUpdate:
    MsgBox "Error " & Err & ": " & Error$, 0, "Password"
    Resume exit_PASSWORD_AfterUpdate
   
End Sub

mvg
René

 

[OctaFish]

Heb je de tabel nodig omdat je voor verschillende gebruikers verschillende wachtwoorden wilt kunnen gebruiken? Want ik zie zo gauw niet waar je die check wilt doen...
Als je het Wachtwoord formulier koppelt aan de tabl tblWachtwoord, dan kun je daar direct naar verwijzen, als je het veld in een verborgen tekstveld bijvoorbeeld op je formulier zet. Omdat je, naar ik vermoed, maar één wachtwoord hebt, moet dat goed gaan. Je hoeft dan alleen deze regel: If Me![PASSWORD] = "test" Then te veranderen:

If Me![PASSWORD] = me.txtWachtwoord Then

 

[RSpan]

Heb je de tabel nodig omdat je voor verschillende gebruikers verschillende wachtwoorden wilt kunnen gebruiken? Want ik zie zo gauw niet waar je die check wilt doen...
Als je het Wachtwoord formulier koppelt aan de tabl tblWachtwoord, dan kun je daar direct naar verwijzen, als je het veld in een verborgen tekstveld bijvoorbeeld op je formulier zet. Omdat je, naar ik vermoed, maar één wachtwoord hebt, moet dat goed gaan. Je hoeft dan alleen deze regel: If Me![PASSWORD] = "test" Then te veranderen:

If Me![PASSWORD] = me.txtWachtwoord Then

werk tadeloos:thumb::thumb:
zo eenvoudig en zonder problemen
inderdaad is er maar een gebruiker, die nu middels een ander formulier zijn wachtwoord kan wijzigen.
En dan later met zijn nieuwe wachtwoord het formulier kan openen.
Geweldig helemaal tevreden
bedankt:thumb:
mvg
René