Inserir registros em subformulário ligado a tabela

Olá amigos,

Estou criando uma rotina que busca alguns dados na tabela ComparativoDetalhe filtrados no form (AAAfrmCriaRecursoSelect) e acrescenta-os no form (Forms!AAAfrmCriaRecurso.Form.SFrmDetFatura) este último ligado a tabela (tblRecursoRegistros).

Com o código abaixo eu observo que os dados estão se repetindo linha após linha, mas o correto seria uma linha diferente da outra com base nos critérios informados na consulta abaixo.

Alguém para me dar uma dica?

Código:

Dim db As Database
Dim rs As DAO.Recordset
      
 Set db = CurrentDb
 Set rs = db.OpenRecordset("SELECT * FROM tblRecursoRegistros WHERE tblRecursoRegistros.Nota= '" & [Forms]![AAAfrmCriaRecurso]![Nota] & "';")
 Do While (rs.EOF)
      rs.AddNew
      rs!IDOS = Forms!AAAfrmCriaRecurso!IDOS
      rs!NomeUsuário = NomeUsuário
      rs!CódUsuário = CódUsuário
      rs!CódGuia = CódGuia
      rs!DtAtendimento = DtAtendimento
      rs!CódServiço = CódServiço
      rs!NomeServiço = NomeServiço
      rs!SomaDeQuantidadeServiço = SomaDeQuantidadeServiço
      rs!SomaDeValorPago = SomaDeValorPago
      rs!valorTotalRecebido = ([Saldo] * -1)
   rs.Update
 Loop
   rs.Close
   Set rs = Nothing
   db.Close
   Set db = Nothing


Amigo, eu nao consegui compreender...

No código postado, vc abre um registro na tabela tblRecursoRegistros filtrando pela Nota, que vai ser igual ao valor que tem no formulário AAAfrmCriaRecurso!Nota

Feito isso, Adiciona alguns dados a esse Registro. Dados esse que ao que parece está no formulário atual...


Explique melhor o que se repete. Pois não há loop no código.

Bom dia,

O correto é abrir o RecordSet da tabela ComparativoDetalhe tendo como criterio (AAAfrmCriaRecurso!Nota), dai pego esses dados filtrados e adiciono para a tabela tblRecursoRegistros.

Vou tentar um colocar um pequeno exemplo para visualizar melhor.

Então, terá que abrir dois recordset amigo!

Um com os dados a serem adicionados.
e o outro tabela tblRecursoRegistros que receberá os dados filtrados...