[Resolvido]Inserir dados subform tabela

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

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

Prezados colegas,
Não consegui descobrir o problema do código que estou utilizando.
Provisóriamente, criei uma consulta que executo baseada no critério "loc" do formulário.
Esta consulta insere na tabela os todos os registros pertinentes ao "loc" (cód.pedido) em questão

INSERT INTO EQUIPE ( cod, LOC, IDPROD, Empr, Fim, QTDE, SIT )
SELECT CADPED.cod, CADPEDsub.Loc, CADPEDsub.IDPROD, CADPED.Empr, CADPED.DataFim, CADPEDsub.QTDE, CADPEDsub.SIT
FROM CADPED INNER JOIN CADPEDsub ON CADPED.LOC = CADPEDsub.LOC
WHERE (((CADPEDsub.Loc)=[Formulários]![altCADPED]![LOC]));

Bom dia

Não informou se resolveu a sua dúvida ou não.
Caso tenha resolvido, faltou o "Resolvido"

Reveja outros temas seus que ainda estão em aberto há bastante tempo

Prezado amigo Alexandre,

Estava no aguardo de uma solução mais técnica do que a minha, porque realmente não descobri porque não funcionou usando o recordset.
De qualquer forma, utilizando a consulta, cheguei onde queria.
Vou verificar os outros temas que estão em aberto.
Abraço!!