Bob Gajewski
bob at renaissancesiding.com
Fri Feb 14 13:25:09 CST 2003
Joe Maybe this is an overly-simplistic approach, but why don't you just specify an Input Mask (000;;_) or (990;;_) ? Bob Gajewski On Friday, February 14, 2003 13:41 PM, Joe Rojas [SMTP:JRojas at tnco-inc.com] wrote: > 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 > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > > >