[Resolvido]Percorre a tabela e atualiza os registros selecionados

Ola pessoal, eu tenho um formulário que contem um sub_formulario neste sub tem uma caixa de seleção(PAGAMENTO), eu gostaria que ao selecionar a caixa de seleção ele atualizasse a data de pagamento para o dia de hoje, lembrando que se pode selecionar mais de um registro, estou usando esse código

Código:

Dim rst As Recordset

Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF

With rst
.Edit

CurrentDb.Execute "UPDATE CAD_LANCAMENTO Set CAD_LANCAMENTO.DATA_PAGAMENTO= now() Where [cod_lancamento]=" & Me.sub_pagamento!cod_lancamento & " and me.sub_pagamento!PAGAMENTO = -1"

.Update
------>.MoveNext
End With
Loop

Set rst = Nothing

Porém esta dando erro 91 variável do objeto ou do bloco With não definida e depura na linha marcada(-->)
Achei que poderia ser alguma definição não selecionada, mas parece que esta tudo ok.
Atenciosamente.

Olá Parick,

Onde está a referência à tabela que é o recordset propriamente dito?

Set rst = Me.Recordset (?)

O certo seria:

Set rst = CurrentDb.OpenRecordset("SuaTabela", dbOpenTable)

Ola good guy, obrigado pelo retorno

a parte do record set consegui resolver com sua recomendação.
tópico resolvido