I have an inputbox that prompts a user to enter a password..part of the function is below. I just want when the user types in the password for it to be in ****** or password format ?????
Do
Response = InputBox("Enter Password", "Hold on a minute there...")
If Response = PW Then
If CurrentType = acForm And CurrentName = "mainmenu" Then
Else
Exit Function
End If
Application.SetOption "Show Hidden Objects", "Yes"
Forms![mainmenu]![EnterRegion] = 1234
DoCmd.Close
DoCmd.RunCommand acCmdWindowUnhide
Exit Function
Else
MsgBox "Password not correct...", , "Wrongo !"
Try = Try + 1
If Try = 3 Then
DoCmd.Close
End If
End If
Loop
Do
Response = InputBox("Enter Password", "Hold on a minute there...")
If Response = PW Then
If CurrentType = acForm And CurrentName = "mainmenu" Then
Else
Exit Function
End If
Application.SetOption "Show Hidden Objects", "Yes"
Forms![mainmenu]![EnterRegion] = 1234
DoCmd.Close
DoCmd.RunCommand acCmdWindowUnhide
Exit Function
Else
MsgBox "Password not correct...", , "Wrongo !"
Try = Try + 1
If Try = 3 Then
DoCmd.Close
End If
End If
Loop