Ola pessoal boa tarde, humildemente necessito de ajuda dos senhores!
Tenho um formulário continuo "Frm_01", onde são filtrados registros de uma consulta "Cons_Mestre"
Que através de um botão quero inserir esses registros em uma tabela "Tb_01"
Acontece que só está enviando um registro para a tabela!
Ha tempo abri um tópico aqui no fórum com o mesmo intuito,
para adicionar registros do formulário continuo a uma tabela.
Foi usado esse código para resolver o problema:
Private Sub Comando22_Click()
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
Dim frm As Form, regs As Recordset, I As Integer
Set frm = Me
Set regs = frm.RecordsetClone
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("TabArmazem", dbOpenTable)
regs.MoveFirst
With rs1
For I = 1 To regs.RecordCount ' faz o loop nos registros do formulário para gravar cada um deles na tabela TabArmazem
.AddNew
![Nome] = Me.Nome
![ValorCompra] = Me.ValorCompra
![DataCompra] = Me.DataCompra
![Compra] = Me.Compra
![DataVencimento] = Me.DataVencimento
![CpValor] = Me.CpValor
.Update
Next I
End With
End Sub
Pergunto aos Mestres, Onde estou a errar?
Pois ele grava somente um registro.
Aguardo ajuda dos senhores, um abraço.
Tenho um formulário continuo "Frm_01", onde são filtrados registros de uma consulta "Cons_Mestre"
Que através de um botão quero inserir esses registros em uma tabela "Tb_01"
Acontece que só está enviando um registro para a tabela!
Ha tempo abri um tópico aqui no fórum com o mesmo intuito,
para adicionar registros do formulário continuo a uma tabela.
Foi usado esse código para resolver o problema:
Private Sub Comando22_Click()
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
Dim frm As Form, regs As Recordset, I As Integer
Set frm = Me
Set regs = frm.RecordsetClone
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("TabArmazem", dbOpenTable)
regs.MoveFirst
With rs1
For I = 1 To regs.RecordCount ' faz o loop nos registros do formulário para gravar cada um deles na tabela TabArmazem
.AddNew
![Nome] = Me.Nome
![ValorCompra] = Me.ValorCompra
![DataCompra] = Me.DataCompra
![Compra] = Me.Compra
![DataVencimento] = Me.DataVencimento
![CpValor] = Me.CpValor
.Update
Next I
End With
End Sub
Pergunto aos Mestres, Onde estou a errar?
Pois ele grava somente um registro.
Aguardo ajuda dos senhores, um abraço.
Última edição por Lupércio em 27/6/2013, 21:17, editado 1 vez(es)