[AccessD] Only allow 3 digits in a textbox

Hi All,

A2K - unbound form

I am trying to create a textbox that only allows whole numbers AND only
allows three digits.

I am working with the KeyPress event of this textbox.

What I have so far only allows digits to be entered, but I can't determine
the length of the textbox. If I use Me.textbox or Me.txtbox.Text or
Me.txtbox.Value it returns Null regardless of the actual contents of the
textbox.

Here is what I have so far:


Private Sub txtNumOfOccurr_KeyPress(KeyAscii As Integer)

If (IsNull(Me.txtNumOfOccurr)) Or (Not (Len(Me.txtNumOfOccurr) = 3)) Then
   		If Not (IsNumeric(Chr(KeyAscii))) And (KeyAscii <> 8) Then
        			KeyAscii = 0
    		End If
Else
   		KeyAscii = 0
End If

End Sub

Any ideas?

Thanks,

Joe Rojas
jrojas at tnco-inc.com




This electronic transmission is strictly confidential to TNCO, Inc. and
intended solely for the addressee. It may contain information which is
covered by legal, professional, or other privileges. If you are not the
intended addressee, or someone authorized by the intended addressee to
receive transmissions on behalf of the addressee, you must not retain,
disclose in any form, copy, or take any action in reliance on this
transmission. If you have received this transmission in error, please notify
the sender as soon as possible and destroy this message. While TNCO, Inc.
uses virus protection, the recipient should check this email and any
attachments for the presence of viruses. TNCO, Inc. accepts no liability for
any damage caused by any virus transmitted by this email.