[Resolvido]Inserir Dados do Formulário a uma tabela acréscimo

Pessoal,
Preciso de uma ajuda, tenho um formulário que é vinculado a uma tabela e essa tabela pode ter vários registros e que podem ser editados ou não via formulário.
Quando eu clicar em salvar, gostaria de pegar todos os dados do formulário e acrescentar a uma tabela, tentei fazer um insert mas o mesmo só insere uma linha e não os 400 registros que deveriam.

Como devo fazer? Ressalto que alguns campos são vinculados a uma tabela e outros sem vinculo de texto livre do qual tbm preciso inserir nessa nova tabela.

Ta, deixa eu ver se entendi...
Você tem uma tabela que tem 400+ registros, e você precisa pegar todos esses registros e colocar em outra tabela....
Bom se for isso, você pode usar o insert, mas usando um loop.
Se for isso seu código pode ser mais ou menos assim:

Código:


Dim rs as DAO.RecordSet
set rs = CurrentDB.OpenRecordset("Tabela1")
for x = 1 to rs.RecordCount
    'o comando insert aqui
next


Roberval, após o next eu acrescento o loop?
como eu faria?

Meu código ficou assim:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TBL_BASE_EDITADA")
For x = 1 To rs.RecordCount
CurrentDb.Execute "INSERT INTO TBL_BASE_EDITADA (PropostaN, Referência) VALUES ('" & Me.Texto51 & "','" & Me.Referência & "');"
Next


Mas não funcionou, no procedimento insert ele pula!

No OpenRecordSet você vai colocar a primeira tabela, da qual você vai puxar os dados para a nova

Show, funcionou!
Obrigado.

Roberval,
Na verdade ao invés dele inserir só os 400 registros ele esta inserindo 167.000 ta duplicando.

Ok, da onde ele está tirando esses 400 registros? São os primeiros 400 da tabela? Ou algum ID que se repita 400x na tabela?

Meu código ficou assim:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TBL_INPUT_PROPOSTA_FINAL") -" Esta tabela possui apenas 400 registros"
For x = 1 To rs.RecordCount

CurrentDb.Execute "INSERT INTO TBL_BASE_EDITADA (PropostaN, Referência) SELECT [TBL_INPUT_PROPOSTA_FINAL].[Proposta], [TBL_INPUT_PROPOSTA_FINAL].Referência FROM TBL_INPUT_PROPOSTA_FINAL;"

"Quando executo o código acima, que é pegar os 400 registros da ("TBL_INPUT_PROPOSTA_FINAL") ele insere 167.000 ou seja ele ta duplicando varias vezes na tabela de insert."


Next

Roberval,

Resolvi o problema, só troquei o Next de posição.

Obrigado mais uma vez.

Vlw, e obg pelo retorno!