Windsurfer
New member
- Local time
- Today, 16:41
- Joined
- Mar 3, 2001
- Messages
- 7
Hi, I posted something related to this earlier, but I think this will be a better explanation:
-----------------------------------------
Private Sub Form_Activate()
On Error GoTo Err_Form_Activate
Dim lbOK As Boolean
Do
While gsPassword = ""
gsPassword = InputBox("Enter Password:", "OLYMPIA Windows")
Wend
lbOK = fnGoGetUser()
If Not lbOK Then
MsgBox "Wrong Password, try again."
gsPassword = ""
End If
Loop While Not lbOK
Me![Orders by Customer Subform].Requery
Exit_Form_Activate:
Exit Sub
Err_Form_Activate:
MsgBox Err.Description
Resume Exit_Form_Activate
End Sub
--------------------------------------
This works in my replicated database except I can't mask the password, instead of "***" I get "lrd" and is not very secure.
I created a form called "EnterPassword" with an unbound field, made it Modal and replaced the inputbox line with:
-----------------------------------------
DoCmd.OpenForm "EnterPassword"
If gsPassword <> "" Then
End If
-------------------------------------------
When I start the database the form "EnterPassword" opens but I can't enter anything and the program stop responding with the hourglass busy and the hard drive humming.
Is obvious I don't know what I am doing, can someone please help.
Thanks, Emilio
-----------------------------------------
Private Sub Form_Activate()
On Error GoTo Err_Form_Activate
Dim lbOK As Boolean
Do
While gsPassword = ""
gsPassword = InputBox("Enter Password:", "OLYMPIA Windows")
Wend
lbOK = fnGoGetUser()
If Not lbOK Then
MsgBox "Wrong Password, try again."
gsPassword = ""
End If
Loop While Not lbOK
Me![Orders by Customer Subform].Requery
Exit_Form_Activate:
Exit Sub
Err_Form_Activate:
MsgBox Err.Description
Resume Exit_Form_Activate
End Sub
--------------------------------------
This works in my replicated database except I can't mask the password, instead of "***" I get "lrd" and is not very secure.
I created a form called "EnterPassword" with an unbound field, made it Modal and replaced the inputbox line with:
-----------------------------------------
DoCmd.OpenForm "EnterPassword"
If gsPassword <> "" Then
End If
-------------------------------------------
When I start the database the form "EnterPassword" opens but I can't enter anything and the program stop responding with the hourglass busy and the hard drive humming.
Is obvious I don't know what I am doing, can someone please help.
Thanks, Emilio