[Resolvido]Consulta Atualizar valore

Teria que ser assim, se digitar um valor de Venda ela deve alterar o valor, se não for digitado o valor de venda ele deve permanecer o valor que esta

Teria que ser assim, se digitar um valor de Venda ela deve alterar o valor, se não for digitado o valor de venda ele deve permanecer o valor que esta

Teria que ser assim

Estou vendendo a 90,00
Subiu o preço tenho que vender agora a 95,00
Então se eu não anterar o valor na entrada de venda o valor deve permanecer o mesmo que é 90,00
Se eu alterar para qualquer valor ou 95,00 ou 0,00 ele deve atualizar o valor digitado

Rita minha querida....

Esse valor é alterado se voce digita o novo valor no devido campo certo??

Se voce não digita o valor... A sua caixa fica por padrao como??

Em Branco?
Com valor 0
Com valor 0,00
Com valor R$ 0,00

Porque a istrução que deve utilizar é esta:

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 Uma das em vermelho A condição tem que ser esta..

If Me.NomeDoCampo.Value = "Aqui Vai o Valor Padrao da sua caixa" Then.........

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

Certo Hary, até ai eu entendi tudo, vc foi muito claro.

If Me.NomeDoCampo.Value = "Aqui Vai o Valor Padrao da sua caixa" Then.........

Mas no código acima eu precisaria que
If Me.NomeDoCampo.Value = "se não for alterado permanece o mesmo valor" Then.........(Então não tem como, é isso)

Imagino um código assim

Private Sub ProdutoValorVenda_AfterUpdate()
If Me.EntradaValorVenda.Value = "" Then For Alterado para qualquer valor altera ?,??
If Me.EntradaValorVenda.Value = "" Não For Permanece o mesmo e nunca zera 0,00
Exit Sub
Else
DoCmd.OpenQuery " AtualizacaoEntradasValorVendas"
End If
End Sub

Existe este código ou algo parecido, me perdoe se estiver falando bobagem

Ou um código assim

Se o valor for igual ou menor nada faz - Valor – ou < Venda x,xx
Se o valor for maior altera - Valor > altera para o valor digitado no campo

Entendi rita..

O problema ai.. é que se voce altera o valor.... não vai ter parâmetros pra essa comparação....

Oras se usa a propria caixa texto para a comparação.. ao alterar o valor, como ela saberá o valor antigo???



Voce pode tentar assim...


Crie uma caixa texto.. e a nomeie de txtTMP... (propriedades visivel não)

No campo ao Clicar,, mande esse valor para essa caixa temporaria.. Assim

Private Sub CaixaTextoValor_Click()
Me.txtTMP.Value = Me.CaixaTextoValor.Value
End Sub


No Campo Onde digita o valor:

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


Dessa forma o ao clicar no campo valor ele joga o valor que esta la.. em uma caixa temporária
txtTMP, depois voce altera o valor no campo Valor.... e ai sim terá parametros para a comparação..


Espero que tenha entendido o raciocionio


Saudações

Hary deu certo a atualização do valor da maneira a baixo

If Me.EntradaValorVenda.Value <= "" Then
' If Me.EntradaValorVenda.Value = "" Then
Exit Sub
Else
DoCmd.OpenQuery " AtualizacaoEntradasValorVendas"
End If


Mais uma coisa, a última (lhe prometo)
Tenho como utilizar este código no mesmo botão que dou baixa em outra consulta neste mesmo forme que atualiza o estoque e o valor de custo(Mesmo número de pedido o código do botão é o seguinte

Private Sub Comando13_Click()
On Error GoTo Err_Comando13_Click
If MsgBox(" Deseja dar Entrada no PEDIDO ??? ", vbYesNo, " A T E N Ç Ã O . ") = vbYes Then
EntradaAprovada.Value = -1
Else
EntradaAprovada.Value = 0
End If
If MsgBox(" ENTRAR COM OS PRODUTOS EM ESTOQUE ?", vbCritical + vbYesNo, " A T E N Ç Ã O . ") = vbYes Then
Dim stDocName As String
stDocName = "AtualizacaoEntradas"
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
Else
End If
Exit_Comando13_Click:
Exit Sub
Err_Comando13_Click:
MsgBox Err.Description
Resume Exit_Comando13_Click
Form.Refresh
End Sub


Muito grata pela sua atenção

If Me.EntradaValorVenda.Value <= "" Then
Exit Sub
Else
DoCmd.OpenQuery " AtualizacaoEntradasValorVendas"
End If


bem... ese < não tem utilidade ai.. mas se diz que deu certo!!!???

tenta tirar o < pra ver pois esse valor significa (Menor).. como pode haver algo menor em um campo em branco???

bem...

Vou analisar sua nova duvida
Abraços

Private Sub Comando13_Click()
On Error GoTo Err_Comando13_Click
If MsgBox(" Deseja dar Entrada no PEDIDO ??? ", vbYesNo, " A T E N Ç Ã O . ") = vbYes ThenEntradaAprovada.Value = -1
Else
EntradaAprovada.Value = 0
End If
If MsgBox(" ENTRAR COM OS PRODUTOS EM ESTOQUE ?", vbCritical + vbYesNo, " A T E N Ç Ã O . ") = vbYes Then
Dim stDocName As String
stDocName = "AtualizacaoEntradas"
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
Else
End If
Exit_Comando13_Click:
Exit Sub
Err_Comando13_Click:
MsgBox Err.Description
Resume Exit_Comando13_Click
Form.Refresh
End Sub



Bem.. ai voce teria 4 possiveis lugares para aplicar o código... Quais São?

Simples voce tem duas MsgBox.. que lhe dá duas opções cada uma
1 - sim
2 - não..

Então São duas opções SIM e duas opções Não...
Em qual das situações pretende utilizar essa consulta?

Em qual dos sim ou dos não?

No mesmo cliterio , se SIM atualiza as duas consulta se NÃO não atualiza nem uma das duas Hary

If MsgBox(" ENTRAR COM OS PRODUTOS EM ESTOQUE ?", vbCritical + vbYesNo, " A T E N Ç Ã O . ") = vbYes Then


Nas duas mensagem que tem nesse código a parte em vermelha significa a opção pelo sim

O Else significa o não.... ela fala: Caso contrário (não)


após qual mensagem quer aplicá-lo?

Caso der para fazer tudo em uma só menssagem ficaria melhor, caso não poderia ser a última

A primeira mensagem de dar entrada no pedido só faz duas coisas

Caso Sim, preenche um campo com o valor SIM
Caso não, preenche o mesmo campo com o Valor NÃO...

Se caso as respostas as duas mesagens sejam sempre iguais dá pra fazer em uma so,,,

Exemplo

Deseja dar entrada no pedido? Resposta SIM
Entrar com produtos em Estoque? Resposta SIM


Tem algum caso que as respostas serão diferentes???

Muito bom assim Hary, ficaria bem melhor

???? não entendi... leu o que te perguntei ai acima?

As resposta são sempre as mesmas

ai.. quando clica em SIM... voce quer que checa aquela condição certo?

se satisfazer a regra executa ou não a consulta..

é isso?

Isso mesmo

Boa Noite

Está a ficar de novo muito longo o tópico. Assim que terminarem , se possível colocar um exemplo no Repositório de Exemplos. Os tópicos demasiados longos são infrutíferos e confusos para os que vem a seguir.

teste assim;


Private Sub Comando13_Click()
Dim stDocName As String
On Error GoTo Err_Comando13_Click

If Me.EntradaValorVenda.Value <= "" Then Go To Continuar:
Else
MsgBox(" ENTRAR COM OS PRODUTOS EM ESTOQUE e Entrada no Pedido?", vbCritical + vbYesNo, " A T E N Ç Ã O . ") = vbYes Then
stDocName = "AtualizacaoEntradas"
EntradaAprovada.Value = -1
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
Else
EntradaAprovada.Value = 0
End If
Exit_Comando13_Click:
Exit Sub
Err_Comando13_Click:
MsgBox Err.Description
Resume Exit_Comando13_Click
Form.Refresh
ExitSub


Continuar:
MsgBox(" ENTRAR COM OS PRODUTOS EM ESTOQUE e Entrada no Pedido?", vbCritical + vbYesNo, " A T E N Ç Ã O . ") = vbYes Then
DoCmd.OpenQuery " AtualizacaoEntradasValorVendas"
stDocName = "AtualizacaoEntradas"
EntradaAprovada.Value = -1
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
Else
EntradaAprovada.Value = 0
End If
Exit_Comando13_Click:
Exit Sub
Err_Comando13_Click:
MsgBox Err.Description
Resume Exit_Comando13_Click
Form.Refresh
End If
End Sub

Vieira, entendo.

Hary, assim que testar volto a a postar, sou muito grata a sua atenção.

QUE DEUS ILUMINE SEUS CAMILHOS

Nas próximas querida.. resolveremos assuntos por tópico...
fica melhor e não ganhamos puxões de orelha hehehe

Vierão é que resolvemos vario em um só..

Dá proxima vez esta a dica para nossa amiga...
Relax my brother..

Saudações

Hary, bom dia

Tentei de tudo mas não tem solução, quando executo uma das duas consulta da errado, ou eu atualizo o estoque e o custo(Mesma Consulta) ou o valor da venda do produto(a outra consulta) não tem como cada uma fazer a sua função, pedi até o sono sem conseguir uma solução não sei o que fazer para conseguir usar o sistema na minha loja.
Uma pena mas fazer o que.

Sou muito grata a sua atenção e colaboração

Bem.. é dificil assim sem ver... caso queira pode postar o seu BD aqui ou me enviar via e-mail... impossível não é...

Me envie e resolveremos isso

Harysohn@hotmail.com....


Sem solução voce não ficará...

Saudações

Meu querido, não vou mais tomar seu tempo, Vou desistir do Access, gosto de programação, percebi que tem casos que não tem como ser resolvido no Access(Pelo que eu vi)
Desculpe- me por ter tomar seu tempo, tenho muita gratidão por ti.

QUE DEUS ILUMINE SEUS CAMIHOS

APenas não estamos a visualizar corretamente o problema.. Nosso Access faz isso sim...

Me envie o BD que resolveremos...

Saudações, e tenha uma ótima manhã!