Prev: Trouble with Me.Undo in microsoft split form
Next: Cmdbuttons to download
From: lmossolle on 11 Dec 2009 08:41
I am using the following code, I would like the password typed to be masked
is it possible?

Private Sub Command15_Click()
Dim stPassword As String
stPassword = InputBox("Enter Your Password")
If stPassword = "areaa" Then
Me.Visible = True
DoCmd.OpenForm "MICC-HQ_Frm", acNormal
Me.Visible = True
Else
MsgBox "You Entered the wrong password"
End If
End Sub


Thanks,
From: Jeff Boyce on 11 Dec 2009 08:44
Take a look at the input mask property. I believe there's a "Password"
mask.

--

Regards

Jeff Boyce
Microsoft Access MVP

Disclaimer: This author may have received products and services mentioned in
this post. Mention and/or description of a product or service herein does
not constitute endorsement thereof.

Any code or pseudocode included in this post is offered "as is", with no
guarantee as to suitability.

You can thank the FTC of the USA for making this disclaimer
possible/necessary.

"lmossolle" <lmossolle(a)discussions.microsoft.com> wrote in message
news:CC5625F8-CF04-42E8-8072-81483343A7F6(a)microsoft.com...
>I am using the following code, I would like the password typed to be masked
> is it possible?
>
> Private Sub Command15_Click()
> Dim stPassword As String
> stPassword = InputBox("Enter Your Password")
> If stPassword = "areaa" Then
> Me.Visible = True
> DoCmd.OpenForm "MICC-HQ_Frm", acNormal
> Me.Visible = True
> Else
> MsgBox "You Entered the wrong password"
> End If
> End Sub
>
>
> Thanks,


 | 
Pages: 1
Prev: Trouble with Me.Undo in microsoft split form
Next: Cmdbuttons to download