veld beschermen met wachtwoord

[scarie]

Hallo,
mijn probleem: De gebruiker van een inschrijvingsformulier kan alle velden invullen, behalve 1 aankruisvakje die maar mag aangekruist worden als men een geldig paswoord heeft. Is dit mogelijk? Het mag een VB code zijn.
Beste groeten

 

[beheer25]

Als je het heel erg netjes wilt doen met beveiliging kost het behoorlijk wat werk.

Quick en Dirty oplossing: Maak een "Unlock" button op je formulier met de volgende code erachter:

Private Sub cmdUnlock_Click()
    'Deze code vraagt de gebruiker een code in te voeren, zodat ... wordt geactiveerd.
    
    Dim strPass As String
    Dim strOK As String
    
    strOK = "geheim" 'Dit is het wachtwoord dat ingevoerd moet worden
    DoCmd.OpenForm "frmPassword", acNormal, , , , acDialog
    strPass = ppstrPassword
    
    If strPass = strOK Then
        Me.frmBetalingen.Enabled = True
        Me.frmOverboekingen.Enabled = True
    Else
        MsgBox "De code is onjuist", vbOKOnly + vbInformation, "Onjuiste code"
    End If
    
End Sub

Ik heb het in dit geval met een extra formpje gedaan waar het wachtwoord wordt gevraagd omdat een inputbox niet een wachtwoordveld aankan.

De doorloop:
1. Gebruiker klikt op unlock knop
2. Code opent en extra formulier waarop het ww moet worden ingetikt.
3. OK knop op het extra formulier stelt een public variabele in (ppstrPassword)
4. Check wordt gedaan en vakje wordt aangezet (of niet)


Grtz,

 

[paul jacobs]

sorry maar was is een unlock knop ?
ik snap wel wat het betekend maar is dat een bijzondere knop???

 

[scarie]

terug es dag

Ik heb het op de volgende manier opgelost:
Namelijk heb ik in het formulier een veld "wachtwoord"
bijgemaakt en dan een klein beetje VBA code:

Private Sub wachtwoord_AfterUpdate()
If wachtwoord = "gekozen wachtwoord" Then
Me.competitie.Enabled = True
Me.competitie.SetFocus
Else
Displaymessage "verkeerd wachtwoord! Probeer opnieuw."
Me.wachtwoord.Value = ""
Me.competitie.Enabled = False
End If
End Sub

"competitie" heeft een aankruisvakje dat in en uitgeschakeld moest worden

Groeten
Scarie

 

[beheer25]

Zo kan het natuurlijk ook.

En Paul, een Unlock knop is een knop met het label "Unlock" ;-) Niets speciaals dus...


Grtz,

 

[paul.jacobs]

kom deze tegen werkt ook , kijk naar salaris