ACC2000: How to Limit Input in Unbound Text Box

Method 1

   Input Mask: CCCCC
				

Method 2

1. Open any database and create a new form.
2. Add an unbound text box to your form.
3. Press ALT+F11 to open the Visual Basic Editor and insert a new module.
4. Type or copy and paste the following subroutine:

   Sub LimitFieldSize (KeyAscii, MAXLENGTH)
      Dim C As Control
      Dim CLen As Integer
   
      Set C = Screen.ActiveControl
   
      ' Exit if a non-printable character is typed.
      If KeyAscii < 32 Then Exit Sub
   
      ' Exit if typing replaces a selection.
      If C.SelLength > 0 Then Exit Sub
   
      ' Fetch length of current contents + 1 for the character typed.
      CLen = Len(C.Text & "") + 1
   
      ' Are there trailing spaces to contend with?
      If C.SelStart + 1 > CLen Then CLen = C.SelStart + 1
   
      ' Is length of string greater than max?
      If CLen > MAXLENGTH Then
        Beep
        KeyAscii = 0
      End If
   End Sub
   					

5. For each unbound text box control where you want to control input, add the following code:

   LimitFieldSize KeyAscii, 50
   						

   For example, for Text0 text box, use the following code:

   Private Sub Text0_KeyPress(KeyAscii As Integer)
     LimitFieldSize KeyAscii, 50
   End Sub
   						

6. Close the Visual Basic Editor and return to Microsoft Access. Enter a string of characters in Text0 text box and note that your input is limited to 50.