Changing the input mask with code

[theunsgoosen]

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_En ter()
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.EmployeeCod e.InputMask = text
'InputMask = password
Else
Me.EmployeeCode .Locked = True

End If

[missinglinq]

The question that has to be asked is "Why?" If you feel it's important enough to require an input mask in one instance, why would you change that in another instance? At any rate, the simple fact is that you can't! Input masks can only be defined in Design View.

Also, when using most Input Masks (it doesn't really matter for Password) be sure in use code like this to assure that if the user clicks on the textbox the cursor will go to the beginning of the field. Otherwise the insert point will be wherever they clicked in, and they'll waste time redoing it!

Private Sub YourTextBoxName_Click()
   Me.YourTextBoxName.SelStart = 0
End Sub
 

If your Access default for Entering a Field is set to anything other than "Go to start of field," also use this

 Private Sub YourTextBoxName_GotFocus()
  Me.YourTextBoxName.SelStart = 0
End Sub

Welcome to TheScripts!

Linq ;0)>

[ADezii]

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_En ter()
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.EmployeeCod e.InputMask = text
'InputMask = password
Else
Me.EmployeeCode .Locked = True

End If

You can programmaticall y change the Input Mask for a Control, but as indicated by missingling, why? If you insist, the logic wouold be something similar to:

Private Sub txtTest_GotFocus()
  If <some condition> = True Then
    Me![txtTest].InputMask = "Password"
  Else
    Me![txtTest].InputMask = "000-00-0000"
  End If
End Sub

[missinglinq]

Didn't realize that, ADezii! Access Help doesn't mention this; what a surprise!

Linq ;0)>

[ADezii]

Didn't realize that, ADezii! Access Help doesn't mention this; what a surprise!

Linq ;0)>

Like you stated earlier, it's something you wouldn't normally do with code, but there's always a first.

[TomTheToolman]

I know this is an ancient thread, but it points out something that novices and experts alike need to remember: don't ask WHY, just answer the question.

In this case, it is now more and more common to see a "show" checkbox (cell phones and desktops both) so you can see your password when no one is looking over your shoulder.

Here, the "beginner" is showing the "experts" something they could have used!

Tom the Toolman