MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Liberar Campo

    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 18/04/2018

    [Resolvido]Liberar Campo Empty [Resolvido]Liberar Campo

    Mensagem  fernando rodrigo zanchini 26/10/2021, 14:35

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1932
    Registrado : 13/12/2016

    [Resolvido]Liberar Campo Empty Re: [Resolvido]Liberar Campo

    Mensagem  Alexandre Fim 26/10/2021, 14:59

    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
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 18/04/2018

    [Resolvido]Liberar Campo Empty Re: [Resolvido]Liberar Campo

    Mensagem  fernando rodrigo zanchini 26/10/2021, 15:59

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4524
    Registrado : 06/11/2009

    [Resolvido]Liberar Campo Empty Re: [Resolvido]Liberar Campo

    Mensagem  Assis 26/10/2021, 16:33

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

    [Resolvido]Liberar Campo Sem_t229


    .................................................................................
    *** Só sei que nada sei ***
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 18/04/2018

    [Resolvido]Liberar Campo Empty Re: [Resolvido]Liberar Campo

    Mensagem  fernando rodrigo zanchini 26/10/2021, 16:51

    Deu certo cheers cheers cheers

    Obrigado Alexandre Fim e Assis pela a ajuda !
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1932
    Registrado : 13/12/2016

    [Resolvido]Liberar Campo Empty Re: [Resolvido]Liberar Campo

    Mensagem  Alexandre Fim 26/10/2021, 16:51

    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
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 18/04/2018

    [Resolvido]Liberar Campo Empty Re: [Resolvido]Liberar Campo

    Mensagem  fernando rodrigo zanchini 26/10/2021, 16:52

    Deu certo cheers  cheers  cheers

    Obrigado Alexandre Fim e Assis pela a ajuda !
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1932
    Registrado : 13/12/2016

    [Resolvido]Liberar Campo Empty Re: [Resolvido]Liberar Campo

    Mensagem  Alexandre Fim 26/10/2021, 17:47

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

    Boa sorte

      Data/hora atual: 29/11/2021, 18:51