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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 18/04/2018
    • Mensagem nº1

    [Resolvido]Liberar Campo Empty [Resolvido]Liberar Campo

    Mensagem  fernando rodrigo zanchini 26/10/2021, 20: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
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3494
    Registrado : 13/12/2016
    • Mensagem nº2

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

    Mensagem  Alexandre Fim 26/10/2021, 20: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
    • Ir para o topo
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 18/04/2018
    • Mensagem nº3

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

    Mensagem  fernando rodrigo zanchini 26/10/2021, 21: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
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº4

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

    Mensagem  Assis 26/10/2021, 22: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 ***
    • Ir para o topo
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 18/04/2018
    • Mensagem nº5

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

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

    Deu certo cheers cheers cheers

    Obrigado Alexandre Fim e Assis pela a ajuda !
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3494
    Registrado : 13/12/2016
    • Mensagem nº6

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

    Mensagem  Alexandre Fim 26/10/2021, 22: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
    • Ir para o topo
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 18/04/2018
    • Mensagem nº7

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

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

    Deu certo cheers  cheers  cheers

    Obrigado Alexandre Fim e Assis pela a ajuda !
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3494
    Registrado : 13/12/2016
    • Mensagem nº8

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

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

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

    Boa sorte
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº9

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 15:06