BAIXA EM BD

USUARIO.EXCLUIDOS 26/03/2004 07:19:46
#17103
Amigos, o código abaixo funciona normalmente, só que eu quero colocar um IF para verificar se existe saldo suficiente para baixa do material. Como fazer esse código? e onde colocar?

Private Sub baixa()
Dim baixa As String
If MsgBox("Você confirma a baixa deste registro?" & Chr(10), vbYesNo + vbExclamation) = vbYes Then
Set bdMat = OpenDatabase("C:\Estoque\Materiais.mdb")
baixa = "SELECT * from Localizacao WHERE Código like '*" & TxtCO.Text & "*'"
bdMat.Execute "UPDATE Localizacao SET Quantidade='" & CDbl(tbloc!quantidade) - CDbl(TxtBaixa.Text) & "' WHERE Código='" & TxtCO.Text & "' "
If MsgBox("Baixa efetuada com sucesso!" & Chr(10) & "Baixar outro?", vbYesNo) = vbYes Then
CmdProcura_Click
End If
Else
Exit Sub
End If
TxtLanca.Text = ""
TxtBaixa.Text = ""
Atualizar
End Sub

Grato.
USUARIO.EXCLUIDOS 26/03/2004 08:44:17
#17119 Resposta escolhida
se entendi, eu faria assim:

baixa = "SELECT * from Localizacao WHERE Código like '*" & TxtCO.Text & "*'"

if baixa("Quantidade")=ValorNecessario then

bdMat.Execute "UPDATE Localizacao SET Quantidade='" & CDbl(tbloc! quantidade) - CDbl(TxtBaixa.Text) & "' WHERE Código='" & TxtCO.Text & "' "
.
.
.

else

Código qdo quantidade não é suficiente.
endif


Abraços,
USUARIO.EXCLUIDOS 26/03/2004 13:15:20
#17172
achei o erro:

Dim baixa As recordset // e não string

If MsgBox("Você confirma a baixa deste registro?" & Chr(10), vbYesNo + vbExclamation) = vbYes Then

Set bdMat = OpenDatabase("C:\Estoque\Materiais.mdb")
set baixa = bdmat.openrecordset("SELECT * from Localizacao WHERE Código like '*" & TxtCO.Text & "*'" ,dbopendynamic)


if baixa("Quantidade")=ValorNecessario then

bdMat.Execute "UPDATE Localizacao SET Quantidade='" & CDbl(tbloc! quantidade) - CDbl(TxtBaixa.Text) & "' WHERE Código='" & TxtCO.Text & "' "
.
.
.

else

Código qdo quantidade não é suficiente.
endif


Abraços,

Tópico encerrado , respostas não são mais permitidas
Voltar