Início
Agravina 29/5/2012, 15:16Como faço para salvar valores um campo calculado para tabela?
3 participantes
campo calculado
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Convidad- Convidado
Acople o campo.
Ou seja, crie o campo na tabela, e no form vincule o campo a esta origem.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Este campo recebe a soma de dois campos.
exemplo campo1 campo2 campo3= campo1*campo2 preciso enviar o resultado do campo3 para tabela
exemplo campo1 campo2 campo3= campo1*campo2 preciso enviar o resultado do campo3 para tabela
Convidad- Convidado
Certo. Então crie (se já não existir) o campo3 na tabela.
E no form, na propriedade FonteDoControle defina campo3.
Se o form é desvinculado, envie o valor do campo da mesma forma que envia os outros.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Veja este campo recebe o resultado de um calculo,se eu vincular na fontecontrole,ele não recebera o calculo.
Convidad- Convidado
E por que não?
Tanto faz se for atualizado com um valor digitado ou calculado.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
lembrando que feito no próprio campo não vba
campo1 campo campo3 =[CAMPO1]*[CAMPO2]
campo1 campo campo3 =[CAMPO1]*[CAMPO2]
Convidad- Convidado
Tire isto e preencha o campo via código.
Pode se no evento AfterUpdate() do campo1 e do campo2:
Private Sub campo1_AfterUpdate()
If Not IsNull(Me.campo1) And Not IsNull(Me.campo2) Then
Me.campo3 = Me.campo1 * Me.campo2
End If
End Sub
Algo assim...
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Não funcionou !de uma olhada no frmvendas por favor.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Opa segue o bd.
- Anexos
projeto Pdv.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (61 Kb) Baixado 69 vez(es)
Convidad- Convidado
Versão incompatível.
Aguarde o auxílio de um colega que use 2007/2010.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Segue Bd em 2003!
- Anexos
- projeto Pdv2003.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (45 Kb) Baixado 46 vez(es)
Convidad- Convidado
Tche, facilita minha vida... qual é o form e quais são os controles que quer somar e qual é o controle que vai receber a soma.
É que não achei, mesmo.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Form vendas ,campo Total compras, enviar o valor total para tabela.
preciso enviar este valor para saber depois quanto foi vendido.
preciso enviar este valor para saber depois quanto foi vendido.
Gilberto Rocha- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010
Não é recomendado salvar campos calculados na tabela, o ideal é fazer isso na consulta.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
topbr,como posso fazer isso? se puder me dar uma ajuda agradeço
Convidad- Convidado
O colega topbr tem razão.
São excepcionais os casos onde armazenamos valores que podem ser obtidos com consultas e um pouco de matemática.
Para você obter este valor basta somar a multiplicação da quant pelo valor dos registros da venda tal.
SELECT tbl_vendadetalhe.DetalheCódigovenda, Sum([Quant]*[ValorUnit]) AS Total
FROM tbl_vendadetalhe
GROUP BY tbl_vendadetalhe.DetalheCódigovenda;
Esta consulta retorna o total por venda.
Uma DLookup com esta consulta e o critério do código da venda retorna o total.
Mas se quiser gravar, faço pra você.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Amigo Norberto ,se puder pode fazer para mim,to parado ai não consigo dar continuidade ao projeto.
Convidad- Convidado
Veja que, para obter o valor total de cada venda, basta a consulta que postei acima.
Então sempre que precisar, é só buscar o valor nesta consulta - do mesmo modo que faria buscando o valor gravado na tabela. Só que sem gravar.
Se salvar o total na tabela, qualquer alteração - como exclusão, alteração de preço, etc - precisa ser regravada na mão. Com uma consulta tudo fica atualizado automaticamente.
Não entendi o você que que eu faça:
Gravar o total na tabela?
Ou usar consulta, e ajeitar para que apareça o total no campo Texto56 (Total Compra)?
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Vou Criar um relatório para saber o total da venda dia, ai vou deixar para voçê faça como achar melhor.
Convidad- Convidado
Vamos fazer sem gravar na tabela, então.
No caso do relatório, na consulta base dele, inclua a tabela e campos que precisa e, para o total da venda, inclua o campo Total da consulta que eu fiz, e relacione o campo Códigovenda com o próprio na tabela.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Beleza como achar melhor!
Convidad- Convidado
Acrescentei um campo ChavePrimária na tabela tbl_vendadetalhe. (precisa ter!)
Estabeleci o relacionamento entre a tabela tbl_venda (Um) e a tabela tbl_vendadetalhe (Muitos). (Sem relacionar não atualiza!)
Já está exibindo o Total no formulário, usando a consulta!
Mas tem problema no subform detalhesvenda: não exibe os detalhes.
Estou vendo o que é...
Vejo que não tem uma combo pra definir os produtos... como funciona?
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
atraves de dlookup entra com codigo ai vai para o subform
Convidad- Convidado
Que complicado isso...
Corrompeu aqui. Não abre mais o form de vendas. É comum em bd's convertidos!
Mas está aí o que precisa: salve a consulta da msg 18 como ConsultaTotalDaVenda.
No form vendas:
Me.Texto56 = DLookup("Total", "ConsultaTotalDaVenda", "DetalheCódigovenda = Forms!FrmVendas!Códigovenda")
E onde precisar - como no relatório - inclua a consulta na grade e use o campo Total, ou use a DLookup.
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
em qual evento coloco
Me.Texto56 = DLookup("Total", "ConsultaTotalDaVenda", "DetalheCódigovenda = Forms!FrmVendas!Códigovenda")
Me.Texto56 = DLookup("Total", "ConsultaTotalDaVenda", "DetalheCódigovenda = Forms!FrmVendas!Códigovenda")
Convidad- Convidado
Como vai querer que exiba sempre o total conforme o registro exibido, deve colocar no evento NoAtual (Form_Current) do form.
Mas também vai querer que atualize quando alterar o subform Detalhes.
Então deve colocar também no evento ApósAtualizar (Form_AfterUpdate) do subform.
Lupércio- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011
Norbero boa noite!
Com sua licença!
Acho que assim funciona:
No click do botão:
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
If MsgBox("Confirma Transferência?", vbYesNo + vbQuestion, "CONFIRMAR!") = vbYes Then
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("SuaTabela", dbOpenTable)
With rs1
.AddNew
![ControleCalculado] = Me.CampoDaTabela
.Update
MsgBox "Transferência efetuada com sucesso.", vbOKOnly + vbInformation, "Concluído"
DoCmd.Close
End With
rs1.Close
Set rs1 = Nothing
db1.Close
Set db1 = Nothing
End If
End If
Com sua licença!
Acho que assim funciona:
No click do botão:
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
If MsgBox("Confirma Transferência?", vbYesNo + vbQuestion, "CONFIRMAR!") = vbYes Then
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("SuaTabela", dbOpenTable)
With rs1
.AddNew
![ControleCalculado] = Me.CampoDaTabela
.Update
MsgBox "Transferência efetuada com sucesso.", vbOKOnly + vbInformation, "Concluído"
DoCmd.Close
End With
rs1.Close
Set rs1 = Nothing
db1.Close
Set db1 = Nothing
End If
End If
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Amigo Norberto se conseguir posta o exemplo ok.
Convidad- Convidado
Não tem como, pois o arquivo corrompeu...
Lupércio- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1143
Registrado : 07/05/2011
Ve se é isso!
Coloquei um capo na sua tabela: txtQtd
E no click do botão envia o conteudo do mesmo para tabela"
Coloquei um capo na sua tabela: txtQtd
E no click do botão envia o conteudo do mesmo para tabela"
- Anexos
- projeto Agravina.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (66 Kb) Baixado 29 vez(es)
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Vou dar uma olhada!
Tópicos semelhantes
» [Resolvidos]Campo Calculado num Formulário-Como adicionar valor calculado à Tabela correspondente?
» Campo calculado em consuta usando dados de campo em registro anterior
» [Resolvido]Copiar dados de um campo calculado do form para um campo na tabela.
» [Resolvido]Como usar dados de um campo calculado em um campo de tabela num subformulario ou formulario?
» Substituir o valor de um campo de um subformulário a partir de um campo calculado no formulário para todos os registro do subformulário
» Campo calculado em consuta usando dados de campo em registro anterior
» [Resolvido]Copiar dados de um campo calculado do form para um campo na tabela.
» [Resolvido]Como usar dados de um campo calculado em um campo de tabela num subformulario ou formulario?
» Substituir o valor de um campo de um subformulário a partir de um campo calculado no formulário para todos os registro do subformulário
|
|
|