Open a form with password

I need to open a specific form with a password
I writed this code that works fine but with a limitation. The users can see
the password during typing, instead to see ****** as usual
Anyone can help me ?
sorry for the italian words inside
Regards
Diego

Dim strInputBox As String, bytChoice As Byte
Dim ctl As Control
InputPoint:
strInputBox = InputBox("Inserisci la password.", "Area Protetta da password!
")
If Len(strInputBox) > 0 Then
If strInputBox <> "pippo" Then
bytChoice = MsgBox("Password non corretta" & vbNewLine & vbNewLine &
"Vuoi riprovare ?", vbExclamation + vbYesNo, "Warning")
If bytChoice = vbYes Then
GoTo InputPoint
Else
Cancel = True
End If
Else
DoCmd.OpenForm ("Campi_Report")

End If
Else
'Cancel = True
'End If

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200809/1

.

Relevant Pages

  • RE: Open a form with password
    ... Select the password textbox. ... Dim strInputBox As String, bytChoice As Byte ... 'Cancel = True ...
    (microsoft.public.access.formscoding)
  • Re: before update event question
    ... > If bytChoice = vbyes Then ... > If bytChoice = vbno Then ... > cancel = true ...
    (microsoft.public.access.formscoding)