[Resolvido]Consulta Atualizar valore

Gostaria de uma ajuda referente a consulta.

Tenho uma consulta que atualiza quantidade em estoque, gostaria nesta mesma consulta atualizar também o valor de venda do produto, tenho este critério na consulta

Produtos!ProdutoQuantidade+EntradaDetalhe!EntradaQuantidade.

Como faria para atualizar o valor os campos EntradaValorVenda para o campo ProdutoValorVenda.

Desde já agradeço a atenção de todos

Não conseguiu colocando o mesmo critério no outro campo da consulta?

Não consegui, tentei várias vezes e não deu certo, por que será?????

Boa pergunta. Por que será?

Se possível, posta um print da consulta em modo design para a gente dar uma olhada.

Deixa eu dar um pitaco...

Rita os dois valores que quer atualizar estão no mesmo form?
ou um esta no Form e o outro no Subform?

Criquio, já tentei mandar a imagem, mas da erro o aquivo é bmp e o tamanho é menor que o exigido pelo Fórum



Hery

Quero atualizar o Form. Produtos através do form entrada e dentro do forme entrada tem o sub form. entrada detalhes

Mas todos os campos que quer atualizar está no mesmo suboformulário?

Um campo é no form. Produtos que quero atualizar do Campo cim o mesmo nome No form entrada com o sub entradadetalhe

é Assim rita...

Voce quer atualizar dois valores

Estoque e Produto

No seu form... que esta aberto que dá o Start na consulta.. voce tem as caixas texto onde ficam os Dados

1 - CaixaTexto Estoque
2 - CaixaTextoValor

Essas caixa texto onde estao os valores.... ficam onde? No form ou no subform?
ou uma no Form a outra no subform?

Não seria o estoque e sim o calor de venda, quando eu compro (Form. Entrada dentro dele tem um SubForm. Entrada detalhe campo ValorCompra) teria que atualizar o Valor da compra no (FormProdutos campo ValorDe Venda)e entro com o pedido gostaria de acertar o valor de venda. Valor de compra = Valor de venda

Olha esse criterio que uso aqui...

[tbl_Parcelas_Vendas].[Val_Parc]+[Formulários]![Pgto_Cliente_Estorno_Parcial]![ValorPago]

Em Azul - Referente a tabela
Em Vermelho - Referente ao Form

Esse aqui é quando estorno um pagamento.. e volto ele para a tabela

Valor dsa tabela + Valor estornado

Lembrando que:

Para atualizar a linha tem que ter o critério que identifique a linha...

[Formulários]![Pgto_Cliente_Estorno_Parcial]![CódRegistro]

Ou seja... No seu Form o registro é 003

A consulta vai atualizar a linha 003 da tabela

Uso este critério na consulta que atualizo a quantidade nos estoque



Produtos!ProdutoQuantidade+EntradaDetalhe!EntradaQuantidade(Somente com este campo funciona certinho)

---------------------------------------------------------------------------------------------------------

Preciso que agora atualize o valor de venda + ou – assim

Produtos!ProdutoValorVenda+EntradaDetalhe!EntradaDetalheValorVenda(este critério não poderia ser assim para somar e sim para substituir o valor pelo valor atual digitado independente se for maior ou menor digitado



Só que quando eu mando atualizar os dois campos da este mensagem Inserir o valor do parâmetro EntradaDetalhe!EntradaDetalheValorVenda

Rita

Ele esta querendo Este valor:

EntradaDetalhe!EntradaDetalheValorVenda

Por isso te perguntei...

Onde esta o campo que tem esse valor????

E

Veja onde fica esse valor..
Nome do Form e Nome do Campo

e coloque assim:

[Formulários]!]NomeDoSeuForm]!]NomeDoCampo]

Ha... preste atencão onde esta colocando isso

para atualizar não é em Critério...

Coloque em Atualizar para....

Se colocar em critério vai dar erro

Hary deu certo, como você me passou.



Criquio e Hary, vocês são os caras.

Sou muito grata a atenção de ambos até mais, rsrsrs

Rita, ficamos felizes que tenha conseguido. Colocamos o Resolvido então?

Sempre a Disposição..

Boa noite

Bom dia a tados

Hary e Criquio, estou retornando ao mesmo tópico pois estou com problema na mesma consulta.



Ela esta somando o valor que atualiza e não substituindo o valor da venda, como substituir o valor e não somar o mesmo.

Esta assim

Produtos!ProdutoValorVenda+EntradaDetalhe!EntradaValorVenda

Por favor me ajude novamente.

Do modo que você me explicou da erro (Inserir valor do parâmetro)



Campo: ProdutoValorVenda

Tabela: Produtos

Atualizar para: Produtos!EntradaDetalhe!EntradaValorVenda

[Formulários]!]EntradaDetalhe]!]EntradaValorVenda] Errado

certo

[Formulários]![EntradaDetalhe]!][EntradaValorVenda]

Hary e Vieira, deu certo na consulta desta maneira

EntradaDetalhe!EntradaValorVenda



Deste modo abaixo também deu erro

Formulários]![EntradaDetalhe]!][EntradaValorVenda]



Sou muito grata pela ajuda e atenção de ambos

Que DEUS ilumine seus caminhos

Claro que deu erro:

Formulários]![EntradaDetalhe]!][EntradaValorVenda]

o Correcto:

Formulários]![EntradaDetalhe]![EntradaValorVenda]

Bom então podemos dar por resolvido.

Que bom que resolveu, ficamos felizes.. não respondi antes pois fiquei sem conexão desde ontem a tarde..

Saudações

Ola, eu outra vez com a mesma consulta.

Tudo certinho na consulta, digo quase tudo
Quando eu não digito o valor da EntradaValorVenda o valor é atualizado para 0,00, como fazer se o campo não for digitado valor algum ele mantenha o último valor digitado.

EntradaDetalhe!EntradaValorVenda(campo da consulta que atualiza o valor)

Sou grata a atenção

Voce teria que incluir um código desviando dessa consulta...

If Me.NomeDoCampo = "" Then GoTo Continuar

****Aqui o Código que corre essa consulta

Continuar:
.... Restante dos códigos



Assim desvia da consulta...Agora cuidado ao aplicar porque pode desviar de outros códigos...
Tente usar com cautela...

Se sua consulta atualiza mais de um campos, crie consultas separadas por campo


Saudações

Hary, não entendi muito bem.

Nesta consulta atualizo três campos na mesma tabela Produto, o campo quantidade em estoque que soma a quantidade de estoque, (Produtos!ProdutoQuantidade+EntradaDetalhe!EntradaQuantidade), Este outro campo atualiza o valor de compra que é meu custo, (EntradaDetalhe!EntradaValorCompra), e este outro que atualiza meu valor de venda (EntradaDetalhe!EntradaValorVenda) isso tudo em uma unia consulta, como devo proceder neste caso.

Por favo me de uma luz,
Sou Grata pela atenção.

Pode criar essa consulta em separado e como disse no post anterior, desviar dela, caso nao seja mudado o valor..

Saudações

Coloque o código completo para darmos uma olhada..

Saudações

O que você quer dizer com If Me.NomeDoCampo = "" Then GoTo Continuar em uma consulta???

Exato, porque ai o corrimento dessa consulta ficsa condicionada a esse critério..

é mais ou menos por ai

Tem que ver qual criterio vai usar...

Se esse campo quando voce não altera o preço se le fica null ou 0 ou outro valor

Pode ser:

= ""
ou If IsNull (NomedoCampo)

depende de como é o valor nele se nao altera o preço...

Dificil falar sem ver...

mas teste..

Mas sempre faça cópia do BD antes de qualquer alteração

Saudações

If = Se

Me.= Formulário actual

Then Goto (é uma expressão que dá uma ordem ao código para ser executado.)

Traduzindo

Se o formulário. Nome do campo do seu formulário = "" (Em branco) Então ir para

If Me.NomeCliente="" Then GoTo

Não esqueças de explicar para tornar mais compreensível o que tem que fazer, logo após o Then GoTo....

Não aceita If Me.EntradaValorVenda="" Then GoTo este código na consulta

Claro, falta o restante do código.

If Me.EntradaValorVenda="" Then
tem que escrever aqui a instrução para continuar o código, caso a condição acima seja verdadeira.

Por exemplo:

SE a condição for verdadeira, quero que feche este form

If Me.EntradaValorVenda="" Then
DoCmd.Close
End If

Uso no campo Atualizar para estes três código na mesma consulta
(Produtos!ProdutoQuantidade+EntradaDetalhe!EntradaQuantidade)
(EntradaDetalhe!EntradaValorCompra)
(EntradaDetalhe!EntradaValorVenda)
Faz quase tudo certo menos (EntradaDetalhe!EntradaValorVenda) se eu não colocar valor algum no campo do formulário ela zera meu preço de venda, é isso que acontece

Ok Vieira, mas onte eu edito o código, na consulta, no botão que executo a consulta

Faça um teste para ver aonde melhor se adapta. No botão que abre a consulta, por exemplo, embora não me pareça que vá funcionar muito bem dessa forma , teste por favor.

Rita queria... coloque aqui o nome do campo e o código completo porvafor... assim é melhor para analisarmos...

Saudações

Hary
Esta descrito exatamente como esta acima, de uma lida veja se da para entender

Vieira
Não da certo em nem um das duas tentativa

Quando uso assim
(EntradaDetalhe!EntradaValorVenda)+ (EntradaDetalhe!EntradaValorCompra), ela soma o valor. (CERTO)

Quando uso assim
(EntradaDetalhe!EntradaValorVenda), e digito o valor ela joga o valor digitado.(CERTO)

Quando uso assim
(EntradaDetalhe!EntradaValorVenda), e não digito nada o valor é zerado(0,00 ERRADO)

Rita!! Voce esta aplicando o IF... na consulta?


Seguinte.........

1 - Voce faz o lançamento do s valores no form.....
2 - Voce clica em um botão para executar a consulta que vai atualizar os valores certo?
3 - Sua consulta atualiza os 3 valores silmutaneamente....

****Primeiro voce tem que desmenbrar as consulta ficando:

1 - Para dois valores
1 - Para o valor que quer analizar quando nao satisfaca alguma condiçao no form.. (que é justamente quando nao quer atualizar o valor)


Pois bem...

No botão onde corre essa consulta.. coloque a consulta que sempre é aplicada independente de qualquer condição...

E agora o X da questão.. a consulta que atualiza o valor.. ela so vai ser executada se forem satisfeitas as condições que escolher, ou não ser executada dependedo de uma condição que a exclui da execução?

Capite???

Então Post áqui o nome do campo que vai utilizar nessa consulta (que não será executada caso não satisfaça as condições estabelecidas... e post o código...


o que é uma condição???


Simples, quando voce nao quer que atulize o valor??? essa é condição...

Se o Valor for nulo?
se o valor for 0
Se o Valor for =O ou < ou > a algum número..

Isso são condições...

Bem o que o IF faz???
como o nome diz... IF = SE...

If me.NomeCampo.Value = "" Then Goto Continuar 'Se o Campo(NomedoCampo) tiver valor = "" (branco) Then GOto (Vá para)

Ai voce pula a consulta... (pra isso serve a instrução Continuar......

* Abaixo no código onde estiver escrito

Continuar: ' Ai a instrução recomeça....

Exemplo


If Me.NomeDoCampo.Value = "" Then GoTo Contunuar

DoCmd.OPenQuery "SuaConsulta"

Continuar:

Restante do código


** Então aqui quando a condição não for satisfeita o Then Goto Continuar manda a execução

Remete a execução do código para o ponto...
Continuar:
Espero ter sido claro..

Saudações

Muito claro, agora vou ver se consigo fazer isso, uffa, sabe como é uma loira, rsrsrs

Retorno aqui assim que conseguir, rsrsrs

Sou grata pela paciência e atenção

Olha o que voce postou:

Uso no campo Atualizar para estes três código na mesma consulta
(Produtos!ProdutoQuantidade+EntradaDetalhe!EntradaQuantidade)
(EntradaDetalhe!EntradaValorCompra)
(EntradaDetalhe!EntradaValorVenda)
Faz quase tudo certo menos (EntradaDetalhe!EntradaValorVenda) se eu não colocar valor algum no campo do formulário ela zera meu preço de venda, é isso que acontece


Voce tem que ter duas consultas



Primeira Consulta para os valores
(Produtos!ProdutoQuantidade+EntradaDetalhe!EntradaQuantidade)
(EntradaDetalhe!EntradaValorCompra)

Segunda Consulta para o Valor(EntradaDetalhe!EntradaValorVenda)


Essa segunda consulta voce coloca no após atualizar do referido campo onde aplica o valor (ou não aplica conforme a venda)


e no após atualizar deste campo a cláusula que nao executa a consulta quando este campo fica em branco

Assim:
If Me.NomeDoCampo.Value = "" Then
Exit Sub ' Encerra o código não executando a consulta
Else 'Else significa.. Caso contrário... executa a consulta
DoCmd.OpenQuery "SuaConsulta"
End If

Coloque assim, só que o valor fica sempre 0,00

Private Sub ProdutoValorVenda_AfterUpdate()
If Me.EntradaValorVenda.Value = "" Then
Exit Sub
Else
DoCmd.OpenQuery " AtualizacaoEntradasValorVendas"
End If
End Sub

Na consulta ficou assim em Atualizar para:

EntradaDetalhe!EntradaValorVenda

A condição tem que ser conforme o valor...

Se ao não alterar a caixa do valor de venda... e se o valor padrão dela for 0,00 A condição tem que ser esta..

If Me.NomeDoCampo.Value = "0,00" Then.........

O texto entre aspas é o valor que a caixa tem caso voce nao a altere.......