[Resolvido]Inserir num campo o valor de outro campo como Valor Padrão

Bom dia Comunidade.

Meu problema no formulário é o seguinte!
Na tabela “PRODUTO” tenho um campo “preço_produto” (preço de referencia que o cliente deveria pagar)
Na tabela “DETALHES DE VENDA” tenho um campo “preço_venda” (que se refere ao preço que o cliente efetivamente pagou ).
Para acelerar a entrada de dados, eu gostaria que o campo “preço_venda” pegasse o valor do “preço_produto” como se fosse o “Valor Padrão”, e poder alterar depois somente no caso fosse diferente.
Tentei com a expressão mais obvia, colocando na propriedade Valor Padrão: = [preço_produto] mas não deu certo.
Muito Obrigado.

Bem teria que saber como vc informa o produto no detalhe da venda, se através de cx de texto ou caixa de combinação, essa última é a minha opção, pois podemos puxar o preço do produto.

Manda os detalhes.

Oi Cleverson.
Obrigado pela resposta.
Queria puxar o valor simplesmente através de cx de texto.

Veja as relações

Se vc montar a consulta com o campo preço produto, vc pode no evento após atualizar do campo produto, mais ou menos assim:

Me.precovenda.value= Me.precoproduto

Repare que o campo preço produto tem que estar no formulário detalhes venda.

Oi Cleverson.

Confirmo que os 2 campos se encontram na mesma consulta. No Formulário coloquei o código no campo "preco_prod" mas nada acontece.
Envio o screen do código para conferir eventuais erros.

Manda uma cópia do BD.

Veja em anexo....

boa tarde,


Bem, o código deve está no evento após atualizar da combo do produto, então ficou assim:

Código:



'no evento após atualizar da combo do produto
Private Sub Combinação35_AfterUpdate()

If Not IsNull(Me.Preco_Prod.Value) Then

    Me.Preço_Venda.Value = Me.Preço_Venda.Value + Me.Preco_Prod.Value

    Exit Sub

End If


End Sub



Abaixo o arquivo corrigido, bons estudos.


Abraços,

Oi Cleverson.

Ótimo trabalho.

O Código funciona mas somente a partir do lançamento de uma nova comanda.
No primeiro test fiquei perplexo porquê acrescentei o registro na comanda antiga e nada aconteceu, mas depois intendi o raciocino.

Enfim essa solução ajuda muito.

Muito Obrigado

Resolvido !!!

Oi Cleverson.

Você pensava de ser livrado de me!!!

Conferi com mais atenção e percebi que efetivamente o código funciona  a partir do lançamento de uma nova comanda mas somente no primeiro registro do sub-formulário; já no segundo registro o campo que deveria receber o mesmo valor fica com valor "0".

       

Sem problemas vou dar uma olhada aqui.

Bom dia Roberto,



Analisei novamente seu arquivo, inclusive exclui todos os registros das tabelas vendas e detalhe Venda.

Realizei vários lançamentos, ou seja, varias vendas com vários itens(produtos).

Sendo que a ordem de tabulação deve ser ajustada para que os quatro campos obrigatórios, da venda (data, turno, cliente e funcionário) sejam preenchidos antes de partir para os produtos, se não ocorre um aviso de erro.

Enfim, está funcionando normalmente.

Em casa, o sistema windows foi atualizado par 64 bits, me ferrei não consigo rodar minhas aplicações geradas em 32 bits.

Bem era o que tinha.

Abraços

Boa noite Cleverson.

Efetuei a limpeza dos registros e mudei a ordem de tabulação e confirmo que o banco está funcionando normalmente, mas somente se lanço o produto na caixa de combinação, ao contrario quando não escolho o produto na caixa de combinação mas digito o código do produto o valor não aparece.

Agradeço porque esta solução é um avanço muito grande mas você me ensina que o lançamento através o código é bem mais rápido.

Tudo bem, não quero aproveitar da tua paciência, já ajudou muito.

Muito, muito obrigado.

PS: depende do tipo de trabalho de cada pessoa mas, as vezes, o S.O. a 64 bit mais atrapalha que ajuda. Bom trabalho amigo!

Roberto,

Realmente só usando a caixa de combinação pois o código está no evento após atualizar.

Teríamos que fazer o mesmo quando digitar o código fora da cx de combinação.

Querendo posso alterar para essa forma.

Abraços

Oi Cleverson.

Seria perfeito se o código funcionasse com as duas opções, mas não quero dar trabalho; faça isso se quiser, com calma e sem compromisso.

Um grande abraço.

Campo [hr_codi] quando preenchido, puxar para os campos abaixo do Formulário na imagem

Private Sub hr_codi_Change()
codi_Fat.Value = hr_codi.Value
codi_imposto.Value = hr_codi.Value
Liv_codi.Value = hr_codi.Value
DECLA_M_DIRF_codi.Value = hr_codi.Value
DECLA_M_DEFIS_codi.Value = hr_codi.Value
DECLA_M_DSUP_codi.Value = hr_codi.Value
Fisc_taf_cod.Value = hr_codi.Value
Proc_taf_cod.Value = hr_codi.Value
DECLA_M_DCTF_codi.Value = hr_codi.Value
DECLA_M_DCTFWeb_codi.Value = hr_codi.Value
DECLA_M_ECD_codi.Value = hr_codi.Value
DECLA_M_DEMED_codi.Value = hr_codi.Value
DECLA_M_EFDCont_codi.Value = hr_codi.Value
Cont_taf_cod.Value = hr_codi.Value
Fol_taf_cod.Value = hr_codi.Value
DECLA_M_DsTDA_codi.Value = hr_codi.Value
DECLA_M_SPEDICMS_codi.Value = hr_codi.Value
DECLA_M_ECF_codi.Value = hr_codi.Value
DECLA_M_DIMOB_codi.Value = hr_codi.Value
DECLA_M_ITR_codi.Value = hr_codi.Value
Fin_taf_cod.Value = hr_codi.Value
Ges_taf_cod.Value = hr_codi.Value
End Sub