Boa Noite,
como posso fazer para uma variável receber um resultado de um SELECT?
como posso fazer para uma variável receber um resultado de um SELECT?
Dim QUANTIDADE As Integer, Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT quant_produto FROM tblProduto WHERE txtProduto = tblProduto.nome_produto")
QUANTIDADE = Rst(0)
Set Rst = Nothing
If QUANTIDADE <= Form_formItem.txtQuantidade Then
SQLL = "UPDATE tblProduto SET quant_produto=QUANTIDADE-txtQuantidade"
DoCmd.RunSQL SQLL
Else
MsgBox "Quantidade não disponível no Estoque!", vbCritical, QUANTIDADE
End If
dim filtro as string
filtro = "nome_Produto ='" & me!txtproduto & "'"
If dlookup("quant_produto","tblProduto", filtro) >= me!txQuantidade then
DoCmd.RunSQL "UPDATE tblProduto SET quant_produto=quant_produto - " & me!txtQuantidade & " WHERE " & filtro & ";"
else
MsgBox "Quantidade não disponível no Estoque!", vbCritical, QUANTIDADE
end if
Dim filtro As String
filtro = "tblProduto.nome_Produto ='" & Form_formItem.txtProduto & "'"
If DLookup("quant_produto", "tblProduto", filtro) >= Form_formItem.txtQuantidade Then
DoCmd.RunSQL "UPDATE tblProduto SET quant_produto=quant_produto - " & Form_formItem.txtQuantidade & " WHERE " & filtro & ";"
Else
MsgBox "Quantidade não disponível no Estoque!", vbCritical, QUANTIDADE
End If
filtro = "tblProduto.nome_Produto ='" & Form_formItem.txtProduto & "'"
filtro = "tblProduto.id_Produto ='" & Form_formItem.txtProduto & "'"
If DLookup("quant_produto", "tblProduto", filtro) >= Form_formItem.txtQuantidade Then
filtro = "tblProduto.nome_Produto ='" & Form_formItem.txtProduto & "'"
filtro = "tblProduto.id_Produto ='" & Form_formItem.txtProduto & "'"
If DLookup("quant_produto", "tblProduto", filtro) >= Form_formItem.txtQuantidade Then