I have found this code to input a password........
but the text shows as letters and not as the usual stars...****
How do I hide the password using the inputbux cmd?
Private Sub Command110_Click()
On Error GoTo Err_Command110_Click
DoCmd.OpenForm "Initialise"
DoCmd.GoToRecord acDataForm, "initialise", acFirst
Dim Tries As Integer
Tries = 0
Dim Password, Pword
Password = Forms!Initialise!Text2
DoCmd.Close
GoTo Pwd
Pwd:
Pword = InputBox("Type in your password"
Tries = Tries + 1
GoTo Check
Check:
If Tries >= 3 Then MsgBox "Sorry, 3 Tries and I Quit": DoCmd.Quit
If Pword <> Password Then
MsgBox "Sorry, incorrect password"
GoTo Pwd
End
End If
Form!SchoolDocs.Visible = True
Command111.Visible = True
Exit Sub
Exit_Command110_Click:
Exit Sub
Err_Command110_Click:
MsgBox Err.Description
Resume Exit_Command110_Click
but the text shows as letters and not as the usual stars...****
How do I hide the password using the inputbux cmd?
Private Sub Command110_Click()
On Error GoTo Err_Command110_Click
DoCmd.OpenForm "Initialise"
DoCmd.GoToRecord acDataForm, "initialise", acFirst
Dim Tries As Integer
Tries = 0
Dim Password, Pword
Password = Forms!Initialise!Text2
DoCmd.Close
GoTo Pwd
Pwd:
Pword = InputBox("Type in your password"
Tries = Tries + 1
GoTo Check
Check:
If Tries >= 3 Then MsgBox "Sorry, 3 Tries and I Quit": DoCmd.Quit
If Pword <> Password Then
MsgBox "Sorry, incorrect password"
GoTo Pwd
End
End If
Form!SchoolDocs.Visible = True
Command111.Visible = True
Exit Sub
Exit_Command110_Click:
Exit Sub
Err_Command110_Click:
MsgBox Err.Description
Resume Exit_Command110_Click