[Resolvido]Adaptar código para consulta

Olá pessoal!

Encontrei o código abaixo aqui mesmo no fórum e tentei aplicá-lo em uma consulta mas me surgiu o seguinte erro:

"Erro em tempo de execução '3061':
Parametros insuficientes. Eram esperados 1."

Ao depurar, é setado para a linha : "CurrentDb.Execute sql1"

'=====================================================
'FAVOR NÃO RETIRE OS CRÉDITOS
'por Glicério Júnior (Jungli) ... jungli@ibest.com.br em 8.6.2011
'Modificado por: XXXXXXXX em DD/MM/YYYY
'=====================================================

'ESTORNAR UMA MERCADORIA NADA MAIS É
'DO QUE VOCÊ DESFAZER UMA SAÍDA ERRADA (POR QUALQUER MOTIVO)
'E CORRIGIR A QUANTIDADE DA MESMA.

'ATÉ A PRÓXIMA

'Define as variáveis
Dim qtd, qtd2 As Double
Dim sql1 As String
'Pega o valor do estoque atual do produto
qtd = DLookup("[Estoque]", "[tblCadProduto]", "[CodProd] = " & Me.txtCodProd)
'Exibe questionameto sobre a atualização da quantidade e atualiaza em caso de confirmação
If MsgBox("Deseja incluir este ítem no estoque?", vbQuestion + vbYesNo, "Confirmar") = vbYes Then
qtd2 = (qtd + Me.txtQtde)
sql1 = "UPDATE tblCadProduto SET tblCadProduto.Estoque = " & qtd2 & _
" WHERE (((tblCadProduto.CodProd)=" & Me.txtCodProd & "));"
CurrentDb.Execute sql1

A consulta possui os mesmos campos da tabela que eu estava utilizando o código.

Alguém sabe o que devo acrescentar nos parametros para que o código funcione com consulta?

Desde já, obrigado!

Bom dia Lupe...

O Erro quanto aos parâmetros é poque a instrução SQL está errada...

sql1 = "UPDATE tblCadProduto SET tblCadProduto.Estoque = " & qtd2 & _
" WHERE (((tblCadProduto.CodProd)=" & Me.txtCodProd & "));"

- Aqui no caso pode ser na cláusula WHERE ou na parte .Estoque = " & qtd2 & "

Algum desses dois parametros na SQL não está correto. Deves ver onde está o erro.


Cumprimentos.

Olá Piloto!

Muito obrigado pela atenção...

Então, na tabela "tblCadProduto" o código funcionou no perfeito, mas na consulta "cstCadProduto" esta dando o erro. Esse é o meu problema, não sei o que alterar na instrução SQL para que funcione com a consulta, pois, os dados são exatamente os mesmos.

Outro erro que encontrei é quando eu informo no campo "txtQtde" um valor numérico com casas decimais, por exemplo 1,5. Só aceita se eu informar numeros redondos = 1 - 2 - 3...


Abraço!

Abra a consulta diretamente.. e tente inserir um registro manualmente. Se não aceitar o problema é com a consulta.

- Se for uma consulta com mais de uma tabela, pode ser porque as tabelas não estão relacionadas.
Se as tabelas estiverem relacionadas... Veja nas propriedades:
> Aba Geral
> Tipos de Conjunto de Registros, se estiver como Dynaset, altere para Dynaset(Atualização) ou Instantaneo, assim permitira inclusões na mesma.

- Se for uma consulta apenas com a tabela... não é necessário utilizar ela na SQL. Utilize a propria tabela.


Cumprimentos.

Vi agora a outra questão... Resolva primeiro esta depois vamos aos decimais.


Cumprimentos.

Piloto, seguirei suas dicas e retorno com os resultados.

Piloto,

Fiz conforme voce sugeriu. Abri a consulta e inseri um registro manualmente, aceitou normalmente.

A consulta possui duas tabelas que estão devidamente relacionadas. Verifiquei o tipo de conjunto e estava como voce informou "Dynaset". Os erros persistem.

Sendo assim, a solução que eu encontrei foi criar um formulario continuo para carregar a consulta e abri-lo nas chamadas dos eventos de forma oculta com os filtros necessarios.

O código ficou assim:


'=====================================================
'FAVOR NÃO RETIRE OS CRÉDITOS
'por Glicério Júnior (Jungli) ... jungli@ibest.com.br em 8.6.2011
'Modificado por: XXXXXXXX em DD/MM/YYYY
'=====================================================

'ESTORNAR UMA MERCADORIA NADA MAIS É
'DO QUE VOCÊ DESFAZER UMA SAÍDA ERRADA (POR QUALQUER MOTIVO)
'E CORRIGIR A QUANTIDADE DA MESMA.

'ATÉ A PRÓXIMA

'Define as variáveis
Dim qtd, qtd2 As Double
Dim sql1 As String
'Pega o valor do estoque atual do produto
qtd = DLookup("[Estoque]", "[tblCadProduto]", "[CodProd] = " & Me.txtCodProd)
'Exibe questionameto sobre a atualização da quantidade e atualiaza em caso de confirmação
If MsgBox("Deseja incluir este ítem no estoque?", vbQuestion + vbYesNo, "Confirmar") = vbYes Then
qtd2 = (qtd + Me.txtQtde)
DoCmd.OpenForm "subfrmEstCadProd", acNormal, , "CodProd=" & Me.txtCodProd, , acHidden
Forms!subfrmEstCadProd!txtEstoque = qtd2

'Mensagem de confirmação
MsgBox "Item incluído com sucesso!", vbInformation, "CONFIRMAÇÃO"
DoCmd.Close acForm, "subfrmEstCadProd"
Else
Me.Undo
End If
Me.Refresh

Com isso eu também resolvi o segundo erro (dos decimais), ou seja, matei dois coelhos com uma só paulada.

Obrigado pela atenção e até a próxima...

Abraço!

Bom que resolveu... Mas creio que uma atualização deva ser feito diretamente na tabela...

Se puder postar o BD com o erro, eu gostaria de tentar ver o que acontece.

Cumprimentos.

Piloto,

Creio que vi sua mensagem tarde de mais, pois, ja havia deletado a cópia do BD com o erro. Vou tentar refazer um BD exemplo reproduzindo os mesmos erros, se eu conseguir retorno com o mesmo em anexo.

Se puder creio ser até melhor. Mesmo tendo arrumado uma solução paliativa, creio haver solução mais eficaz.


Bom trabalho.


Cumprimentos.

Piloto,

Consegui recriar o BD com os erros. Os testes podem ser feitos alterando os valores dos campos "Qtde NF" e "Qtde Receb." do formulario "Entrada de Produtos". Também poderá clicar nas opções "Alterar quantidades", "Excluir item" e "Novo" do subformulario para fazer outros testes. Não se esqueça de fazer os testes com números inteiros e depois decimais.

Como estamos tentando encontrar uma solução melhor, vou reabrir o tópico.

Sucesso!

Descreva textualmente o que pretende o código?

Atualização de Estoque?
Em qual tabela?


Cumprimentos.

Preciso que me explique a lógica do Form...

Qual a funcionalidade do mesmo... ou seja descreva uma operação e explique...

Cumprimentos.

Ok!

Vou tentar explicar o que o código precisa fazer:

Através do formulario "Entrada de Produtos" eu registro os produtos recebidos. Ao preencher o campo "Qtde NF" (após atualizar) o código deve acrescentar o produto no campo "Estoque" da tabela "tblCadProduto". Ao preencher o campo "Qtde Receb." o código deve dar baixa no saldo do pedido que fica no campo "SaldoPed" e acrescentar no campo "QtdeRec", ambos na consulta "cstSaldoPedidos". Os comandos "Alterar" e "Excluir" devem fazer o inverso, por exemplo, na tblCadProduto, em vez de acrescentar, o código deve remover o item do estoque.

Acho que é basicamente isso. Caso haja mais duvidas é só dizer.

Muito obrigado pelo empenho neste caso!

Falemos apenas de tabelas.....

Qual atualização e em qual tabela...


Cumprimentos.

Fiz um novo... Acrescentei o produto 5 (Belt) coloquei 2 no campo Qtde NF e occoreu tudo normalmente...

Na tabela no campo Estoque ficou 2....

Fiz outro para o mesmo produto coloquei 3 no campo Qtde NF e somou aos 2 totalizando 5 no campo Estoque na tblCadProduto...


Ate aqui tudo bem.... Sem erros...


QUal o proximo passo?


Cumprimentos.

Esta ocorrendo o seguinte:

Ao colocar um valor no campo Qtde Receb. no formulário, apos atualizar ocorre erro "Uso de Null inválido"

qtdQR = DLookup("SaldoPed", "cstSaldoPedidos", "CodProd = " & Me.txtCodProd)

Porque isso?

Porque esta variável não pode ser carregada com um valor nulo, e esta expressão acima busca um valor que não existe na consulta....

Não atualize consultas... Não é necessário. Deves utilizar diretamente as tabelas para isso... Como o proprio nome diz... COnsulta é COnsulta...Prefira fazer diretamente nas tabelas....


Aqui no exemplo que me enviou... faz a atualização no estoque.. mas nao dá baixa no pedido porque não há pedido cadastrado.


Aguardo.


Cumprimentos.

Bom dia Piloto,

Me desculpe a ausencia, é que a correria no trabalho ta grande.

No campo Qtde NF voce fez o teste apenas com numeros inteiros? Porque também ocorre erro quanto insere numeros decimais (1,5 por exemplo).

Em relação a baixa no pedido, eu utilizei consulta porque, além de filtrar pelo codigo do produto, também preciso filtrar pelo codigo do pedido, caso contrario a atualizaçao sera sempre no produto informado na primeira entrada.

Os pedidos estão cadastrados na tabela "tblPedidos" e "tblItemPedidos".

Em relação ao erro ocorrido no campo "Qtde Receb" é porque antes de dar entrada em um produto é preciso lança-lo no pedido através das tabelas "tblPedidos" e "tblItemPedidos".

Cálculos envolvendo decimais devem ser feitos com separador "." (Ponto). Neste caso a caixa texto está com o separador "," (Vírgula)

Para isto, substituimos a vírgula pelo ponto

qtd2 = (qtd + Replace(Me.txtQtde,",","."))


Teste, e retorne para irmos ao próximo problema.


Cumprimentos.

Volto a frisar.. Não é necessário actualizar consultas... Se tens a informação do campo para o relacionamento... atualize diretamente a tabela!!!!

Cumprimentos.

Piloto, a parte dos decimais funcionou com a sua sugestão.

O problema agora esta so na baixa do saldo do pedido através do campo "Qtde Receb.".

O que eu preciso é que ao informar um valor no campo "Qtde Receb" o código filtre primeiramente o código do pedido e depois o código do produto, pois, pode haver o mesmo produto em varios pedidos diferentes, ou seja, eu preciso informar em qual pedido o produto que preciso dar baixa esta. Os campos "CodPed" e "CodProd" estão na tabela "tblItemPedidos".

Acredito que eu devo acrescentar o filtro do código do pedido nesta linha:
qtdQR = DLookup("SaldoPed", "cstSaldoPedidos", "CodProd = " & Me.txtCodProd)
Só não sei como fazer isso. Então, em vez de usar a consulta "cstSaldoPedidos" eu usaria a tabela "tblitemPedidos".

Caro Lupe... Voce tem duas tabelas relacionadas entre si.

tblPedidos
tblItensPedido


Para este relacionamento a tblItensPedido leva a ID da tblPedidos, portanto não precisa de uma consulta baseada nas duas tabelas... Basta ter a ID da tblPedidos, e a ID do produto para atualizar apenas a tblItensPedido.


Não tenho como testar pois não tenho itens cadastrados nas tbl que me enviaste...

Se puder me envie novamente com as tabelas contendo alguns dados de pedidos feitos.


Cumprimentos.

Segue abaixo o BD com todos os produtos cadastrados no pedido Nº 1122 (primeiro pedido cadastrado) para que possas fazer testes.

Lupe...

O que fiz..

- Cliquei em Novo
- No campo Pedido coloquei 1 (Que é o numero da ID do pedido)
- Nos demais campos coloquei numeros aleatorios
- Inclui um produto (2) Clorin
- Digitei um numero em Qtde NF (Correu tudo bem)
- Digitei um numero em Qtde Receb. (Correu tudo bem)


Sem problemas....



Cumprimentos.

Clorim na tbl Item Pedidos:

SaldoPed: 107
QtdeRec : 13


No form adicionei

Produto 3 - Clorin
QtdeNF: 4
Qtde Receb.: 10


Na tabela após isso:

Clorim na tbl Item Pedidos:

SaldoPed: 97
QtdeRec : 23


Pareceu-me estar normal.


Cumprimentos.

Piloto,

Voce poderia faze mais um teste?

Ir nesse novo registro que voce inseriu e alterar os valores dos campos Qtde NF e Qtde Receb do produto Clorim e colocar numeros decimais para vermos se ocorrera algum erro e se o estoque e o saldo do pedido ficarão corretos.

Aguardo...

Boas Lupe...o que acontece é que estáva tendo incompatibilidade entre o tipo de dados da tabela e a intrução SQL.

Na tblCadProdutos altere o campo Estoque para Double (Duplo), casas decimais: 2

Na instrução SQL:

qtd2 = CDbl(qtd) + CDbl(Me.txtQtde)
sql1 = "UPDATE tblCadProduto SET tblCadProduto.Estoque = '" & qtd2 & "' WHERE (((tblCadProduto.CodProd)=" & Me.txtCodProd & "));"


Cumprimentos.

Piloto,

Realmente eu não tinha me atentado para esse detalhe.

Vou aplicar as alterações que voce indicou.


Obrigado!

Piloto,

Apliquei as alterações na SQL conforme voce sugeriu e funcionou corretamente.

Muito obrigado por mais essa força.

Abraço!

Beleza...

O Fórum agradece o Retorno.