Password Encryption

Password Encryption

am 26.10.2007 16:20:10 von u23986

Can you tell me if there is a way to encrypt my password? I would like it
to just show ***** instead of the actual letters. Here is the code......


Private Sub Command11_Click()
Dim stDocName As String

If InputBox("Enter Password") = "production" Then
DoCmd.OpenForm "Switchboard"
Else
MsgBox "Incorrect password", vbOKOnly, "Beat It"
End If
End Sub

Thank you!
Lori

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/Forums.aspx/databases-ms-ac cess/200710/1

Re: Password Encryption

am 26.10.2007 23:43:44 von Arc

I don't believe you can do this win an input box. What I did was just to
build a simple form with user name / password. Then on the password text
box, I set the input mask to Password

Hope this helps,

Andy
"Lori2836 via AccessMonster.com" wrote in message
news:7a455842970dc@uwe...
> Can you tell me if there is a way to encrypt my password? I would like
> it
> to just show ***** instead of the actual letters. Here is the
> code......
>
>
> Private Sub Command11_Click()
> Dim stDocName As String
>
> If InputBox("Enter Password") = "production" Then
> DoCmd.OpenForm "Switchboard"
> Else
> MsgBox "Incorrect password", vbOKOnly, "Beat It"
> End If
> End Sub
>
> Thank you!
> Lori
>
> --
> Message posted via AccessMonster.com
> http://www.accessmonster.com/Uwe/Forums.aspx/databases-ms-ac cess/200710/1
>