Visualizzare gli asterischi di una password.

Question

Buongiorno,

in un db vorrei aprire una maschera mediante password, in modo semplice, con l'unico particolare che quando la si digita vengano visualizzati gli asterischi in luogo del testo in chiaro.

Ho creato una maschera popup "FrmPassword" con una casella di testo"TxtPassword" ed un pulsante "BtnPassword".

Nella rete ho trovato questo codice:

Private Sub BtnPassword_Click()

If TxtPassword = "(miapassword)" Then

DoCmd.Close: DoCmd.OpenForm "(FrmFunzioniServizio)"

Else

MsgBox "Password Errata!": TxtPassword = "": DoCmd.GoToControl "TxtPassword"

End If

End Sub

Quando digito la password, nell'esempio: "miapassword" , visualizzo correttamente gli asterischi ma risulta errata.

Grazie per l'aiuto.

Abitante

Answer 1

ciao Abitante,

credo che tu debba togliere le parentesi :

Private Sub BtnPassword_Click()

If TxtPassword = "miapassword" Then

      DoCmd.Close: DoCmd.OpenForm "FrmFunzioniServizio"

Else

     MsgBox "Password Errata!": TxtPassword = "": DoCmd.GoToControl "TxtPassword"

End If

End Sub

valuta anche questa modalità :

Private Sub BtnPassword_Click()

With Me.TxtPassword

    If .Value = "miapassword" Then

        DoCmd.OpenForm FormName:="Categorie", _

                       View:=acNormal

    Else

        VBA.MsgBox prompt:="Password Errata!", _

                   buttons:=vbCritical + vbOKOnly, _

                   Title:="Attenzione"

        .Value = null

        .SetFocus

    End If

End With

End Sub

usa l'indentezione quando scrivi il codice, rendi il tutto più leggibile più debuggabile, e meno prono a qualsivoglia errore.

Ciao, Sandro.

Answer 2

Ciao Sandro,

Tutto perfetto.

Grazie infinite anche per il suggerimento relativo alla scrittura del codice.

Buona giornata e buona Domenica.

Abitante