password help

[lipin]

I have a couple buttons that when clicked ask for a password.

When entering the password in the Input box, how Do you get it to display a * for each letter you type.
I have to give a live presentation and I will have to enter the password. As it is now whatever I type shows in the box. There will be people that don't need to see it. Is this possible?

 

[Autoeng]

In a text box set the property Input Mask to Password. If this is not a text box you can't mask it.

Autoeng

 

[lipin]

not sure

It is a Command Button that is password protected, and it opens a 2nd form.
Here is the code:
Private Sub DataEntry_Click()
On Error GoTo Err_Data_Entry_Click

Dim strInput As String
Dim strMsg As String

Beep
strMsg = "Please Enter Password For Data Entry"
strInput = InputBox(Prompt:=strMsg, Title:="Password Required")

If strInput = "password" Then
Beep


Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmDateForm"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Refresh
Else
Beep
MsgBox "Incorrect Password."
Exit Sub
End If

Exit_Data_Entry_Click:
Exit Sub

Err_Data_Entry_Click:
MsgBox Err.Description
Resume Exit_Data_Entry_Click
***************************
So where you enter the password is in the MgsBox not on actual form.

 

[Autoeng]

Sorry but can't be done in using a properties mask in the way you are doing it. Search the forms for "password" for get-arounds as I think I've seen one somewhere.

Autoeng