Forms

3.120 Limitare il numero di caratteri digitati all'interno di una casella di testo non associata
  Giuseppe Costanzi

Impostare la proprietà TAG della casella di testo con il numero di caratteri che si vuole che l'utente possa digitare in quel controllo. Per esempio, in una casella di testo per l'immissione del CAP, nella sua proprietà TAG imposteremo il valore 5.
A fronte dell'evento "Su tasto giù" della casella di testo che conterrà il CAP genereremo il codice VBA sottostante.
L'istruzione Select Case permette la cancellazione dei caratteri inseriti in caso di errore.
Private Sub txtCAP_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo ErrHandle
Select Case KeyCode
Case 8, 46
Case Else
   If Len(Me.CAP.Text) > CAP.Tag - 1 Then KeyCode = 0
End Select
ErrHandle:
If Err.Number = 0 Then Exit Sub
MsgBox "Errore numero: " & Err.Number & " Descrizione: " & Err.Description & " Sorgente: " & Err.Source & " Evento: CAP_KeyDown " 
End Sub

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.