G
George
The other day I received help on how to password a form
from opening without a password and I was given the
following code which I inserted in my Form's On Open Event
Private Sub Form_Open(Cancel As Integer)
Dim isgm As String
isgm = InputBox("Enter Password")
If UCase(isgm) = "mypassword" Then
DoCmd.OpenForm "myformname", , , , , , ""
ElseIf UCase(isgm) <> "mypassword" Then
MsgBox ("Incorrect Password")
Cancel = True
End If
End Sub
This works great but when the password box opens as you
type in your password you can see the letters - is there
someway to tweek this to insert asterisks ****** rather
then the letters in your password.
Thanks - George
from opening without a password and I was given the
following code which I inserted in my Form's On Open Event
Private Sub Form_Open(Cancel As Integer)
Dim isgm As String
isgm = InputBox("Enter Password")
If UCase(isgm) = "mypassword" Then
DoCmd.OpenForm "myformname", , , , , , ""
ElseIf UCase(isgm) <> "mypassword" Then
MsgBox ("Incorrect Password")
Cancel = True
End If
End Sub
This works great but when the password box opens as you
type in your password you can see the letters - is there
someway to tweek this to insert asterisks ****** rather
then the letters in your password.
Thanks - George