[Resolvido]Código grava só um registro na tabela.

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.

Alem do Recordset que está usando para abrir a tabela, use RecordsetClone para percorrer os registros do formulário igual o Recordset faz para a tabela. Se pesquisar por esse termo, encontrarás muita coisa no fórum.

Criquio boa tarde, desculpe eu tinha postado o código errado!

Não sei onde estou a errar:

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("Tb_01", 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 Tb_01
.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

Tente trocar as linhas abaixo:

Set frm = Me
Set regs = frm.RecordsetClone

por:

Set regs = Me.Form.RecordsetClone

Criquio ainda não deu!

Ex no meu form está assim:

Idcodigo - Municipio - Exame
 11          col        -  AES
 12          col           hemograma.


No botão está transferindo para a tabela assim:

Idcodigo  - Municipio - Exame
11             col           AES
12             col           AES

Ao invés de transferir para a tabela,,,,, AES e Hemograma
transferi os dois registros mas ambos ....AES.

Veja o código com a alteração que você me pediu!


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 regs = Me.Form.RecordsetClone


Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("Tb_01", 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 tb_01
.AddNew
![IDcodigo] = Me.IDcodigo
![Municipio] = Me.Municipio
![Exame] = Me.Exame


.Update
Next I
End With
End Sub

Você precisa trocar o Me.NomeDoCampo por regs!NomeDoCampo, tudo igual faz com o Recordset para tabela. E use o Do While:

Código:

Do While Not regs.EOF
![IDcodigo] = regs!IDcodigo
...
regs.MoveNext
Loop

troquei veja! agora retorna uma linha em branco.


código:

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 regs = Me.Form.RecordsetClone


Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("Tb_01", dbOpenTable)
regs.MoveFirst
With rs1
For I = 1 To regs.RecordCount
.AddNew

Do While Not regs.EOF
![IDcodigo] = regs!IDcodigo
![Municipio] = regs!Municipio
![Exame] = regs!Exame

regs.MoveNext
Loop

.Update
Next I
End With

O Do While é para ficar no lugar do For. Nesse caso não precisa do For. E o AddNew e o Update tem que ficar dentro do Do While tambem. Um antes de começar a gravar e o outro depois de gravar. E pode retirar as variáveis não usadas, já que precisará de apenas dois rs, sendo um para a tabela e outro para o Clone no formulário.

Que aula hem mestre, , funcionou normal e agradeço pelo aprendizado!
Resolvido por aqui!

Criquio sem abusar da tua paciência, se os campos não forem iguais?
Digo os campos da tabela e do form, não precisa usar o Do While?

Criquio,

Alterei os nomes dos campos da tabela, para testes!
Só funcionou com essas alterações, feita trocando para Do While.
Esse código ficou perfeito, funciona de todas as maneiras, agradeço pela ajuda amigo.

Um abraço fica com Deus.

A questão do Do While é percorrer todos os registros do subformulário para jogá-lo na tabela. O EOF significa End Of File, ou seja Fim do arquivo, que no nosso caso, é fim da lista de registros. Se eu digo Do While Not rs.EOF estou pedindo para que vá pegando linha a linha e vá fazendo alguma coisa com ela. O rs.MoveNext manda se mover para a próxima linha e o Loop manda iniciar o processo novamente com essa linha. E assim vai indo até chegar ao final.

Obrigado pela aula, grande criquio.