[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 Gino,

Por gentileza, poste aqui seu banco de dados (somente partes envolvidas) para análise e solução.

Grato.

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

Ok Gino,
Vou verificar e te retorno em breve.

Att

Bom dia Gino,

Seu formulário está bem confuso e o cadastro de produtos precisa ser melhorado para também ser utilizado na cotação de compras.
Vou elaborar um exemplo pra vc utilizar

Ate mais

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

Olá Gino,

Estou finalizando o formulário de cotação.
Hoje eu já te mando.

Olá Gino,

Segue modelo de Cotação de Produtos.

- Tela de Cotação:


- Tela de Pesquisa:
Para pesquisar, escolha o campo desejado e informe qualquer valor para carregar a lista com os resultados



Para carregar so dados na tela de Cotação, clicar 2x na linha da lista e o sistema carrega os dados na tela de cotação:




Objetos criados envolvidos no cadastro de Cotação:



Observações:
- O Cadastro de Cotação foi desenvolvido com o campos Não Acoplados à tabela.
- Utilize este modelo para desenvolver os demais formulários.
- Não tive tempo hábil par fazer os comentários no código.
- Procure ler e entender o código desenvolvido.


Segue versão do sistema



Boa sorte.

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

Valeu Gino...o forum agradece.

Caso tenha alguma dúvida, manda mensagem no privado, e eu te explico melhor.

Boa sorte.

Abraço