[Access] Password

[Fede 88]

Quando si clicca su di un pulsante per accedere ad una maschera viene chiesta una password, se la pass inserita non è corretta visualizza un messaggio di errore e non ti fa accedere alla maschera. E' possibile farlo?

[john_revelator]

Ti crei una maschera in cui avrai la tua casella di testo (txtPassword) in cui inserisci la password e un pulsante di invio (nel mio esempio di nome cmdInvia).
Setti la tua password e la confronti con quella inserita dall'utente.
Se coincidono apri la maschera che ti interessa (nel mio esempio si chiama MascheraAccesso), altrimenti mostri il messaggio.


Private Sub cmdInvia_Click()
miaPassword = "pippo"
If Me.txtPassword.Value = miaPassword Then
DoCmd.OpenForm "MascheraAccesso", acNormal
Else
MsgBox ("password errata")
End If
End Sub