gravar todos os registros de um fomulario continuo em clique só

Estou precisando de uma dica , pois a dois dias empaquei num abençoado de um código.
E o seguinte :
Depois de executar alguns procedimentos me e gerado um formulario
continuo com os dados filtrados.
O próximo passo é gravar esses registros numa nova tabela.
a tabela em questão chama-se "tbreceber", e é ai que eu estou quebrando a cabeça pra executar a função, visto que preciso gravar todos o registros na tabela com um único clique no botão do Formulário.
Pois são 40 registros e é inviável ter de fazer o cliente apertar 40 vezes o botão para lançar os registros um a um.
Teriam como me dar uma dica de como fazer essa função?
Já escrevi mais de 15 tipos de códigos, mas nenhum fez o'que eu preciso.
Caso precise posso enviar parte do bd
Obrigado
Att
Ney Santos

Pessoal resovi esse problema, mas agora esta aparecendo outro,
Primeiro vou explicar como resolvi:
1º eu desabiltei o campo TxCodigo do formulario
quando o formulario abre eu seto o foco pra um determinado campo
Criei uma funçao no botao gravar habilita o controle Txcodigo
em seguida seta o foco no referido controle .
ao recber o foco o contole executa o codigo:
DoCmd.GoToRecord , , acNext
ai esse controle executa uma funçao chamada "GERAR_RECEBER" ao perder o foco
a funçao" GERAR_RECEBER"e a seguinte :
Private Function GERAR_RECEBER()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = OpenForSeek("TBRECEBER")

rs.Index = "IDLANCAMENTO"
rs.Seek "=", TXCODIGO

Dim F As Variant
F = DMax("LANCAMENTO", "TBRECEBER")

If IsNull(F) Then F = 0

rs.AddNew

rs("LANCAMENTO") = (F + 1)
rs("APTO") = TXAPTO
rs("MES") = TXMES
rs("ANO") = TXANO
rs("COTA") = TxCota
rs("FUNDO") = TXFUNDO
rs("DATAEMISSA") = TxDTLANCA
rs("DATAVENCIM") = TXDTVENC
rs("NOMECOND") = TXCODIGO
rs.Update

rs.Close
   Set rs = Nothing
End Function

Essa mesma funçao e executada no evento ao perder foco  do campo TxCodigo.
O problema que está dando agora e que depois de correr todos os registros do formulario vem a seguinte msg:"erro  em tempo de execuçao 2105 " Voce nao pode ir par o registro especificado"
Como resolver isso?