[Resolvido]Quitar registros selecionados em um chekbox

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

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

Grande Alexandre, muito obrigado, Deu certo.

Abraços.