Password to display asterisk and not text.

[sdimaggio]

I have a command button, that when clicked on a message box will pop up to enter a password. The problem is that you can see the password when you type it in front of someone. Is there a way to make the password display all asterisk rather than the password. Example: "ron" vs. " *** "

Here is my code. Any suggestions.

Private Sub Command70_Click()

Dim stDocName As String
Dim stLinkCriteria As String
Dim Password As String

stDocName = "frm_Override"

Password = InputBox("Enter the Password")
If Password = "ron" Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox ("You're not authorized")
End If
End Sub

Any thoughts on this?

 

[alvechurchdata]

Set the InputMask property to "Password"

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[sdimaggio]

InputBox" is a built in access function. It is not a form I built. That's where my problem lies.

Any thoughts?

 

[PHV]

Create a small modal form to mimic the inputbox.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[sdimaggio]

I'm sorry I do not know what a modal form is. Any help here is appreciated.

 

[PHV]

A popup form open with the acDialog parameter.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[rubbernilly]

set the form's popup property to True, the borderstyle to Dialog, and when you open the form, use the acDialog constant.

The users will have to deal with that form and only that form until they manage to dismiss it (via your code and validation - SO MAKE SURE YOU CODE THIS RIGHT). They won't be able to get to other database objects or menus.

 

[sdimaggio]

Thanks