[Resolvido]Executar UPDATE por VBA em todas as linhas do relatório

Boa noite senhores!

Peço desculpas, talvez o que procuro seja fácil de resolver, porém, não consegui encontrar nenhuma solução até o momento.

Vamos lá!

Minha intenção é executar uma "UPDATE" em todas as linhas que o relatório apresenta,

De forma simples, executando apenas o código ( CurrentDb.Execute.... )
esta executando apenas na última linha do relatório.

Exemplo -

ID       NOME        DTPAG 1         JOSÉ         22/02/2018 2         MARIA       EM ABERTO 3         CARLOS     EM ABERTO

Executar o código :

Private Sub Comando218_Click()

CurrentDb.Execute "UPDATE tb_nomedatabela SET [DTPAG] = '" & Date & "' WHERE [ID] = " & ID

End Sub

Apenas executando desta forma, o resultado seria este :

ID       NOME        DTPAG 1         JOSÉ         22/02/2018 2         MARIA       EM ABERTO 3         CARLOS     22/02/2018

Alguém tem alguma dica de como fazer o código executar para todas as linhas?
Para que também a linha da MARIA, ID 2 seja atualizada?

Agradeço desde já!

Olá, se possível anexe a parte envolvida do seu Aplicativo, assim fica mais fácil entender e indicar a melhor solução!

Prezado! Identifiquei em um código e aprimorei para a minha necessidade.

Agradeço a abertura, de qualquer forma, vou postar aqui, caso seja a dúvida de mais alguém.

Código:


Sub updateemtodoscamposdorelatorio()
'' Definir Variáveis
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sqlStr As String
'' Setar Variáveis

sqlStr = "SELECT tb_suatabela.seucampo FROM tb_suatabela;"
Set db = CurrentDb
Set rs = db.OpenRecordset(sqlStr)

rs.MoveFirst
''
x = 0
Do While Not rs.EOF

'Executar comando em cada resultado, para capturar resultado ( rs!NOMEDOCAMPO )
  CurrentDb.Execute "UPDATE tb_suatabela SET [seucampo] = '" & Date & "' WHERE [CAMPODECRITÉRIO] = " & rs!CAMPODECRITÉRIO
  x = x + 1
  rs.MoveNext

Loop



End Sub

Espero ter ajudado.
Atenciosamente,

Grato pelo retorno e até a próxima se Deus quiser!