[Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas

Olá tenho um form continuo que nele abre as contas a pagar do dia quero criar um botao que ao clicar ele marque todas os campos recebidos de todo formulário que esta aberto. Coloquei no btão ao clicar me.pago.value = -1 mais ele só marca o primeiro quero que ele marque todos. Desde ja agradeço a atenção de todos

Segue exemplo para ajudar aos colegas a entender melhor eu desejo ao clicar em pagar todos, todos que tem pago ele fique como marcado no caso ele receba -1 que é o seu código para ficar marcado seria isso, alguma luz ? : )

Olá..

Adapte a sua necessidade alterando para o nome do seu formulario

Código:

Me.NomeDoSeuFormulario.Form.RecordsetClone.MoveFirst
    Do While Not Me.NomeDoSeuFormulario.Form.RecordsetClone.EOF
        Me.NomeDoSeuFormulario.Form.RecordsetClone.Edit
        Me.NomeDoSeuFormulario.Form.RecordsetClone!Pago = True
        Me.NomeDoSeuFormulario.Form.RecordsetClone.Update
        Me.NomeDoSeuFormulario.Form.RecordsetClone.MoveNext
    Loop
        Me.NomeDoSeuFormulario.Requery
        Exit Sub

Aguardamos retorno

Abraços

Olá Celso obrigado pela ajuda, coloquei o codigo no botao pagartodos e deu um erro de metodo ou mebro segue foto do erro

Olá..

Altere para

Código:

Me.Form.RecordsetClone.MoveFirst
    Do While Not Me.Form.RecordsetClone.EOF
        Me.Form.RecordsetClone.Edit
        Me.Form.RecordsetClone!Pago = True
        Me.Form.RecordsetClone.Update
        Me.Form.RecordsetClone.MoveNext
    Loop
        Me.Requery
        Exit Sub

Se der erro, anexe seu exemplo para que possamos verificar

Aguardamos retorno

Resolvido
Criei tbm o outro botao para desmarcar todos apenas mudei de true para false
Muito obrigado : )

Olá..

Fico feliz por ter ajudado.

Obrigado pelo retorno

Abraços e sucesso