[Resolvido]Erro com o Campo no Formato Senha

Boa Dia
Estou usado esse Código para que  quando o usuário digite a senha ao chegar no 6º numero ele já execute um comando.

Private Sub TxtSenhaAlterarA_Change()
Call Atualizar
If Len(Me.TxtSenhaAlterarA) = 6 Then
MsgBox "Comando"
End If
End Sub


O Problema é que quando coloco no campo TxtSenhaAlterarA a Mascara de entrada  como "Senha" já não funciona
Coloquei um exemplo com as 2 situações

Bom dia.
Copie e cole o código abaixo:

Código:



Private Sub TxtSenhaAlterar_Change()
   
    If Len(Me.TxtSenhaAlterar.Text) = 6 Then
        MsgBox "Comando"
        Exit Sub
    End If
   
End Sub




É isso!

abs

Deu Certo
Obrigado

Tópico movido de "Consultas" por não ter relação com este tipo de objeto.