Prezados colegas, estou tentando inserir os dados de um subform em uma nova tabela.
Quando utilizo o código somente no subform, dá certo. Mas quando utilizo o código referenciando o form principal, da erro na linha Move Next.
form principal: altcadped
subform: altcadpedsub
erro 3420
"o objeto nao é válido ou não está definido"
Desde já, agradeço a atenção dos colegas
Quando utilizo o código somente no subform, dá certo. Mas quando utilizo o código referenciando o form principal, da erro na linha Move Next.
form principal: altcadped
subform: altcadpedsub
erro 3420
"o objeto nao é válido ou não está definido"
Desde já, agradeço a atenção dos colegas
- Código:
Dim rs As Recordset
'Set rs = Forms!altcadped!ALTCADPEDsub.Form.Recordset
Set rs = Forms!ALTCADPEDsub.Form.Recordset
If rs.RecordCount = Empty Then
MsgBox "Não existem registros para inserir na Tabela", vbCritical
subc.Enabled = False
Else
rs.MoveFirst
Do While Not rs.EOF
With rs
Call Cadastro
rs.MoveNext
'Forms!altcadped!ALTCADPEDsub.Form.Recalc
Forms!ALTCADPEDsub.Form.Recalc
End With
Loop
Set rs = Nothing
MsgBox "Os registros selecionados foram incluídos na Tabela", vbInformation
End If
- Código:
Public Function Cadastro() As Integer
Dim BancoDados As DAO.Database
Dim RStb As DAO.Recordset
Set BancoDados = CurrentDb()
Set RStb = BancoDados.OpenRecordset("equipe", dbOpenDynaset)
RStb.AddNew
RStb("cod") = Forms!altcadped!cod
RStb("loc") = Forms!altcadped!loc
RStb("empr") = Forms!altcadped!EMPR
RStb("DataFim") = Forms!altcadped!DataFim
'RStb("idprod") = Forms!altcadped!ALTCADPEDsub!IDPROD
RStb("idprod") = Forms!ALTCADPEDsub!IDPROD
'RStb("FUNC") = Forms!altcadped!ALTCADPEDsub!FUNC
RStb("FUNC") = Forms!ALTCADPEDsub!FUNC
'RStb("QTDE") = Forms!altcadped!ALTCADPEDsub!QTDE
RStb("QTDE") = Forms!ALTCADPEDsub!QTDE
'RStb("SIT") = Forms!altcadped!ALTCADPEDsub!sit
RStb("SIT") = Forms!ALTCADPEDsub!sit
'RStb("TIM") = Forms!altcadped!ALTCADPEDsub!Tim
RStb("TIM") = Forms!ALTCADPEDsub!Tim
RStb.Update
RStb.Requery
End Function