input mask using value from other field

[travellinman]

Hi, I'd like to make an input mask, based on another field's value. For example, if the value of the other field (in another table) is 125, then i want my input mask to start with 125, subsequently adding three more digits for the user to fill in. So something like: 125 - _ _ _

Is this possible? If so, is it also possible to use a field from the same record? Using Access 2003 on Win XP.

Thanks a lot!

[ADezii]

Hi, I'd like to make an input mask, based on another field's value. For example, if the value of the other field (in another table) is 125, then i want my input mask to start with 125, subsequently adding three more digits for the user to fill in. So something like: 125 - _ _ _

Is this possible? If so, is it also possible to use a field from the same record? Using Access 2003 on Win XP.

Thanks a lot!

You need to set the Input Mask programmmatically in the AfterUpdate() Event of the 1st Field.
Assumptions:
__1 Field1 Name - txtTextBox1
__2 Field2 Name - txtTextBox2
__3 Input Mask on txtTextBox2 (Phone#) - "(###) ###-####"

Private Sub txtTextBox1_AfterUpdate()
If Me![txtTextBox1] = 125 Then
  Me![txtTextBox2].InputMask = "(###) ###-####"
End If
End Sub

[travellinman]

thanks for your help! you put me on the right path. I modified the code a bit to read:

Private Sub Text2_GotFocus()
  Me![Text2].InputMask = Me![Text0] & "-###"
End Sub

However, when i input a value in field Text0 that has zeros, then the input mask for field Text2 will interpret that as a place for a digit. I can circumvent this by placing \ in front of every zero, but is there any way to go around this? I.e.: if a user types 100 in field Text0, that the input mask in field Text2 will be 100- _ _ _

[NeoPa]

Private Sub Text2_GotFocus()
  Me.[Text2].InputMask = Replace(Me.[Text0],"0","\0") & "-###"
End Sub

[travellinman]

works like a charm. thanks a lot!

[NeoPa]

Happy to help :)