Wachtwoord op aktieknop

[Heijnus]

Is er hier iemand ie mij kan helpen bij een wachtwoorden op een aktieknop te zetten ? Ik heb al wel een soort db hoe ik het wil hebben maar dit geeft nogal storingen :S

Iemand die dit in een makkelijkere versie heeft ?

Alvast bedankt
Albert


Ps hier heb je de db:

 

[beheer25]

Code ziet er helemaal niet foutgevoelig uit. Waar heb je de problemen in zitten?


Grtz,

 

[Heijnus]

Ik heb er nu zelf een gemaakt en werkt toch wel een stukje beter. Als je deze 4 X aanmeld ofzo dan gaat ie foutmeldingen geven 2450 oid.

Private Sub PASSWORD_AfterUpdate()
On Error GoTo err_PASSWORD_AfterUpdate

If Me![PASSWORD] = "Directie" Then
gOkToClose = True
DoCmd.OpenForm "keuzemenu directie"
DoCmd.Close A_FORM, "frmPassword"
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
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


Greets Albert

 

[Thelma]

Misschien denk ik te simpel hoor, maar ik heb iets soortgelijks gemaakt door het gebruik van notatie **** in een extra invulveld in de tabel.

Iemand die het wachtwoord niet weet, maar wel in de onderliggende tabel kijkt, ziet alleen die **** (de waarde laat je standaard invullen voor ieder veld). Voor de actieknop gebruik je een query die vereist dat je de waarde van het veld met de **** intoetst.

Het gaf in ieder geval het voor mij gewenste resultaat.

 

[beheer25]

OK code draait goed en na een stuk of 5 keer ben ik ermee opgehouden.

Als je single steppend door de code gaat merk je wel dat het passwd form open blijft staan. Kun je mischien beter sluiten op het moment dat je het violation form opent.

Verder zou ik niet het after update event gebruiken maar het onExit event. Zo kan je ook niet 1000x hetzelfde (foute) wachtwoord proberen.


Grtz,

 

[Heijnus]

Mijn procedure werkt nu goed dus als er een mod kijkt mag ie close.