[Resolvido]Faz a exportação de registro somente depois de fechar o formulário e exportar novamente

Boa tarde.

Tenho uma rotina que exporta os dados de um subformulário para uma tabela.
Acontece que ele exporta uma vez e depois para, tenho que fechar o formulário e abrir novamente e exportar novamente.

Não sei o que é, já bati cabeça, já acendi vela...kkkk

Eis o baita...

Dim dbs As DAO.Database
Dim rs7 As DAO.Recordset
Dim tb As DAO.Recordset
'---------------------------------------

Set dbs = CurrentDb
Set tb = dbs.OpenRecordset("TblVendaXFornecedor")
Set rs7 = Forms!FrmVenda!FrmSubVenda.Form.RecordsetClone
'Set rs7 = FrmSubVenda.Form.RecordsetClone
'---------------------------------------------------------------
'Exportando os campos necessários
Do While Not rs7.EOF
tb.AddNew
tb!IdPedido = rs7!IdPedido
tb!DataPedido = Me.DataPedido
tb!Referencia = rs7!Referencia
tb!Fornecedor = rs7!Fornecedor
tb!ValorTotal = rs7!ValorTotal
tb!Qtd = rs7!Qtd

tb.Update
rs7.MoveNext

Loop

tb.Close
Set tb = Nothing

rs7.Close
Set rs7 = Nothing

dbs.Close
Set dbs = Nothing
'fim da rotina de cópia

Ola colega jaa tive este problema faz o seguinte



Dim dbs As DAO.Database
Dim rs7 As DAO.Recordset
Dim tb As DAO.Recordset
'---------------------------------------

Set dbs = CurrentDb
Set tb = dbs.OpenRecordset("TblVendaXFornecedor")
Set rs7 = Forms!FrmVenda!FrmSubVenda.Form.RecordsetClone
'Set rs7 = FrmSubVenda.Form.RecordsetClone
Rs7.movefirst
'---------------------------------------------------------------
'Exportando os campos necessários
Do While Not rs7.EOF
tb.AddNew
tb!IdPedido = rs7!IdPedido
tb!DataPedido = Me.DataPedido
tb!Referencia = rs7!Referencia
tb!Fornecedor = rs7!Fornecedor
tb!ValorTotal = rs7!ValorTotal
tb!Qtd = rs7!Qtd

tb.Update
rs7.MoveNext

Loop

tb.Close
Set tb = Nothing

rs7.Close
Set rs7 = Nothing

dbs.Close
Set dbs = Nothing
'fim da rotina de cópia


Qualquer coisa da uma olhada no poste

http://www.redeaccess.com.br/viewtopic.php?f=7&t=2018

Valeu Marcelo....matou de primeira !

Obrigado !