[Resolvido]Consulta com Filtro

Consulta com Filtro

Saudações a todos.

Peço novamente ajuda aos amigos do Fórum.

Uso o seguinte código para executar uma consulta para fechar minhas vendas.

Private Sub Comando19_Click()
On Error GoTo Err_Comando19_Click
If MsgBox("DESEJA FECHAR A VENDA ? ", vbCritical + vbYesNo, " A T E N Ç Ã O . ") = vbYes Then
Dim stDocName As String
stDocName = "AtualizacaoSaidas"
DoCmd.OpenQuery stDocName, acViewNormal, acEdit
DoCmd.GoToRecord , , acNewRec
Else
End If
Exit_Comando19_Click:
Exit Sub
Err_Comando19_Click:
MsgBox Err.Description
Me.Form.Requery
End Sub

Quando executo este código (Consulta) ele fecha minhas vendas (baixa quantidade de produtos no estoque), caso eu tenha outras vendas anterior aberta todas são fechadas.
Como eu faria um filtro para fechar somente o registro atual (o que esta na tela no momento do clique).

Sou grato pela atenção de todos.

Por que não usa um CurrentDb.Execute "UPDATE NomeDaTabela SET Campo1='" & Me.Campo1 & "', Campo2='" & Me.Campo2 & "'"? Dessa forma, só salva o registro da tela.

Por favor, alguém poderia me ajudar.

Esta é a consulta que gostaria de ajuda

Tentou a dica que eu passei? Se sim, o que aconteceu? O que não ocorreu conforme o esperado?

Não deu certo, não consegui entender o por que não deu certo.
Faz uma gentileza Criquio, da uma olhada na imagem da consulta que eu postei.

Olhar a imagem da consulta não ajuda, até porque a qualidade da imagem não permite ler o que está escrito nela. Me parece que tem uns critérios em alguns campos, mas não dá para saber o que é e nem a relação com o resto da aplicação. Detalhe bem a estrutura do aplicativo e o que realmente você precisa. Quanto mais detalhes, melhor para entendermos.

Clique no botão nova venda para abrir a venda, selecionar o produto e digite a quantidade e pressione enter, ao clicar no botão fechar venda é executada a consulta e pede para digitar o número da saída.
Ao digitar o número da saída é baixado o produto no estoque, seria justamente ai que gostaria que não houvesse a necessidade de digitar o número da saída, que fechasse somente o registro que esta selecionada na tela.
Estou a uma semana tentando e não consigo uma solução.

Sou grato pela atenção

Como poderia lhe enviar uma cópia do banco.

Por favor, alguém poderia me ajudar.

Está meio complicado opinar sem conhecer a estrutura do aplicativo. Dê uma procurada por "Gestão de Economato" no Repositório de Exemplos que salvo engano, tem essa funcionalidade nele. Caso reste dúvidas, tem outros tópicos com dúvidas resolvidas desse mesmo exemplo.

Alguém poderia me dar uma luz como adptar este código em meu projeto.

CurrentDb.Execute "UPDATE Produtos SET Produtos.ProdutoQuantidade = Produtos.ProdutoQuantidade -'" & Me.Form.[SaidaDetalhe].Me.SaidaQuantidade & "'" _
& " WHERE Produtos.ProdutoCodigo=" & Me.Form.[SaidaDetalhe].Me.SaidaQuantidade & ";"

Onde esta Me.Form.[SaidaDetalhe].Me.SaidaQuantidade (é meu Sub Formulario)

Agradeço atenção de todos

Criquio, caso queira dar uma olhada nos form. passa um e-mail que lhe envio pra vc dar uma olhada e vê se daria par me ajudar a resolver, pois não sei como postar meu exemplo no forum.

Naldo
Experimente esse código:

Código:


CurrentDb.Execute "UPDATE Produtos SET Produtos.ProdutoQuantidade = Produtos.ProdutoQuantidade -" & Me!SaidaDetalhe!Form.SaidaQuantidade & " " & _
"WHERE Produtos.ProdutoCodigo=" & Me!SaidaDetalhe!Form.SaidaQuantidade?????


Veja que coloquei ???? no nome do SaidaQuantidade no lugar dele deve ser o nome do controle que tem o código do produto.
A consulta nunca irá encontrar o produtoCodigo =SaidaQuantidade

Acreditando que o nome do teu formulário seja SaidaDetalhes.
Caso seja Form.SaidaDetalhes, por favor, mude esse nome(frmSaidaDetalhes, por exemplo),pois "Form." é palavra(e ponto) reservado do Access, como pode ver no código acima.
Abraços

Tentei desta maneira, MS esta dando erro e não consigo resolver.

urrentDb.Execute "UPDATE Produtos SET Produtos.ProdutoQuantidade = Produtos.ProdutoQuantidade -" & Me![SaidaQuantidade(ESTA DANDO ERRO AQUI NÃO, CONSEGUE ACHAR O CAMPO)]![frmgradecaixarapido] & " " & _
"WHERE Produtos.ProdutoCodigo=" & Me![SaidaQuantidade]![frmgradecaixarapido]

Minha consulta esta desta maneira

Atualizar para >> Produtos!ProdutoQuantidade-SaidaDetalhe!SaidaQuantidade
Esta consulta esta relacionada com as tabelas >> Saída, SaidaDetalhes, Produtos
Não seria melhor eu lhe enviar o banco, assim você teria uma idéia melhor do que esta acontecendo.

Sou grato pela sua atenção


Estes são os formulários

FmrCaixaRapido(Principal)
FmrCaixaRapidoDetalhes(SubForm)
Frmgradecaixarapido(o outro SubForm)


Sou grato pela sua atenção
abraços

Naldo

A contrução da SQL ainda continua bem errada.
Melhor anexar o aplicativo para darmos uma olhada.

Aguardando...

Uso este código no mesmo formulário para imprimir o registro atual.

DoCmd.OpenReport "RltCuponFiscalPequeno_2", OpenReport, "", "SaidaNumero = " & Me!SaidaNumero, acNormal

Seria exatamente isso que eu preciso, funciona que é uma beleza certinho, certinho.
Tentei adaptar este código para EXECUTAR A CONSULTA atualizar o estoque, mas não consegui, pois meu conhecimento em VBA é muito pouco.

Balem, como eu anexo o aplicativo aqui no Forum???

Naldo

1º - Leia o retângulo amarelo no post do Criquio acima.

2º - Abaixo do retângulo onde você escreve a mensagem tem o botão "Escolher Arquivo"
Clique nele e procure o arquivo a ser enviado.
3º - Após isso, clique no botão "Enviar" logo ao lado e aguarde o upload do arquivo.
- Saberá que foi enviado quando esse botão desaparecer e ficar somente um botão com o
o nome do teu arquivo.
Então proceda normalmente para enviar a mensagem.

Abraços

da o seguinte erro
o banco esta zipado

Os seguintes erros foram encontrados
O arquivo adicionado não é valido: nome do arquivo incorreto.

poderia ser via e-mail

OK

Envie para:

ebalem@ymail.com

Naldo

Como teu aplicativo da erros por falta de imagens, não consigo testar o código.

Portanto estou colocando abaixo:

Fragmento do botão botão Fechar Vendas:

Código:


Private Sub Comando19_Click()
On Error GoTo Err_Comando19_Click
If MsgBox("DESEJA FECHAR A VENDA ?              ", vbCritical + vbYesNo, "  A T E N Ç Ã O .  ") = vbYes Then

DoCmd.SetWarnings False
CurrentDb.Execute "UPDATE Produtos SET Produtos.ProdutoQuantidade = Produtos.ProdutoQuantidade -" & Me!fmrCaixaRapidoDetalhes.Form!frmgradecaixarapido.Form!SaidaQuantidade & " " & _
"WHERE Produtos.ProdutoCodigo=" & Me!fmrCaixaRapidoDetalhes.Form!frmgradecaixarapido.Form!CodProd
DoCmd.SetWarnings True


Combinação83.Visible = False
Combinação85.Visible = False
'SaidaCheques.Visible = False
'SaidaPromissoria.Visible = False
'SaidaCartao.Visible = False
Rótulo118.Visible = False


Substitua as linha de código por essa que inseri.

Abraços

Balem
esta dando o seguinte erro:

Erro em tempo de execução '2465':

O Microsoft Office Access não pode localizar o campo 'fmrcaixaRapidoDetalhes' referido em sua expressão.

Coloque o nome correto do formulário

fmrCaixaRapidoDetalhes

Ok ja tinha testado e continua com o mesmo erro

Mestre Balem, sou muito grato pela sua ajuda, resolveu meu problema com muita presteza.

Pessoal foi resolvido na própria consulta desta maneira.

no controle SaidaNumero no critério da consulta [Formulários]![FmrCaixaRapido]![SaidaNumero]

Sou grato a todos pela atenção.

Valeu pelo retorno Reginaldo

Quem me dera ser um Mestre, mas já tem tantos por ai.

Estamos ai para ajudar e ser ajudados.

Boa sorte !