Esta dica mostra como implementar no Access a propriedade MaxLenght, igual as caixas de texto do VB.
Primeiramente você deve criar uma caixa de texto com o nome de Campo0 em um formulário qualquer.
Complemento da dica enviada por Bagé ao perceber que quando atingia o número de caracteres especificado o teclado "trava" devido a instrução "KeyAscii = 0", e não permitia usar nem o BackSpace.
A modificação que permite utilizar o BackSpace (Apagar), está abaixo:
Primeiramente você deve criar uma caixa de texto com o nome de Campo0 em um formulário qualquer.
Código:
Sub Campo0_KeyPress (KeyAscii As Integer) If IsNull(Me!campo0.text) Then Me!campo0.text = "" Else If Len(Me!campo0.text) > 3 Then KeyAscii = 0 End If End If End Sub
A modificação que permite utilizar o BackSpace (Apagar), está abaixo:
Código:
Sub Texto19_KeyPress(KeyAscii As Integer) If IsNull(Me!Texto19.Text) Then Me!Texto19.Text = "" ElseIf KeyAscii = 8 Then Exit Sub Else If Len(Me!Texto19.Text) > 12 Then KeyAscii = 0 End If End If End Sub