VB question

[cornishteeth]

I have the VB code below and works the way I want it. The only question I have is how would I make it to where the input box displays astericks vice the actual input. For example, if I enter 456, 456 is shown in the input box. I want *** to show up in its place. Any suggestions.

Cornish Teeth

Private Sub Command1_Click()

Dim strPasswd

strPasswd = InputBox("Please Enter Password", "Restricted Form")

'See if a valid entry made to input box

If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If

'correct password is entered open Main form Close, Opening Sheet

If strPasswd = "123" Then
DoCmd.OpenForm "Main Form", acNormal
DoCmd.Close acForm, "Opening Sheet"
Else
MsgBox "Sorry, you do not have access to this form", vbOKOnly, "Important Information"
Exit Sub
End If
End Sub

 

[bat17]

I don't think that you can control the format iof an Input box. You will need to create a custom form and pop that up in modal to use it like a input box.

Peter