[Resolvido]Limitar tamanho de campo não acoplado a tabela

Tenho um campo em um formulário que não está acoplado a nenhuma tabela e portanto não consegui limitar o número de caracteres deste campo. Tentei utilizar um código vba mas o mesmo não atualiza o número de caracteres a cada digitação e portanto "conta" o número de caracteres.

Private Sub TxtUsuario_Change()

If Len(Me.TxtUsuario) > 6 Then
MsgBox "Tamanho máximo excedido"
Me.TxtSenha.Undo
End If

End Sub

Alguma dica? Obrigado

Tente assim:

If Len(Me.TxtUsuario.Text) > 6 Then
MsgBox "Tamanho máximo excedido"
Me.TxtSenha.Undo
End If

Bom dia! O seu código deu certo. No entanto com a alteração ao invés do comando apagar so a ultima digitação, apaga todo o campo. Então agora eu preciso de um complemento para que este código apague a ultima letra digitada. Se alguém puder ajudar. Agradeço desde já.

Talvez assim:

If Len(Me.TxtUsuario.Text) > 6 Then
MsgBox "Tamanho máximo excedido"
Me.TxtSenha = Left(Me.txtSenha, 6)
End If

Olá! Este problema foi resolvido com o seguinte código:

Private Sub TxtUsuario_Change()

If Len(Me.TxtUsuario.Text) > 12 Then
Me.TxtUsuario = Left(Me.TxtUsuario.Text, 12)
Me.TxtUsuario.SelStart = 12
MsgBox "Tamanho máximo de 12 caracteres excedido"
End If

End Sub

No entanto eu tenho um outro campo nesta tabela que esta configurado com uma máscara de entrada SENHA. Neste campo não consigo usar o código acima. Alguma idéia? obrigado

Tem de seguir o mesmo conceito;


If Len(Me.TxtUsuario.Text) > 12 Then
Me.TxtUsuario.Text = Left(Me.TxtUsuario.Text, 12)
Me.TxtUsuario.SelStart = 12
MsgBox "Tamanho máximo de 12 caracteres excedido...", vbCritical
End If

Esqueci de substituir os nomes dos Campos!!! Deu certo agora! Obrigado a todos.