I am using this code to create a password protected form, but it shows the text being typed into the InputBox as text. I want to turn it into *****. Any help?

'Attached to On Click event of a button to Open Form

Dim strPasswd

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

'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.

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

'If correct password is entered open form
'If incorrect password entered give message and exit sub

If strPasswd = "password" Then
DoCmd.OpenForm "frmNewForm", acNormal

Else
MsgBox "Sorry, you do not have access to this form", _ vbOKOnly, "Important Information"
Exit Sub
End If

mmcdonal

__________________
mmcdonal

Look it up at: http://wrox.books24x7.com

Set the Input Mask property to password on the table for the field (if stored in a table) and for the textbox control into which this is entered.

Ciao
Jürgen Welz
Edmonton AB Canada
[email protected]

It is not my intent to be disrespectful but, I believe this is the shortest response I've seen from Jürgen in the past few weeks. Unfortunately, I think you may have missed the mark on this one Jürgen. If I understand correctly, mmcdonal is seeking to mask the text for the password as it is typed in the input box.

I don't have the answer yet, but you may have to change from an Inputbox response to calling a form that contains a text box with the input mask property set to password as Jürgen suggested. You can set other properties on the form, such as modal and dialog, to make it appear as an Inputbox and then perform your authentication routine in the Onclick event on the Ok button of this "pop-up password entry" form.

I'll keep searching to see what I can find on this subject. If I come up with anything, I'll post it here. In the meantime, good luck with your project.




Darrell L. Embrey

Darrell:

You're 100% correct. I recall that Access 97 had some formatting character codes (for msgbox and inputbox) which no longer worked in Access 2000 (don't know about subsequent versions) but these did never did include a password mask. I believe the definitive word was:

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



Ciao
Jürgen Welz
Edmonton AB Canada
[email protected]

Thanks folks, I will work on this form. I will need to look up how to take the form value and pass it back to the variable strPasswrd.

mmcdonal