[RESOLVIDO]Adicionar registros em uma tabela a partir de um formulário

Bom dia.

Possuo um formulário chamado frmRota do tipo "Vários Itens" que contém uma tabela: tabRota.
Através deste formulário eu posso filtrar os itens dessa tabela e, com os itens filtrados, posso gerar um relatório com os mesmos.

Quando eu clico em Gerar Rota (ou gerar relatório), preciso que o Access grave todos estes registros filtrados como novos registros na tabela frmEntregas. Cada um como uma entrega separada, com sua própria chave primária.

É possível? Desde já muito obrigado pela ajuda!!

PS.: Essa mesma pergunta havia sido feita neste tópico, porém achei melhor abrir um novo tópico exclusivamente para essa pergunta.

Segue em anexo o banco de dados (é o mesmo que postei no tópico acima):

alantaru.000webhostapp.com/BANCO_DE_DADOS/Filtro_em_cascata_Multiplo.zip

Coloquei o código em um botão para ficar mais fácil de entender

no evento de um botão

Dim db As Database
Set db = CurrentDb()
Dim rst, rsE As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
  'abre a tabela para adicionar as entregas
 Set rsE = db.OpenRecordset("tabEntregas")
'****rsE!Campo da tabela = me!campo do formulario****'
 rsE.AddNew 'adiciona os dados
 rsE!Serie = Me!Serie
 rsE!Modelo = Me!Modelo
 rsE!Fila = Me!Fila
 rsE!PlantaInstalada = Me!PlantaInstalada
 rsE!Empresa = Me!Empresa
 'Agora basta voce adiciona os outros campos
 rsE.Update

rst.MoveNext
End With
Loop

MsgBox ("Registros adicionados  " & rst.RecordCount), vbInformation, "Aten??o"

Set rst = Nothing
Set rsE = Nothing



sugestão de titulo

"Adicionar registros em uma tabela a partir de um formulário"



o filtro é independente

Ate mais

Amigo, muito obrigado!
Funcionou perfeitamente!

Valeu pelo retorno

Marque o tópico como resolvido