UnMask the Password on Form Using Command Button

[Mohsin Malik]

Hi Everyone, I am Making an Information Keeper Ms-Access Software, where I have a field name as "Password" whose inputmask has been setup to "Password" on form view, while viewing data it shows "****" as the value enter "1234", I want to make a button which caption is "show" when the Password field is "****" and when it is pressed its caption will be "hide" and the entered value should be shown "1234", I dont know how to show the value for "****" by using a button for the entered value, The attached photo will give you an idea what i want to do, Please help and thanks.

 

[Trevor G]

You need to add some code behind the click event so something like this will work.

Me.UserPassword.InputMask = False

If you then want the caption to change that would be something like this

Me.Label1.Caption = "Hide"

To get them to work together like a toggle switch you need to add the code into an IF Statement or Case Statement.

 

[Mohsin Malik]

Thanks that worked in one side, but when we repress the button when its caption is set to "Hide" from "Show", it could not set the Input Mask Property to its default i-e Input mask=true

 

[MSAccessRookie]

Thanks that worked in one side, but when we repress the button when its caption is set to "Hide" from "Show", it could not set the Input Mask Property to its default i-e Input mask=true

Would something like this work for you?

    If Me.Label1.Caption = "Hide" Then
 
        'Turn on the Input mask and Hide the Password
 
        Me.UserPassword.InputMask = True
        Me.Label1.Caption = "Hide" 
    Else
 
        'Turn off the Input mask and Show the Password
 
        Me.UserPassword.InputMask = False
        Me.Label1.Caption = "Show" 
    End If

 

[Mohsin Malik]

No this trick worked on one side, i tried but it could not worked to UNDO the mask to the first level that it was before "****", It will remain as "1234"(example). The caption is working great but the Input Mask wont be applied, any idea

 

[Mohsin Malik]

I tried:
If Me.lbl.Caption = "Show" Then
Me.password.InputMask = True
Me.lbl.Caption = "Hide"
Else
Me.password.InputMask = False
Me.lbl.Caption = "Show"
End If

 

[Mohsin Malik]

Thank you All I tried that code and it worked for me.
If Me.lbl.Caption = "Show" Then
Me.password.InputMask = True
Me.lbl.Caption = "Hide"
Else
Me.password.InputMask = "Password"
Me.lbl.Caption = "Show"
End If

 

[Simon1999]

Hi Everyone, I have used the code in my application and it worked perfect. but i would like to have the password textbox go back to the password input mask after timer 5-10 seconds.

 

[Simon1999]

Here is the code:

Option Compare Database

Private Sub btnPassward_Click()


If Me.btnPassward.Caption = "Hide" Then
Me.txtPassword.InputMask = True
Me.btnPassward.Caption = "Show"
Me.Form.TimerInterval = 5000
Else
Me.txtPassword.InputMask = "Password"
Me.Form.TimerInterval = 0
Me.btnPassward.Caption = "Hide"

End If


End Sub

Private Sub Form_Timer()
If Me.btnPassward.Caption = "Hide" Then
Me.txtPassword.InputMask = True
Else
Me.txtPassword.InputMask = "Password"
Me.btnPassward.Caption = "Hide"
End If
End Sub