Copiar vários registros de uma consulta para uma tabela

Tentei usar sem sucesso uma consulta acréscimo para inserir vários registros de uma consulta para uma tabela. Ao executar, há um erro, pois dois campos obrigatórios não podem ser adicionados.

Um destes campos é o Índice (CodLancamentos), que é gerado no formulário antes da inserção de um novo registro através de DMax("CodLancamento", "tblLancamentos") + 1.
Outro é o campo CodFolha1, que é inserido sempre que um novo registro é criado no subformulário Lancamentos (tblLancamentos).
Acho que não é possível inserir esses dados pela consulta acréscimo pois na seção "Acrescentar a" só é possível determinar o campo que receberá os dados: não sei se é possível inserir uma função.

A consulta de origem dos dados é ativada a partir do formulário frmFolhaPagamento e seleciona as verbas da folha de pagamento do mês anterior para transferir para o mês atual. (Assim, o campo CodFolha1 deve ser o atual do formulário).

Então, tentei fazer isso via DAO.Recordset, e não funcionou:

Private Sub cmdLancMesAnte_Click()
Dim db As DAO.Database
Dim rsOrigem As DAO.Recordset
Dim rsDestino As DAO.Recordset2
Set db = CurrentDb()
Set rsDestino = db.OpenRecordset("qryLancamentos")
Set rsOrigem = db.OpenRecordset("qryFolhaLancAnte2") >>> ERRO 3219 OPERAÇÃO INVÁLIDA.

Do While Not rsOrigem.EOF
rsDestino.AddNew
rsDestino.Fields("CodLancamento") = Nz(DMax("CodLancamento", "tblLancamentos"), 0) + 1
rsDestino.Fields("CodFolha1") = Forms!frmfolha!CodFolha
rsDestino.Fields("CodEvento1") = rsOrigem!CodEvento1
rsDestino.Fields("RefValor") = rsOrigem!RefValor
rsDestino.Fields("RefValor2") = rsOrigem!RefValor2
rsDestino.Fields("Valor") = rsOrigem!Valor
rsDestino.Update
rsDestino.MoveNext
Loop

Set rsOrigem = Nothing
Set rsDestino = Nothing
Set db = Nothing
End Sub

Coloque o campo do código na tabela de destino como número normal ao invés de autonumeração.

Erro absoluto:

Dim rsDestino As DAO.Recordset2

Coloque o campo do código na tabela de destino como número normal ao invés de autonumeração.

Criquio, este campo já é formato número.

Erro absoluto:
Dim rsDestino As DAO.Recordset2

JPaulo,

deixei apenas DAO.Recordset.

O erro agora é "Parâmetros insuficientes. Eram esperados . (Erro 3061)"

Não tinha visto o DAO.Recordset2

Me parece que você está aplicando o MoveLast no Recordset errado, não?

Outra, o recordset de origem não deveria ser filtrado para pegar o(s) registro(s) correto(s)? Ou a ideia é mesmo copiar toda a tabela?

> MoveNext estava no Recordset errado. Corrigi!
> DAO.Recordset2 também corrigido!
> Inclui 02 critérios em rsOrigem e funcionou!

Set rsOrigem = db.OpenRecordset("SELECT * FROM qryFolhaLancAnte1 WHERE Competencia >" & _
Forms!frmFolha!Competencia & "AND CodTrabalhador =" & Forms!frmFolha!CodTrabalhador)

Mas há um problema: todos os registros com data anterior são adicionados, sem excessão. Preciso apenas dos lançamentos do último registro.

Conseguir filtra apenas o último registro criando duas consultas estabelecendo. Quando o fomrulário frmFolha está aberto, a consulta "qryLancamentosAnteriores1" filtra os registros do trabalhador com a folha aberta e com data anterior. Para mostrar apenas o último, tive que criar uma segunda consulta ("qryLancamentosAnteriores2"). Ela é baseada em na consulta "qryLancamentosAnteriores1" e aplica um DMax no campo Competencia(data). Se eu executar a consulta funciona!

No Recordset caso eu coloque apenas "qryLancamentosAnteriores2" (sem escrever os critérios), dá o erro Parâmetros Inválidos... (já entendi, então, que existe uma diferença entre executar a consulta e acessá-la através de OpenRecordset).

Eu tentei os três critérios em rsOrigem através SELECT...FROM...WHERE. Não funciona, nenhum registro é acessado para copiar.

A questão é: para conseguir os resultados desejados com a consulta, precisei criar duas - "qryFolhaLancAnte1" e "qryFolhaLancAnte2" - com 03 critérios.

Não tenho ideia de como resolver isso.