O nosso amigo diego fez um otimo sistema chamado diego construções, porem ele so baixa estoque quando se trata de numeros exatos por exemplo 1 lapis 1 arame recozido 1 regua etc.. ou seja quantidade unitaria, mas estou tentando mudar ele para kg e ele me da essa mensagem na hora que acaba de fazer a venda " ERRO DE SINTESE NA INSTRUÇÃO UPDATE " ele vende mas não atualiza o estoque entende?
alguem pode me ajudar?
vou mandar o codigo que faz essa atualização to apanhando pacas!!
Private Sub Quant_AfterUpdate()
'=====================================================
'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
'=====================================================
On Error GoTo Err_Quant_AfterUpdate
Dim qtd, qtd2 As Double
Dim sql1 As String
qtd = DLookup("[Estoque]", "[produtos]", "[ID] = " & Me.CodProduto.Column(0))
If qtd <= 0 Or qtd <= Me.Quant Then
MsgBox "O estoque está zerado" & vbCrLf & _
"ou número em estoque menor do" & vbCrLf & _
"que a quantidade informada.", _
vbCritical, "ESTOQUE INSUFICIENTE"
Me.Undo
Me.CodProduto.SetFocus
Me.CodProduto.Dropdown
ElseIf qtd > 0 Or qtd <= Me.Quant Then
If MsgBox("Você tem certeza que deseja atualizar o estoque??", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
qtd2 = (qtd - Quant)
sql1 = "UPDATE produtos SET produtos.Estoque = " & qtd2 & _
" WHERE (((produtos.ID)=" & Me.CodProduto.Column(0) & "));"
CurrentDb.Execute sql1
Else
Me.Undo
Me.CodProduto.SetFocus
Me.CodProduto.Dropdown
End If
End If
Exit_Quant_AfterUpdate:
Exit Sub
Err_Quant_AfterUpdate:
MsgBox err.Description, vbCritical, "Erro Indeterminado"
Resume Exit_Quant_AfterUpdate
End Sub
alguem pode me ajudar?
vou mandar o codigo que faz essa atualização to apanhando pacas!!
Private Sub Quant_AfterUpdate()
'=====================================================
'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
'=====================================================
On Error GoTo Err_Quant_AfterUpdate
Dim qtd, qtd2 As Double
Dim sql1 As String
qtd = DLookup("[Estoque]", "[produtos]", "[ID] = " & Me.CodProduto.Column(0))
If qtd <= 0 Or qtd <= Me.Quant Then
MsgBox "O estoque está zerado" & vbCrLf & _
"ou número em estoque menor do" & vbCrLf & _
"que a quantidade informada.", _
vbCritical, "ESTOQUE INSUFICIENTE"
Me.Undo
Me.CodProduto.SetFocus
Me.CodProduto.Dropdown
ElseIf qtd > 0 Or qtd <= Me.Quant Then
If MsgBox("Você tem certeza que deseja atualizar o estoque??", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
qtd2 = (qtd - Quant)
sql1 = "UPDATE produtos SET produtos.Estoque = " & qtd2 & _
" WHERE (((produtos.ID)=" & Me.CodProduto.Column(0) & "));"
CurrentDb.Execute sql1
Else
Me.Undo
Me.CodProduto.SetFocus
Me.CodProduto.Dropdown
End If
End If
Exit_Quant_AfterUpdate:
Exit Sub
Err_Quant_AfterUpdate:
MsgBox err.Description, vbCritical, "Erro Indeterminado"
Resume Exit_Quant_AfterUpdate
End Sub