Password Control

[P.Malius]

Hi,

I have some code used to protect a button, everything is working fine except the password shows up as actual characters, obviously this is not ideal. Could anyone tell me a way to have the letters inputted show up as '*' or something along those lines? Is this even possible using this method?



The Code I used is

Private Sub Command163_Click()
        
        Dim PassWord As String
           PassWord = InputBox("Enter Password")
           If PassWord = "password" Then
                Forms!frmSpecification.FRStatus = "Approved"
                Forms!frmSpecification.FRDate = Now()
           Else
              MsgBox ("Access Denied! Use the Main Menu to report a problem.")
           End If

End Sub

Thanks.

[jzwp11]

I do not know if you have much in the way of formatting options with the InputBox() structure. I typically use a form for login and that way you can use the input mask property of the textbox control on the form to show **** instead of the actual text of the password.

[P.Malius]

I did consider this option when setting up the DB but it all was a bit complicated considering I only wanted the one button protecting. I can live with how it is, I just thought I'd see if anyone knew of a way. Thanks anyway.

[jzwp11]

Sorry I could not be of more help.

[Missinglinq]

A separate 'login' Form makes sense, for logging into an app, but for this kind of thing, why not simply have a Textbox adjacent to the Command Button for the password to be entered into, use the Password Formatting, as suggested, and have the code look at this Textbox instead of using the InputBox function?

Linq ;0)>