[Resolvido]Baixa no estoque

bom dia! estou usando um codigo do amgio jungli, para dar baixa no estoque, quando eu utilizo numros inteiros (1, 2, 3) esta tudo ok. Mas gostaria de usar numeros decimais (0,5 ou 0,3) e ai que ta o problema, pois nao consigue baixar, preciso desta ajuda. Obrigado Jorge

Dim apaga As Integer
Dim MSG
On Error GoTo Err_Excluir_Click
DoCmd.SetWarnings False
'=====================================================
'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 QUÊ 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
Dim z As String
z = Me!produto
'Pega o valor do estoque atual do produto
qtd = DLookup("[QuantidadeEstoque]", "[Tab_Produto]", "[CódigoProduto] = " & Me.codproduto)
'Exibe questionameto sobre a atualização da quantidade e atualiaza em caso de confirmação
If MsgBox("Deseja baixar o item: " & z, vbYesNo + vbQuestion, "Baixa no estoque") = vbYes Then
qtd2 =(qtd) - (quant)
sql1 = "UPDATE Tab_Produto SET Tab_Produto.QuantidadeEstoque = " & qtd2 & _
" WHERE (((Tab_Produto.CódigoProduto)=" & Me.codproduto & "));"
CurrentDb.Execute sql1

'Mensagem de confirmação
MsgBox "Item baixado!!!", vbInformation, "CONFIRMAÇÃO"
Else
Me.Undo

'Me.CodProduto.Dropdown
End If








Me.Refresh





Exit_Err_Excluir_Click:
Exit Sub
Err_Excluir_Click:
'MSG = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Excluir_Click

boa tarde! ninguem tem uma dica pra dar?

desde ja agradeço Jorge

Experimentar formatar;


qtd2 = format(qtd, "#,##0.00") - format(quant, "#,##0.00")
sql1 = "UPDATE Tab_Produto SET Tab_Produto.QuantidadeEstoque = " & format(qtd2, "#,##0.00") & _
" WHERE (((Tab_Produto.CódigoProduto)=" & Me.codproduto & "));"
CurrentDb.Execute sql1

Jpaulo, boa noite, eu utilizei a sua dica, mas nao deu certo. Então eu resolvi deixar somente ("0.00") e voltar a dar baixa, mas somente numeros inteiros, quanto eu coloco no campo quant (0,5) ele da baixa em 1 unidade.

Jorge

Anexe aqui parte do seu banco.

Será o tipo de campo definido na tabela da base dados como "Numero Inteiro" ?

Jpaulo, segue o banco para voce dar uma olha. Desde ja obrigado

Alterado e a funfar em decimais;


qtd = Format(DLookup("[QuantidadeEstoque] ", "[Tab_Produto]", "[CódigoProduto] = " & Me.codproduto), "#,##0.00")
'Exibe questionameto sobre a atualização da quantidade e atualiaza em caso de confirmação
If MsgBox("Deseja baixar o item: " & z, vbYesNo + vbQuestion, "Baixa no estoque") = vbYes Then
qtd2 = Format(qtd, "0.00") - Format(quant, "0.00")
sql1 = "UPDATE Tab_Produto SET QuantidadeEstoque = '" & qtd2 & "' WHERE CódigoProduto=" & Me.codproduto & ""
CurrentDb.Execute sql1

Jpaulo, boa tarde, era isso mesmo que eu queria, ficou muito bacana. Obrigado, valeu, voce conhece muito de access mesmo parabens.

Jorge

Obrigado pelo retorno o forum agradece.