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


2 participantes

    [Resolvido]não consigo colocar o botão como eneble

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]não consigo colocar o botão como eneble Empty [Resolvido]não consigo colocar o botão como eneble

    Mensagem  crysostomo 19/8/2020, 21:06

    Anigos boa tarde. eu tentei de varias formas ultilizo bastante esse código mas não funciona
    tenho um formulario que recebe os dados da lista
    Código:
    Forms!fromEstacionamento!txtCódigo = ListaDeBusca.Column(0)
    quero travar os botões quando os campos recebem os dados
    Código:
     if not isnull (me.txtInicial) then
      else
        me.btInicial.enable=false
    end if
    end sub
    mas não travam será que é porcausa de receberem por lista ,pois ja tentei em varias propriedades do evento


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  Alexandre Fim 19/8/2020, 21:14

    Crysostomo,

    Tá com erro na sintaxe do comando

    if not isnull (me.txtInicial) then
    else
    me.btInicial.enable=false
    end if
    end sub

    O correto é Enabled


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]não consigo colocar o botão como eneble Setinf11
    Sistemas e Tecnologia Ltda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  crysostomo 19/8/2020, 21:18

    boa tarde Alexandre , eu escrevi esse sem copiar mesmo sempre esqueço letras.
    ele está dando erro. Não quer travar


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  Alexandre Fim 19/8/2020, 21:25

    Então a condição não está atendendo.
    Tente isso:

    Código:



    If Not IsNull(Me.txtInicial) Then
         Me.btInicial.Enabled = True
    Else
         Me.btInicial.Enabled = False
    End If



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]não consigo colocar o botão como eneble Setinf11
    Sistemas e Tecnologia Ltda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  crysostomo 19/8/2020, 21:31

    ja tentei essa , não vai . a condição atente ao abrir o sistema , mas não atente se o campo estiver vazio liberar o campo se caso ja estiver preenchido travar o botão


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  Alexandre Fim 19/8/2020, 21:36

    Faça assim:

    If Not IsNull(Me.txtInicial) Or Trim(Me.txtInicial) = Empty Then
    Me.btInicial.Enabled = True
    Else
    Me.btInicial.Enabled = False
    End If


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]não consigo colocar o botão como eneble Setinf11
    Sistemas e Tecnologia Ltda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  crysostomo 19/8/2020, 21:40

    Não funciona . vou tentar aqui outro e te enviar o DB


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  crysostomo 19/8/2020, 21:41

    não funciona. fui mexendo aqui e te enviar a DB, pode ser;?
    creio que pode ser por causa ta lista , mas seria estranho isso


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  Alexandre Fim 19/8/2020, 21:58

    Sim ...manda o bd e informa qual o formulário que tá dando o erro.
    vlw


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]não consigo colocar o botão como eneble Setinf11
    Sistemas e Tecnologia Ltda
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  crysostomo 19/8/2020, 22:02

    eu clicando duas vesses no from localizar o fromEstacionamento recebe todos os dados da lista, caso o txtInicial  estiver preenchido o botão iniciar tem que travar  o txtFinal é a mesma coisa se estiver preenchido o botão encerrar tem que travar
    Esta no evento atualizar, ao carregar , no atual


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  Alexandre Fim 19/8/2020, 22:23

    Crysostomo,

    No Form_Localizar, no evento ListaDeBusca_DblClick(), depois de preencher os campos, coloque esta instrução:

    Código:

        
        With Form_fromEstacionamento
            If Not IsNull(.txtCódigo) Then
                .btIniciar.Enabled = False
            Else
                .btIniciar.Enabled = True
            End If
        End Wit
        


    Espero ter ajudado

    Boa sorte


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]não consigo colocar o botão como eneble Setinf11
    Sistemas e Tecnologia Ltda

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  crysostomo 19/8/2020, 22:58

    Alexandre Obrigado, dei uma olhado sobre o With, sai do pc um pouco para refrescar a cabeça, esse With é como uma ligação de um formulário com outro tipo 1 como se fosse 1 formulário dividido, mas da onde o from estacionamento reconhece o comando localizar, pois ele não esta colocando a condição si o campo for preenchido ele ja manda o botão travar. entendeu o que eu quero dizer?


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  Alexandre Fim 19/8/2020, 23:52

    Crysostomo,

    Segue o código:

    Código:

    Private Sub ListaDeBusca_DblClick(Cancel As Integer)
    On Error GoTo Trata_Erro
     
        Forms!fromEstacionamento!txtCódigo = ListaDeBusca.Column(0)
        Forms!fromEstacionamento!txtPlaca = ListaDeBusca.Column(1)
        Forms!fromEstacionamento!txtInicial = ListaDeBusca.Column(2)
        Forms!fromEstacionamento!txtInicial = ListaDeBusca.Column(3)
        Forms!fromEstacionamento!txtFinal = ListaDeBusca.Column(5)
        Forms!fromEstacionamento!txtAcerto = ListaDeBusca.Column(7)
        Forms!fromEstacionamento!txtValorTotal = ListaDeBusca.Column(8)
     
     
        'Alexandre Fim - 19/08/2020 -------------------------------------------------------
        ' Se o campo txtFinal for NULO ou VAZIO        => habilita o comando btIniciar
        ' Se o campo txtFinal não for NULO ou VAZIO    => desabilita o comando btIniciar
       
        With Form_fromEstacionamento
            If IsNull(.txtFinal) Or Trim(.txtFinal) = Empty Then
                .btIniciar.Enabled = True
            Else
                .btIniciar.Enabled = False
            End If
        End With
        '----------------------------------------------------------------------------------
       
        Exit Sub

    Trata_Erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Sub
       
       
    End Sub




    A instrução WITH significa "Com o ", onde abaixo desta instrução, vc pode utilizar os eventos/propriedades/funções, sem precisar repetir o nome do objeto/controle.

    Ao invés de:

    Forms!fromEstacionamento!txtCódigo = ListaDeBusca.Column(0)
    Forms!fromEstacionamento!txtPlaca = ListaDeBusca.Column(1)
    Forms!fromEstacionamento!txtInicial = ListaDeBusca.Column(2)
    Forms!fromEstacionamento!txtInicial = ListaDeBusca.Column(3)
    Forms!fromEstacionamento!txtFinal = ListaDeBusca.Column(5)
    Forms!fromEstacionamento!txtAcerto = ListaDeBusca.Column(7)
    Forms!fromEstacionamento!txtValorTotal = ListaDeBusca.Column(Cool


    Fazer assim:

    With Forms!fromEstacionamento
    !txtCódigo = ListaDeBusca.Column(0)
    !txtPlaca = ListaDeBusca.Column(1)
    !txtInicial = ListaDeBusca.Column(2)
    !txtInicial = ListaDeBusca.Column(3)
    !txtFinal = ListaDeBusca.Column(5)
    !txtAcerto = ListaDeBusca.Column(7)
    !txtValorTotal = ListaDeBusca.Column(Cool
    End With



    Faça os testes e me informe.

    Espero ter ajudado





    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]não consigo colocar o botão como eneble Setinf11
    Sistemas e Tecnologia Ltda

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  crysostomo 20/8/2020, 04:15

    tinha esquecido o resolvido.
    Acabei de fazer outro trabalho que é editar vídeo, 3 vídeos editados.
    vou ver e te informo.
    obrigado pela explicação


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]não consigo colocar o botão como eneble Empty Re: [Resolvido]não consigo colocar o botão como eneble

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:21