I want to restrict a user to enter ONLY numbers 0-9 in a text box with
a max length of 10 digits. No signs, spaces allowed. All 10 digits are
not compulsory ... the user may enter just 8 digits also.

In another text box I want the user to enter a max number of 3
characters (letters) A-Z ONLY. No special characters allowed. All 3
letters are not compulsory ... the user may enter just 1 or 2 letters
only.

Could someone please help with this ?

Thx.
Prakash.

Prakash wrote:

On May 18, 6:06*pm, Salad <sa... (AT) oilandvinegar (DOT) com> wrote:
Thx Salad ... but both allow "spaces" to be typed in (especially
9999999999). Any way of circumventing this ?

Rgds
Prakash.

Prakash wrote:

Yes. Press Help (F1) on InputMask property. Switch 9 to 0.

On May 19, 5:13*pm, Salad <sa... (AT) oilandvinegar (DOT) com> wrote:
Thx a ton Salad for your responses. I did try the F1 & searching
online too. And yes, I did try the inputmask "0000000000". The problem
here is that the user has to enter all 10 numeric characters. What if
the user wants to enter just 7 or 8 chars ?

I once again repeat ...
I want to restrict a user to enter ONLY numbers 0-9 in a text box
with
a max length of 10 digits. No signs or spaces to be allowed. All 10
digits are
not compulsory ... the user may enter just 8 digits also.

Thx again & Rgds,
Prakash.

Prakash wrote:

Don't know. You could use the 9 or #. Maybe have some event code to
remove spaces. Ex:
? replace("12 34 56"," ","")
123456

On May 18, 6:06*am, Prakash <sim... (AT) omantel (DOT) net.om> wrote:
Try the following:

'begin module code
Public Function LimitFieldToNDigits(KeyAscii As Integer, txtBox As
TextBox, intMax As Integer) As Integer
'If the field has reached its maximum then return 0
LimitFieldToNDigits = KeyAscii
'Always allow backspace
If KeyAscii = 8 Then Exit Function
txtBox.SetFocus
If Len(txtBox.Text) = intMax Then
LimitFieldToNDigits = 0
Exit Function
End If
'Only allow digits
If KeyAscii < 48 Or KeyAscii > 57 Then
LimitFieldToNDigits = 0
End If
End Function
'end module code

Example:

'begin code behind form
Private Sub txtDigitsOnly_KeyPress(KeyAscii As Integer)
KeyAscii = LimitFieldToNDigits(KeyAscii, txtDigitsOnly, 10)
End Sub
'end code behind form

Note: It will not prevent someone from pasting nondigits into the
textbox. Perhaps the BeforeUpdate (for bound) or AfterUpdate (for
unbound) events can be used to complete validation without getting
bogged down in such details.

James A. Fortune
MPAPoster (AT) FortuneJames (DOT) com