[Resolvido]Liberar Campo

Boa tarde
tenho um campo de acesso com 4 dígitos com uma mascar de ####
quando o usuário digita o código de acesso libera um outro campo para preencher

como faço para liberar o campo automaticamente somente quando o usuário digitar os 4 dígitos correta mente

Ola,

Faça assim:

Código:



Private Sub NomeDoCampo4Digitos_AfterUpdate()

    If Len(Me.NomeDoCampo4Digitos) = 4 Then
        Me.NomeDoCampoALiberar.Enabled = True
    Else
        Me.NomeDoCampoALiberar.Enabled = False
    End If

End Sub



É isso

[]'s

FIM

Funcionou só que não como esperava

Ele só executa quando o campo perde o foco ou atualiza teria de executar ao digitar o ultimo numero dos 4 dígitos

Teste
Definir o campo 4 dígitos com uma mascar de #### com tabulação automática.

Deu certo

Obrigado Alexandre Fim e Assis pela a ajuda !

Tente isso:

Código:


Private Sub NomeDoCampo4Digitos_Change()

    If Len(Me.NomeDoCampo4Digitos.Text) = 4 Then
        Me.NomeDoCampoALiberar.Enabled = True
    Else
        Me.NomeDoCampoALiberar.Enabled = False
    End If

End Sub



É isso

[]'s

FIM

Deu certo    

Obrigado Alexandre Fim e Assis pela a ajuda !

Valeu Zanchini !!
O fórum agradece !!!

Boa sorte