Can anyone help to tell me what needs to be entered in this code to enable xxxxx to appear into the enter password box so people cannot view what there typing in.
Private Sub New_Order_Click()
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Please enter your password."
strInput = InputBox(Prompt:=strMsg, title:=" Password")
If strInput = "1111" Then 'password is correct
'DoCmd.GoToRecord , , acLast
'DoCmd.GoToRecord , , acNext
SendOrder.Enabled = True
SendOrder.SetFocus
Date_Required.Enabled = True
Combo268.Enabled = True
Text266.Enabled = True
Text272.Enabled = True
Text274.Enabled = True
Text276.Enabled = True
Text278.Enabled = True
Text280.Enabled = True
Text282.Enabled = True
Text284.Enabled = True
Text288.Enabled = True
Text292.Enabled = True
Text294.Enabled = True
Text296.Enabled = True
Text298.Enabled = True
Text284.Enabled = True
Text302.Enabled = True
Combo334.Enabled = True
Text338.Enabled = True
Text340.Enabled = True
Text130.Enabled = True
Thanks in advance JUDO
Private Sub New_Order_Click()
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Please enter your password."
strInput = InputBox(Prompt:=strMsg, title:=" Password")
If strInput = "1111" Then 'password is correct
'DoCmd.GoToRecord , , acLast
'DoCmd.GoToRecord , , acNext
SendOrder.Enabled = True
SendOrder.SetFocus
Date_Required.Enabled = True
Combo268.Enabled = True
Text266.Enabled = True
Text272.Enabled = True
Text274.Enabled = True
Text276.Enabled = True
Text278.Enabled = True
Text280.Enabled = True
Text282.Enabled = True
Text284.Enabled = True
Text288.Enabled = True
Text292.Enabled = True
Text294.Enabled = True
Text296.Enabled = True
Text298.Enabled = True
Text284.Enabled = True
Text302.Enabled = True
Combo334.Enabled = True
Text338.Enabled = True
Text340.Enabled = True
Text130.Enabled = True
Thanks in advance JUDO