[Resolvido]Salvar dados de SubForm em duas tabelas

Boa tarde,

tenho...

Tabela = tblEntradas
Um formulário de frmEntradas = frmEntradas

Tabela = ItensEntradaEntradas
Um subform que é puxado de um form frmItensEntradas = itensEntradas => (Produto/Valor/Quantiade)


tenho tambem...

Tabela = tblEntradasEstoque => Onde dou entrada só dos itens comprados (Produto/Valor/Quantiade).

Gostaria que ao salvar os itens (Produto/Valor/Quantiade) na tabela "tblEntradas/tblItensEntradas" salvar também na tabela tblEntradaEstoque quando incluir registros novos.

Detalhe... É mais de um produto de uma vez dependendo da quantidade de itens da entrada.

como salvar os itens nas duas tabelas tblItensEntradas/tblEntradasEstoque?

OLá Silvanio

Não acha redundante ter os mesmos registros em 2 tabela?

Seria interessante repensar, irá gravar numa tabela itens  não comprados, ou seja, que não figuram no estoque?

Talvez até uma caixa de seleção já resolveria a coisa.

Veja também o relacionamento entre as tabelas

que deve ser de 1 para muitos.

Abraços

Boa noite Noobezinho,

Na realizade a tblEntrada/tblitensentrada é um espelho da NFe, já a tblEntradaEstoque seria a entrada no estoque que infelizmente se faz necessário. Só que queria ganhar tempo cadastrando ao mesmo tempo a NFe e a entrada no estoque e também me serve de conhecimento pois ja tentei fazer, só que como a maioria das vezes são mais que um item por NFe não consegui salvar.

Aguardo...

Silvanio

Eu estava viajando, quando te respondi, deve ser essa "maledita" gripe.

Você tá certo, são  necessárias 3 tabelas só para controlar o estoque, 1 para os dados da nota em si, 1 para os detalhes dessa nota(produtos) e outra para o estoque em si.


Poste teu projeto, mais fácil eu ver onde ta pegando do que tentar explicar.
então você poderá estudá-lo.

Anexe aqui no fórum com o formato zip. O winrar também cria zip, é só escolher.

Abraços

Noob

Noob,

Segue o arquivo:

vlw.

Olá Silvanio

No projeto, os objetos que  criei/modifiquei e que você deve estudá-los
tblEntrada_Produtos
tblDetalhes_Entrada
tblEstoque_Produtos

frmEntradaProdutos
subfrmDetalhesEntradas

Consulta:

qryAtualizaEntradasProdutos

Veja os código por trás do frmEntradaProdutos, tem coisa ali que
deixei pra você arrumar   
Como pode ver os formulários são simples,só para ilustrar como funciona.
Nunca é demais avisar, veja o projeto modificado em separado do teu projeto.

Procure não misturar as coisas, faça um formulário só pra pesquisa.
Assim é mais fácil do usuário operar o sistema, sabe como é né, problemas de B.I.O.S.   


Qualquer dúvida, já sabe né?

Noob

Olá,

Vamos por parte:

Testei a consulta que vc colocou só que não altera nada no estoque!

Quanto as alterações nas tabelas, acho que da na mesma, vc trocou tblItensEntrada por tblDetalhes_Entrada tirando a chave primária, o que não acho aconselhavel a se fazer.
Mas não é o que interessa na realidade.

Veja...
Entendo que para se "movimentar" estoque no Banco de Dados ou seja acrescentar ou subtrair quantidade

produtos do estoque, deve-se ter uma tabela de Produtos onde terá um campo (Quantidade) e (Estoque

Minimo). E voçê acrescentará e/ou subtrairá do campo Quantidade as estrada e/ou Saídas com uso de

Forms Entrada/Saida. Correto?...

E... Pode-se usar uma Consulta Acréscimo ou Consulta Atualização ou Cód.VBA para isso. Só que acho

eu, com alguns testes que fiz em outros projetos que se fazendo em Código VBA é mais rápido a

operação do que usando consultas.


(Até gostaria que vocês se poderem, compartilhassem suas experiências neste assunto com relação a usar

ou não consultas ou Código VBA para atualizar o estoque, qual o método mais eficaz ou rápido?. Pq

posso estar enganado!).

Quero que ao apertar em atualizar ele some a quantidade dos produtos cadastrados na frmEntradaProdutos e atualize na tabela de Produtos via.

Aguardo.

Olá Silvano

Desculpe a demora em retornar, minha gripe está me mantando   

Estou enviando o teu exemplo com as devidas correções

Tudo acontece quando vc clica no botão atualizar.

Você verá que usei código para o Access verificar se os produtos (registros) do subfrmDetalhesEntradas já existem na tabela
tblEstoque-Produtos.
Caso não tenha, o código irá adicionar somente o código do produto.
Em seguida a consulta atualizaão irá atualizar a tblEstoque_Produtos com os dados pertinentes
Estude o código e verá que dessa maneira não será preciso fazer uma outra tabela/formulário para cadastrar novos produtos.
Quanto ao fato de VBA ser mais rápido que o SQL, até pode ser, se estivemos falando de grandes quantidades de registros, o que não é nosso caso.
E quero lembrar que numa aplicação onde o BE está num servidor da internet, a comunicação entre este e o FE é por SQL.
Sobre código do produto, usava o código EAN 13 ( O código de barras), portanto não teria como haver duplicidade de código.

Grande Abraço

Noob

Opa!...

atualizar o estoque "tblProdutos" da pra fazer, Blz.

Agora ainda não consegui adicionar os itens da Entrada da NFe "frmEntradasNFe" que no caso é um Subform para a tabela "tblEstoqueEntrada".

Quero que os dados do Subformulario no fom "frmEntradasNFe" ativos sejão salvos na outra tabela "tblEstoqueEntrada".

Os campo que quero salvar:
CodProduto = CodProduto
Quantidade = Quant.
valorUnit. = Preço Unit.
DataDoRecebimento = Data da entarda

Desde já agradeço.

Banco p/ fazer a adaptação em anexo.

Quero que os dados do Subformulario no fom "frmEntradasNFe" ativos sejão salvos na outra tabela "tblEstoqueEntrada". escreveu:

Na fonte de registro de subform tem um consulta que é espelho da tblItensEntrada.
Você quer salvar os registros desse subform nas duas tabelas; tbltensEntrada e tblEstoqueEntrada?
Ou somente nessa ultima.

Tem ainda a tblProdutos.

Acredito que seja essa a tabela do Estoque propriamente dito, ou seja, de onde vc vai tirar e colocar os produtos.

Então, acho que tem tabela demais no teu projeto.

No exemplo que postei, existem 3 tabelas
tblEntradaProdutos --dados da nota fiscal ou documento de entrada
tblDetalhesProdutos--código, nomedoproduto,quantidade e valor
tblEstoqueProdutos --Estoque de onde entra e sai mercadorias.

Nesse cenário, teríamos que ter mais uma tabela , a de cadastro de produtos, para cadastrar novo produtos para poder colocá-los no estoque.
Eliminei essa tabela colocando um código VBA no botão Atualizar para verificar junto a tabela tblEstoqueProdutos a existência ou no de um produto.
O código faz essa verificação e se não existir adiciona somente o código do produto porque em seguida o estoque é atualizado com uma consulta atualização que irá preencher os demais dados.

Silvano, talvez eu esteja sendo chato, mas quero que teu aplicativo, funcione a contento   

Se quiser colocar os mesmos dados em duas tabela, é só usar fazer uma rotina de vba e outra consulta atualização no botão atualizar, para salvar em outra tabela simultanemante( o que eu acho que não deve ser feito).

Abraços

Noob

Boa noite Noob,


.
Sim Preciso salvar na tabela "tblEstoqueEntrada" os mesmos dados + os dados da NFe conforme a foto abaixo (+ DataDeRecebimento e Data do cadastro).





Sim, mas para o que quero é necessário fazer isso.

Necessário pra mim ter:
tblEntrada/tblItensEntrada => Como já disse é um espelho da NFe. => não quero puxar relatório de entrada de produtos dessas tabelas.
tblProdutos => Todos os produtos cadastrados, com estoque e tudo mais que preciso saber do produto.

tblEstoqueEntrada => Esta tabela cadastro as entradas dos produtos no estoque, Data, Quantidade e valor.
É dessa tabela que gero o relatório de entrada me produtos...

Pela foto eu acho que dá pra ver exatamente o que quero.

Só não queria ter que digitar duas vezes.

Vlw.

OK, meu amigo !!


Só preciso de mais uma informação.

Como tem 3 botões, AdicionarRegEntrada,AtualizarEntrada e SalvarEntrada, preciso saber qual desses botões
irá efetivar a atualização do estoque e que após esta atualização, limpe o subform itensEntradassubformulario,
Não quero que haja duplicação de registros na tblEstoqueEntrada
Como o projeto é teu, mais fácil perguntar, do que perder tempo verificando os código     

Noob

Olá Noob,

Já pensei neste caso, depois coloco um "if" para não diplicar o registro.

Vlw.

Consegui:

'Atualiza o estoque "tblProduto" e adiciona no "tblEstoqueEntrada"
Private Sub btnAtualizarEstoque_Click()
On Error GoTo Err_btnAtualizarEstoque_Click

If MsgBox("Deseja dar entrada nos produtos no estoque e atualiza-los?" & vbCrLf & vbCrLf & "NFe: " & Me.NotaFiscal, vbYesNo + vbQuestion, "Adicionar/Atualizar o Estoque") = vbNo Then Exit Sub

'Strings para o Subform
Dim DB As Database
Dim rsEstoque As DAO.Recordset
Dim rsclone As Recordset
Dim i As Integer

'String para a query de atualização dos produtos
Dim stDocName As String

'Strings para pegar as informações do form frmEntradaNFe
Dim strCodEntrada As String 'CodEntrada
strCodEntrada = Me.CodEntrada.Value
Dim strDataRecebido As String 'DataDoRecebimento
strDataRecebido = Me.DataRecebimento.Value
Dim strUltimaAtualizaçao As String 'UltimaAlteração
strUltimaAtualizaçao = Me.UltimaAlteraçao.Value

'Clona o Recordset do Subform
Set DB = CurrentDb()
Set rsclone = Me.ItensEntradaSubformulario.Form.RecordsetClone

'------------------------------------------------------------------------------
' Adiciona os itens da entrada na tabela tblEstoqueEntrada
'------------------------------------------------------------------------------
If rsclone.RecordCount > 0 Then ' se houve produtos
rsclone.AbsolutePosition = rsclone.AbsolutePosition + 1

Set rsEstoque = DB.OpenRecordset("tblEstoqueEntrada", dbOpenDynaset)
rsclone.MoveFirst

For i = 1 To rsclone.RecordCount
rsEstoque.AddNew 'Adicionar

'Campos a ser adicionados
rsEstoque!CodProduto = rsclone!CodProduto 'CodProduto - SubForm
rsEstoque!DataDaEntrada = strDataRecebido 'DataDaEntrada - Form
rsEstoque!Quantidade = rsclone!Qtdade 'Quantidade - SubForm
rsEstoque!PreçoUnitario = rsclone!ValorUnit 'PreçoUnitario - SubForm
rsEstoque!UltimaAlteração = strUltimaAtualizaçao 'UltimaAlteração - Form
rsEstoque!CodEntrada = strCodEntrada 'CodEntrada - Form

'Grava na tabela
rsEstoque.Update
'Move para o proximo registro
rsclone.MoveNext

Next i

'Fecha o RecordSet
rsEstoque.Close
'Fecha o Banco de dados
Set rsEstoque = Nothing

End If

'-------------------------------------------------------------
'Atualizando o Estoque (tblProdutos)
'-------------------------------------------------------------
'Desabilita mensagens padrão do access
DoCmd.SetWarnings False

'Usa a consulta Atualização "qryAtualizarProdutos" para atualizar o estoque
stDocName = "qryAtualizarProdutos"
DoCmd.OpenQuery stDocName, acNormal, acEdit

'Abilita mensagens padrão do access
DoCmd.SetWarnings True

'Msg
MsgBox "Dados atualizados com êxito!", vbInformation, "Atualização do Estoque"

Exit_btnAtualizarEstoque_Click:
Exit Sub
Err_btnAtualizarEstoque_Click:
MsgBox Err.Description
Resume Exit_btnAtualizarEstoque_Click
End Sub

Obrigado.

Obrigado Noob.

É isso ai, meu amigo

Que bom que conseguiu

Boa sorte !!


Noob

Vlw.