Field default value + limit entry to numbers only

[Lukael]

Hi,

I need to input in Textbox default value "1234-", and after that only allow to input numbers.

If I format field to number, "-" is recognized as invalid character, but If I format Textbox to text, user can enter letters too.



Is there any way to achieve this ?

[cyanidem]

Maybe input mask? like:
"1234-"0000
And field format must be text for that.

[Lukael]

Maybe input mask? like:
"1234-"0000
And field format must be text for that.

No, this is not working, unfortunally. Whether text or number field format, It returns "1234-1234".

[cyanidem]

What is not working? It works for me, just tested.

[Lukael]

I'm sorry, I wasn't clear enough. Not table field, display of textbox in form. It displays me as I mentioned.

I tried this too: "1234-"999999999, and It works, but...Is there any way to get rid of underline (underscore) character ? I would rather use msgbox that would alert user for wrong input ?

[cyanidem]

Same input mask applied to textbox on form works as well for me...
And if you want to get rid of underscore, set input mask to:
"1234-"000000000;;" "
Last part after ";" describes placeholder character.




If you don't know how many digits will need to be inputted then of course "1234-"999999999;;" ", as you mentioned.

[Missinglinq]

Not really sure about the exact Input Mask you need, since it depends on whether or not the number of digits to be entered is fixed or variable, but after you get that straight, this code will only allow the physical entry (by keyboard) of digits, and pops up a MessageBox if the user attempts to enter alpha characters. The code also allows for entry from the KeyPad and allows the use of navigation keys.

 Private Sub YourTextBoxName_KeyDown(KeyCode As Integer, Shift As Integer)

  Select Case KeyCode

   Case 48 To 57

   'Do nothing: Numerical characters (digits) are allowed

   Case vbKeyDelete, vbKeyBack, vbKeyReturn, vbKeyRight, vbKeyLeft, vbKeyTab

   'Do nothing: Allow Delete and Navigation keys to be used

   Case vbKeyNumpad0, vbKeyNumpad1, vbKeyNumpad2, vbKeyNumpad3, vbKeyNumpad4, vbKeyNumpad5, vbKeyNumpad6, vbKeyNumpad7, vbKeyNumpad8, vbKeyNumpad9

   'Do nothing: Allow input from Numbers Keypad

   Case Else

   'Don't allow any other keys to be used

  MsgBox "Please Enter Digits Only!"

  KeyCode = 0

  End Select

End Sub

Linq ;0)>

[Lukael]

Great,

exactly what I need, combination of both does the trick !

First, input mask as I want, and then a custom Msgbox if user types anything that is not allowed in field

Thanks to both of you !!!

EDIT:

I also added code for custom Msgbox on input mask violation :

 Private Sub Form_Error (DataErr As Integer, Response As Integer)
      Const INPUTMASK_VIOLATION = 2279
      If DataErr = INPUTMASK_VIOLATION Then
         MsgBox "There was an input mask violation!"
         Response = acDataErrContinue
      End If
   End Sub

Maybe somebody will find It useful.

[Missinglinq]

The Error Messages the Access Gnomes produce are often confusing and seldom helpful, to the average end-user, and 're-writing' them, using the Form_Error event, is something I've frequently done!

Glad we could help!

Good luck with your project!

Linq ;0)>