Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Limitando o número de caracteres em caixa de texto

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Dica Limitando o número de caracteres em caixa de texto

    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.

    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
    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:


    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
    ~# Criado pela [IN]Segurança #~
X
Working...
X