Passwords

7 Dec 2006 5:14 AM

Roger Bell

I have written the following OnClick Event Procedure. It works well, except
I would like ******** to appear as the Password is entered, not the actual
Password being typed. Is there any way I can do this?
Thanks fo any help

Private Sub MEMBERS_FORM_Click()
On Error GoTo Err_MEMBERS_FORM_Click

    Dim stDocName As String

    stDocName = "MEMBERS INFORMATION"
If InputBox("Please Enter Password") = "benyror" Then
    DoCmd.OpenReport stDocName, acPreview
Else
    MsgBox "Sorry, Incorrect Password"
End If

Exit_MEMBERS_FORM_Click:
    Exit Sub

Err_MEMBERS_FORM_Click:
    MsgBox Err.Description
    Resume Exit_MEMBERS_FORM_Click

End Sub

7 Dec 2006 2:21 PM

Joan Wild

Not with an input box, no. You'll have to create your own unbound form.
You can set the input mask on a textbox to password to mask the characters.

--
Joan Wild
Microsoft Access MVP

Roger Bell wrote:

Show quoteHide quote

> I have written the following OnClick Event Procedure. It works well,
> except I would like ******** to appear as the Password is entered,
> not the actual Password being typed. Is there any way I can do this?
> Thanks fo any help
>
> Private Sub MEMBERS_FORM_Click()
> On Error GoTo Err_MEMBERS_FORM_Click
>
>    Dim stDocName As String
>
>    stDocName = "MEMBERS INFORMATION"
> If InputBox("Please Enter Password") = "benyror" Then
>    DoCmd.OpenReport stDocName, acPreview
> Else
>    MsgBox "Sorry, Incorrect Password"
> End If
>
> Exit_MEMBERS_FORM_Click:
>    Exit Sub
>
> Err_MEMBERS_FORM_Click:
>    MsgBox Err.Description
>    Resume Exit_MEMBERS_FORM_Click
>
> End Sub

8 Dec 2006 12:10 AM

Roger Bell

Thanks for that Joan.
Would you be able to guide me in the right direction?

Show quoteHide quote

"Joan Wild" wrote:

> Not with an input box, no. You'll have to create your own unbound form.
> You can set the input mask on a textbox to password to mask the characters.
>
> --
> Joan Wild
> Microsoft Access MVP
>
> Roger Bell wrote:
> > I have written the following OnClick Event Procedure. It works well,
> > except I would like ******** to appear as the Password is entered,
> > not the actual Password being typed. Is there any way I can do this?
> > Thanks fo any help
> >
> > Private Sub MEMBERS_FORM_Click()
> > On Error GoTo Err_MEMBERS_FORM_Click
> >
> >    Dim stDocName As String
> >
> >    stDocName = "MEMBERS INFORMATION"
> > If InputBox("Please Enter Password") = "benyror" Then
> >    DoCmd.OpenReport stDocName, acPreview
> > Else
> >    MsgBox "Sorry, Incorrect Password"
> > End If
> >
> > Exit_MEMBERS_FORM_Click:
> >    Exit Sub
> >
> > Err_MEMBERS_FORM_Click:
> >    MsgBox Err.Description
> >    Resume Exit_MEMBERS_FORM_Click
> >
> > End Sub
>
>
>

8 Dec 2006 2:46 PM

Joan Wild

See these knowledge base articles:
http://support.microsoft.com/?id=209871
http://support.microsoft.com/?id=179371

--
Joan Wild
Microsoft Access MVP

Roger Bell wrote:

Show quoteHide quote

> Thanks for that Joan.
> Would you be able to guide me in the right direction?
>
> "Joan Wild" wrote:
>
>> Not with an input box, no. You'll have to create your own unbound
>> form. You can set the input mask on a textbox to password to mask
>> the characters.
>>
>> --
>> Joan Wild
>> Microsoft Access MVP
>>
>> Roger Bell wrote:
>>> I have written the following OnClick Event Procedure. It works
>>> well, except I would like ******** to appear as the Password is
>>> entered, not the actual Password being typed. Is there any way I
>>> can do this? Thanks fo any help
>>>
>>> Private Sub MEMBERS_FORM_Click()
>>> On Error GoTo Err_MEMBERS_FORM_Click
>>>
>>>    Dim stDocName As String
>>>
>>>    stDocName = "MEMBERS INFORMATION"
>>> If InputBox("Please Enter Password") = "benyror" Then
>>>    DoCmd.OpenReport stDocName, acPreview
>>> Else
>>>    MsgBox "Sorry, Incorrect Password"
>>> End If
>>>
>>> Exit_MEMBERS_FORM_Click:
>>>    Exit Sub
>>>
>>> Err_MEMBERS_FORM_Click:
>>>    MsgBox Err.Description
>>>    Resume Exit_MEMBERS_FORM_Click
>>>
>>> End Sub