TheunsGoosen
Technical User
Access beginner,
Hi,
Im using code to unlock information so the user can change the information. I also need the input mask to change from "password" to "text", but im struggling with that specific part of the code.
Thanks
Theuns
Private Sub EmployeeCode_Enter()
Dim strInput As String, strMsg As String
strMsg = "'Action code'is password protected."
strInput = InputBox(prompt:=strMsg, _
Title:="Emplyee 'action code'")
If strInput = "CLR" Then
Me.EmployeeCode.Locked = False
'Me.EmployeeCode.InputMask = text
'InputMask = password
Else
Me.EmployeeCode.Locked = True
End If
Hi,
Im using code to unlock information so the user can change the information. I also need the input mask to change from "password" to "text", but im struggling with that specific part of the code.
Thanks
Theuns
Private Sub EmployeeCode_Enter()
Dim strInput As String, strMsg As String
strMsg = "'Action code'is password protected."
strInput = InputBox(prompt:=strMsg, _
Title:="Emplyee 'action code'")
If strInput = "CLR" Then
Me.EmployeeCode.Locked = False
'Me.EmployeeCode.InputMask = text
'InputMask = password
Else
Me.EmployeeCode.Locked = True
End If