[AccessD] Only allow 3 digits in a textbox

Christopher

True, true! Besides, the built-in error dialog that appears if you don't 
follow the mask is annoying - I'd much rather present my own. But then 
we're heading back towards  more coding ...

Bob Gajewski

On Friday, February 14, 2003 14:32 PM, Christopher Hawkins 
[SMTP:CHawkins at aimworld.com] wrote:
> Bob,
>
> Remember the programmer's credo - the more complicated a solution, the 
more
> fun it is to code!  ;)
>
> Joe, Bob's idea is a good one.  But if you want to get the user more
> involved in the proces, you could add code in the OnExit or AfterUpdate 
that
> uses Len() to evaluate the length of the string and pops up a message box
> prompting the user to enter appropriate data if more than 3 characters 
are
> found.  If you want to be really strict, you can use SetFocus to keep the
> user from tabbing out of that control until the 3-digit condition is
> satisfied
>
>
> -Christopher-
>
> -----Original Message-----
> From: Bob Gajewski [mailto:bob at renaissancesiding.com]
> Sent: Friday, February 14, 2003 11:25 AM
> To: 'accessd at databaseadvisors.com'
> Subject: RE: [AccessD] Only allow 3 digits in a textbox
>
>
> 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
> >
> >
> >
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>