saida de mercadoria do stock

ja fiz o que podia peco solucao para este problema


Private Sub cmdSaída_Click()
'Diminui a quantidade do produto no stock
Dim intQuantidade As Double
Dim lngCódigoDoProduto As Long
Dim Cancel As Integer
On Error GoTo Tratamento



intQuantidade = txtQuantidade
lngCódigoDoProduto = ListaProdutos

If intQuantidade > txtStock.Value Then

MsgBox "Não tem quantidade em Stock Suficiente para efectuar o movimento.", vbExclamation, "Gestão de Economato"
Cancel = True
Me.txtQuantidade.SetFocus
txtQuantidade = 1

Exit Sub
End If
If MsgBox("Deseja reduzir " & Format(intQuantidade, "0.00") & " unidade(s) do Stock ?", vbQuestion + vbYesNo, "Gestão de Economato") = vbYes Then
Format(intQuantidade, "0.00") = Format(txtQuantidade, "0.00")
modProduto.AcertaStock lngCódigoDoProduto, (Format(intQuantidade, "0.00") * (-1))
MsgBox "Operação concluída com sucesso. Novo Stock de " & _
modProduto.Nome & ": " & modProduto.Stock & " unidade(s).", _
vbInformation + vbOKOnly, "Gestão de Economato"
Format(txtQuantidade, "0.00") = 1
AtualizaCampos
ListaProdutos.SetFocus
Else
Exit Sub
End If

pajomh bom dia!

repare que falta uma parte do codigo que vc postou:


Private Sub cmdSaída_Click()
'Reduz a quantidade do produto no stock
Dim intQuantidade As Integer
Dim lngCódigoDoProduto As Long
Dim Cancel As Integer
On Error GoTo Tratamento



intQuantidade = txtQuantidade
lngCódigoDoProduto = ListaProdutos

If intQuantidade > txtStock.Value Then

MsgBox "Não tem quantidade em Stock Suficiente para efectuar o movimento.", vbExclamation, "Gestão de Economato"
Cancel = True
Me.txtQuantidade.SetFocus
Me.txtQuantidade.Value = 1

Exit Sub
End If
If MsgBox("Deseja reduzir " & intQuantidade & " unidade(s) do Stock ?", vbQuestion + vbYesNo, "Gestão de Economato") = vbYes Then
intQuantidade = txtQuantidade
modProduto.AcertaStock lngCódigoDoProduto, (intQuantidade * (-1))
MsgBox "Operação concluída com sucesso. Novo Stock de " & _
modProduto.Nome & ": " & modProduto.Stock & " unidade(s).", _
vbInformation + vbOKOnly, "Gestão de Economato"
txtQuantidade = 1
AtualizaCampos
ListaProdutos.SetFocus
Else
Exit Sub
End If
Exit Sub

Tratamento:
Const conErrNulo = 94
If err = conErrNulo Then
MsgBox "É necessário seleccionar um produto.", vbExclamation + vbOKOnly, "Gestão de Economato"
Exit Sub
End If
End Sub

Você já leu o que eu escrevi neste tópico ?

http://maximoaccess.forumeiros.com/t9439-query-history-union

Valeu JPaulo esta corrigido e desculpe-me pela demora