Text Box - Password Input Mask

[Screaminxpert]

Hi All,

I am using to VBA code on my database to protect a form with a password, I need to know how to create a password input mask in the text box, below is the code I am using...

Private Sub Command231_Click()
Dim stDocName As String
Dim stLinkCriteria As String
Dim PassWordtxt


PassWordtxt = InputBox("Please Type in password")
If PassWordtxt = "password" Then
stDocName = "ViewApplications"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "The password provided was incorrect - you do not have permission"
End If
End Sub

Thanks in advance

 

[Rabbie]

In design mode for your form just set the input mask for the password input box to password

 

[Screaminxpert]

Hi,

The text box is not created using a form, it is created by the VBA code posted in my original question.

Thanks

 

[Kiwiman]

Howzit

I don't think it is possible

http://www.mvps.org/access/general/gen0020.htm