MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Caixa de Seleção desmarcar ao clicar

    Compartilhe
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1029
    Registrado : 01/07/2011

    [Resolvido]Caixa de Seleção desmarcar ao clicar

    Mensagem  Connekta Informatica em 17/10/2018, 18:29

    Boa Tarde

    Tenho um formulário de Relatório de Despesas, onde tenho duas caixas de seleção ( 1. Por Fornecedor, 2. Por Conta Bancária/Caixa).

    Como eu faço, quando eu marcar qualquer uma caixas ao clicar desmarque.

    Por exemplo eu selecionei a Opção 1 (Por Fornecedor), ai eu não quero mais que o relatório filtre pelo fornecedor e nem pela opção 2 (Por Conta Bancária/Caixa), quero o relatório geral.

    Veja a tela do Relatório, marcado em vermelho:





    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Caixa de Seleção desmarcar ao clicar

    Mensagem  IvanJr. em 17/10/2018, 20:29

    Veja o exemplo em anexo

    Código utilizado
    Código:
    Private Sub chkContaBancaria_AfterUpdate() 'após atualizar

        If Me!chkContaBancaria = True Then
            Me!chkGeral = False
            Me!chkFornecedor = False
        End If

    End Sub

    Private Sub chkDataPagamento_AfterUpdate() 'após atualizar

        If Me!chkDataPagamento = True Then Me!chkGeral = False

    End Sub

    Private Sub chkDataVencimento_AfterUpdate() 'após atualizar

        If Me!chkDataVencimento = True Then Me!chkGeral = False

    End Sub

    Private Sub chkFornecedor_AfterUpdate() 'após atualizar

        If Me!chkFornecedor = True Then
            Me!chkGeral = False
            Me!chkContaBancaria = False
        End If

    End Sub

    Private Sub chkGeral_AfterUpdate() 'após atualizar

        If Me!chkGeral = True Then
            Me!chkDataPagamento = False
            Me!chkDataVencimento = False
            Me!chkFornecedor = False
            Me!chkContaBancaria = False
        End If

    End Sub
    Anexos
    Exemplo Checkbox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 13 vez(es)
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1029
    Registrado : 01/07/2011

    Re: [Resolvido]Caixa de Seleção desmarcar ao clicar

    Mensagem  Connekta Informatica em 18/10/2018, 14:26

    Bom dia

    Obrigado pela atenção. Meu formulário esta diferente do seu seu, porque use porque usei um quadro de opções.

    Veja o formulário no bd em aenxo.
    Anexos
    Sistema Financeiro - Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (74 Kb) Baixado 8 vez(es)


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Caixa de Seleção desmarcar ao clicar

    Mensagem  IvanJr. em 18/10/2018, 16:49

    Deixo duas alternativas para fazer o que queres:
    1 - Uma é limpar o valor do quadro de opções clicando em um rótulo.
    2 - Outra é limpar o valor do quadro de opções ao pressionar delete em uma das opções do quadro.

    Outra sugestão é refazer os controles do formulário com checkboxes e adaptar conforme minha primeira mensagem.
    Anexos
    Sistema Financeiro - Cópia_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (69 Kb) Baixado 26 vez(es)
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1029
    Registrado : 01/07/2011

    Re: [Resolvido]Caixa de Seleção desmarcar ao clicar

    Mensagem  Connekta Informatica em 19/10/2018, 19:37

    Desculpe a demora. Exemplo excelente. Fiz a adaptação e ficou do jeito que eu queria. obrigado.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: [Resolvido]Caixa de Seleção desmarcar ao clicar

    Mensagem  IvanJr. em 19/10/2018, 19:55

    O fórum agradece o retorno. Sucesso.

      Data/hora atual: 18/1/2019, 00:03