Ler dados do Formulario e salvar em varias tabelas no access.

Caros amigos, bom dia.

Venho a este fórum novamente solicitar a ajuda e recorro a vocês.
É o seguinte: Tenho uma tabela (em um banco de dados access) de nome ORÇAMENTO onde gravo os dados de orçamento feito para determinado cliente. Ao ser aprovado o orçamento pelo cliente isso se tornará em um pedido, sendo assim os dados referente aos produtos e materiais do pedido\orçamento serão enviados para as tabelas de produto com baixa no estoque com preço e quantidade, o valor total do orçamento feito no formulário será enviado para a tabela de despesas informando o valor a data e o cliente. Como faço um código para ler os dados da tabela orçamento e enviá-los para tblproduto e tbldespesas, e gravar os dados calculados do formulário nas tabelas de produto e despesas?

As tabelas e campos são:

tblproduto
tblCliente
tblFuncionário
tblMaterias
Campo => Valor Orçamento - Formulário Cadastro
Campo => Desconto - Formulário Cadastro
Campo => Valor Total Orçamento - Formulário Cadastro

Não sei se fui claro na explicação, peço a gentileza de me informarem.

Desde já agradeço a atenção dispensada.

Ricardo.

Ola Ricardo,

Dar uma olhada nesse tópico:

http://maximoaccess.forumeiros.com/t18169-formulario-que-grava-em-02-tabelas-ao-mesmo-tempo

Tenta usar a sugestão e vai relatando as dúvidas.


Nivaldo.

Prezado Nivaldo, boa tarde.

Infelizmente não resolve meu problema.
Pois tenho o formulário dividido em dois e os mesmos estão em modo folha de dados.
Anexo tem a imagem do erro.



Se precisar enviarei o bd para melhor esclarecer.

Bom dia Ricardo.

Você chegou a fazer alguma tentativa??
Mesmo o formulário sendo folha de dados, acho que é possível fazer.
De qualquer forma, disponibiliza o exemplo que fica mais facil de ajudar.

Nivaldo.

Nivaldo boa tarde.

Tentei fazer o que descrevia o post do fórum, mas não consegui.
Se puder dar uma olhada, agradecerei a ajuda.

Segue link do BD.

http://www.4shared.com/rar/PYXVAVjVba/db1.html

Att,

Ricardo

Estou tentando este código, mas também não obtive êxito, e quando lê os dados não envia para a tabela histórico.

Option Compare Database

Private Sub Comando107_Click()

Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma Orçamento?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("tblADM", dbOpenTable)

With rs1

.AddNew
![Cpf] = Me.Cpf
![NOME] = Me.NOME
![AMBIENTE] = Me.AMBIENTE
![DATA] = Me.DATA
![VariavelAmbiente] = Me.Servico
![PrecoUnit] = Me.PrecoUnit
.Update

End With


Set rs3 = db1.OpenRecordset("SELECT * FROM tblHistorico WHERE NumOrca=" & Me.NºORCAMENTO)
Set rs2 = db1.OpenRecordset("tblHistorico", dbOpenTable)


While (Not rs3.EOF)
With rs2
.AddNew
![CpfCliente] = DMax("Cpf", "tblADM")
![IdAmbiente] = rs3![IdAmbiente]
![Servico] = rs3![Servico]
![Medida_A] = rs3![Medida_A]
![Medida_B] = rs3![Medida_B]
![PD] = rs3![PD]
![TotalMedidas] = rs3![TotalMedidas]
![PrecoUnit] = rs3![PrecoUnit]
![Valor_Total] = rs3![Valor_Total]
![MATERIAIS] = rs3![MATERIAIS]
![Qtd] = rs3![Qtd]
.Update
rs3.MoveNext
End With
Wend

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

Set db1 = Nothing


MsgBox "Orçamento confirmado.", vbOKOnly + vbInformation, "Concluído"

End If

End Sub

Boa noite Ricardo,

Baixei o exemplo que você disponibilizou más encontrei somente a tabela Orcamento (as tabelas tblproduto e tbldespesas não estão no banco).
Uma sugestão: faz um pequeno exemplo do que você realmente está precisando, incluindo somente as tabelas, consultas e formulários envolvidas e fornecendo o máximo de informações (nome de campos, formulários, etc).

O exemplo que lhe passei através do link funciona como muitos outros modos que existem para fazer o que você quer, basta passar as informações corretas.

Fico no aguardo,

Nivaldo.

Prezado Nivaldo, boa tarde.

Estou alterando o BD e estarei enviando neste sábado.

Agradeço a atenção.

Att,
Ricardo

Prezado Nivaldo, bom dia.

Desculpa a demora mas tive uns contratempos aqui na empresa.

Sobre o assunto em questão, consegui resolver ontem a noite, e agradeço a atenção sua no assunto.

Caro Ricardo...

O fórum é para ajudar pessoas que passam por dificuldades no aprendizado e na solução de problemas quanto a programação.

Seria de bom tom, você postar como encontrou a solução para que outras pessoas possam ver a mesma e ter um norte.

Dessa forma, estamos semeando aprendizado e ajudando outros colegas que passam e vão passar pela mesma dificuldade que você está passando.

Abraços.