MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    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 em 19/8/2020, 17: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


    .................................................................................
    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    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 em 19/8/2020, 17: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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    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 em 19/8/2020, 17:18

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


    .................................................................................
    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    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 em 19/8/2020, 17: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



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    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 em 19/8/2020, 17: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


    .................................................................................
    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    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 em 19/8/2020, 17: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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    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 em 19/8/2020, 17:40

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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    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 em 19/8/2020, 17: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


    .................................................................................
    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    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 em 19/8/2020, 17:58

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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    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 em 19/8/2020, 18: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
    Anexos
    [Resolvido]não consigo colocar o botão como eneble Attachmentao receber dados travar botão.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 0 vez(es)


    .................................................................................
    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    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 em 19/8/2020, 18: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


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    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 em 19/8/2020, 18: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?


    .................................................................................
    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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    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 em 19/8/2020, 19: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





    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1336
    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 em 20/8/2020, 00: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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 22/9/2020, 15:06