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


    [Resolvido]Quitar registros selecionados em um chekbox

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2016

    [Resolvido]Quitar registros selecionados em um chekbox Empty [Resolvido]Quitar registros selecionados em um chekbox

    Mensagem  FernandoRogerio 1/5/2021, 22:37

    Olá mestres.
    Estou com uma dúvida, simples, mas não consegui encontrar informações de como fazer.
    Estou montando um baixa despesas, onde, através de um botão ele percorre os registros de um
    subformulário, e se o chekbox estiver selecionado, ele atribui o valor de Quitado.

    eu montei um código, porém ele trava, não sei se está certo.

    Se puderem ajudar agradeço.

    Segue o link para download do projeto.
    https://www.dropbox.com/s/xhe5syianooofem/BaixaDespesas.accdb?dl=0
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Quitar registros selecionados em um chekbox Empty Re: [Resolvido]Quitar registros selecionados em um chekbox

    Mensagem  Alexandre Fim 2/5/2021, 03:41

    Olá Fernando

    Quando vc utiliza formulário vinculados à tabela, ao clicar no checkbox "QUITAR", automaticamente fica gravado na tabela.
    Desta forma, vc pode utilizar a instrução abaixo.


    Código:


    '---------------------------------------------------------'
    '-- Estava com loop infinito - Erro

    '    Do While Form_CAD_DESPSUB.QUITAR.Value = -1
    '        Form_CAD_DESPSUB.SITUACAO.Value = "PAGO"
    '    Loop
    '---------------------------------------------------------'

        CurrentDb.Execute ("UPDATE CAD_DESP SET SITUACAO = 'PAGO' WHERE QUITAR = -1")
        CurrentDb.Execute ("UPDATE CAD_DESP SET SITUACAO = '' WHERE QUITAR = 0")
        Form_CAD_DESPSUB.Requery





    Espero ter ajudado.

    []'s

    FIM


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

    FernandoRogerio gosta desta mensagem

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 30/12/2016

    [Resolvido]Quitar registros selecionados em um chekbox Empty Re: [Resolvido]Quitar registros selecionados em um chekbox

    Mensagem  FernandoRogerio 2/5/2021, 04:49

    Grande Alexandre, muito obrigado, Deu certo.

    Abraços.

    Conteúdo patrocinado

    [Resolvido]Quitar registros selecionados em um chekbox Empty Re: [Resolvido]Quitar registros selecionados em um chekbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 12:18