[Resolvido]Salvar Dados de Formulário e Subformulário em duas tabelas

Bom dia Caríssimos,

Busquei por dois dias seguidos algo no fórum que pudesse me sanar, mas não encontrei especificamente o que preciso e ainda sou aprendiz para enxergar soluções que pudessem me auxiliar nos projetos postados.

Tenho que salvar em uma segunda tabela os dados de um formulário e um subformulário. Até aí tudo certo. O problema começa quando o subformulário, que está em Folha de Dados, tem mais de um registro e o formulário está em Coluna. Ao efetuar o Loop, por o formulário ter apenas um registro não consigo faze-lo entender que o Loop deve continuar no Subformulário.

Nesta tabela os dados do formulário também devem ser registrado na mesma quantidade de registros do subformulário, pois preciso da linha completa, com os dados do formulário + subformulário.

Não sei se me fiz entender.


Dim bc As Database
Dim Forn01 As DAO.Recordset

If MsgBox("Confirma a venda dos produtos?", vbYesNo + vbQuestion, "aviso") = vbYes Then

Set bc = CurrentDb()
Set Forn01 = bc.OpenRecordset("tblForn01")
   
Do While not Forn01.EOF

   Forn01.AddNew

   Forn01!IdCotacao = Me.IdCotacao
   Forn01!IdSolicitacao = Me.IdSolicitacao
   Forn01!DataCotacao = Me.DataCotacao
   Forn01!Comprador = Me.Comprador
   Forn01!Fornecedor = Me.Forn01

'Aqui começam os dados do subformulário em folha de dados

   Forn01!IdCotacaoDet = Forms![frmCotacao]![frmCotacaoDet]!IdSolicitacaoDet
   Forn01!Qtdade = Forms![frmCotacao]![frmCotacaoDet]!Qtdade
   Forn01!Produtos = Forms![frmCotacao]![frmCotacaoDet]!Produto
   Forn01!ValorUn = Forms![frmCotacao]![frmCotacaoDet]!ValorForn01


    Forn01.Update

.MoveNext

Loop

Set bc = Nothing
Set Forn01 = Nothing

MsgBox "Cotaçao inserida com sucesso!"

Else

DoCmd.CancelEvent
MsgBox "Cotação Cancelada"
End If
End Sub

Up

Boa noite Alexandre,

Como é um projeto de estudo, o BD está um caos, ainda aprendendo a estruturar, então segue todo BD.

O problema está no form "frmSelecionaProdutos". Ao clicar no botão, por hora "Comando33" gostaria de salvar os dados nas tabelas "Forn1 , 2 e 3". Problema está no Loop do subformulário


Grato pela atenção

Perdão Alexandre, o problema está no botão "btnSalvar" do Formulário FrmCotacao

Oi Alexandre, realmente. Como estou aprendendo e conhecendo ainda VBA tento de outras maneiras e vira essa confusão toda.

Nossa, será ótimo ter um exemplo

Muito Obrigado

UP

Muito Obrigado Alexandre
Vou estudar. Ficou ótimo. Sempre aprendendo aqui