Password programming

[Ranjith Kurian]

Hi all

The below code pop up the input box asking password, and the password is
visible to all, is it possible to convert the character to asterisk.



Private Sub Command1_Click()
Dim strPasswd
strPasswd = InputBox("Enter Password", "Restricted Form")
If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
If strPasswd = "ranjit" Then
DoCmd.OpenForm "PROD", acNormal
Else
MsgBox "Sorry, you do not have access to this form", _
vbOKOnly, "Important Information"
Exit Sub
End If
End Sub

 

[Jack Leach]

I wouldn't know how to do this using InputBox, but if you were to make your
own popup form you can set the Password property of the textbox to true and
it will show * but let you program based on the actual value.

hth
--
Jack Leach
www.tristatemachine.com

"I haven''t failed, I''ve found ten thousand ways that don''t work."
-Thomas Edison (1847-1931)

 

[Jack Leach]

I wouldn't know how to do this using InputBox, but if you were to make your
own popup form you can set the Password property of the textbox to true and
it will show * but let you program based on the actual value.

hth
--
Jack Leach
www.tristatemachine.com

"I haven''t failed, I''ve found ten thousand ways that don''t work."
-Thomas Edison (1847-1931)

 

[Jack Leach]

you can set the Password property of the textbox

I have no idea what I'm talking about.

How about setting the Input Mask to Password instead...

Sorry about that

--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)

 

[Jack Leach]

you can set the Password property of the textbox

I have no idea what I'm talking about.

How about setting the Input Mask to Password instead...

Sorry about that

--
Jack Leach
www.tristatemachine.com

"I haven't failed, I've found ten thousand ways that don't work."
-Thomas Edison (1847-1931)