Início
percoski 11/10/2013, 14:52Olá bom dia estou precisando de um codigo de varre um subform registro a registro. para atualiza na tabela estoque...
2 participantes
código que captura dados de um subform
percoski- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 319
Registrado : 27/02/2013
mucascosta- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 32
Registrado : 22/01/2010
Tente isso: Dim dados As Database, origem As DAO.Recordset
Dim frm As Form, regs As Recordset
Set regs = Me.Form.RecordsetClone
Set dados = CurrentDb
Set origem = dados.OpenRecordset("SuaTabela", dbOpenTable)
regs.MoveFirst
With origem
Do While Not regs.EOF
.AddNew
![A] = regs!A
![B] = regs!B
![C] = regs!C
![D] = regs!D
![E] = regs!E
.Update
regs.MoveNext
Loop
End With
Dim frm As Form, regs As Recordset
Set regs = Me.Form.RecordsetClone
Set dados = CurrentDb
Set origem = dados.OpenRecordset("SuaTabela", dbOpenTable)
regs.MoveFirst
With origem
Do While Not regs.EOF
.AddNew
![A] = regs!A
![B] = regs!B
![C] = regs!C
![D] = regs!D
![E] = regs!E
.Update
regs.MoveNext
Loop
End With