Using the password input mask

[Neil_Pattison]

I have set up an input box for a password that opens a report using the following code:

Private Sub Report_Open(Cancel As Integer)

Dim PW As String

PW = InputBox("Please enter the password")
If PW = "THECORRECTPASSWORD" Then
Else
MsgBox "The password you entered is not correct"
Cancel = True
Exit Sub
End If

End Sub

I'd like this to be disguised using the password input mask but don't know how to do this. Any help would be greatly appreciated.

 

[ghudson]

Normally you can not format an input box to display astericks when a user keys a password type of string.

Check this link out on how to do it with a lot of code... Disable Shift Key

 

[Neil_Pattison]

Thanks for this

 

[supercharge]

Normally you can not format an input box to display astericks when a user keys a password type of string.

Check this link out on how to do it with a lot of code... Password Security Management

I'm not sure about what you said because I can set the inputmask of a textbox to display asterisks. When users type in anything, it shows as *.

 

[ghudson]

I'm not sure about what you said because I can set the inputmask of a textbox to display asterisks. When users type in anything, it shows as *.

Neil is trying to do it with an input box. The link I provided above gives him the code he needs to do it with an input box. A text box has the password input mask property already built in.