[Resolvido]aviso de estoque baixo

Como colocar uma msg de aviso de estoque baixo ,no momento da venda do produto
tenha os seguintes campos

Nome tabela= tblprodutos
campos = QuantEstoque
=QuantMinino
a ideia é quando vender um produto que atinge a quantidade minima de estoque receba um aviso.

Bom dia,

Depois de realizar o processo de venda, descontar a quantidade comprada do estoque disponível (campo QuantEstoque) faça uma simples verificação.

Código:

Dim rs as recordset
set rs = CurrentDb.OpenRecordset("SELECT CodProduto, Produto, QuantEstoque, QuantMinino FROM tblprodutos WHERE CodProduto = " & [campoCodFormulario] & "")

If rs!QuantEstoque < rs!QuantMinino Then
    MsgBox("O produto " & rs!Produto & " está com estoque abaixo do mínimo!", vbExclamation, "Estoque Mínimo")
End if

rs.close

Onde CodProduto e Produto são, respectivamente, os campos que possuem o código do produto e o nome do produto na tblprodutos. E [campoCodFormulario] é o seu campo que tem o codigo do produto no seu form de venda.

Abraço.

Olá CassioFabre
Desde já agradeço por sua atenção

no meu caso eu tenho um subformulário devo colocar este código em qual evento?

Boa tarde,

Coloque logo após a conclusão da gravação do registro. Por exemplo, se voce tiver uma msgbox "Venda concluída com sucesso!", coloque logo após esta msgbox.

Abraço.

Boa tarde!
Postei parte do bd pois não estou a conseguir

Abra frmpontodevenda
utilize o código 123 para venda e para finalizar a venda F5

https://www.dropbox.com/s/rbjf58pr6ritgnd/BdTeste.zip?dl=0

Boa tarde,

O bd não veio.

Abraço.

https://www.dropbox.com/s/rbjf58pr6ritgnd/BdTeste.zip?dl=0

Bom dia,

Altere o código do Comando32 para:

Código:

Private Sub Comando32_Click()
Me.TxtVenda = Me.Códigovenda
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    Dim rs, rs1 As Recordset
    Dim str As String
    
    Set rs1 = CurrentDb.OpenRecordset("SELECT coddetalhevenda, codprod FROM tbldetalhe_sisPDV WHERE coddetalhevenda = " & Me.codvenda & " GROUP BY codprod, coddetalhevenda")
    
    Do While Not rs1.EOF
        Set rs = CurrentDb.OpenRecordset("SELECT CódigoProduto, QuantidadeEstoque, EstoqueMinimo, Descrição FROM Tab_Produto WHERE CódigoProduto = " & rs1!codprod & "")
        
        If rs!QuantidadeEstoque < rs!EstoqueMinimo Then
            If str <> "" Then str = str & ", "
            
            str = str & rs!Descrição
        End If
        
        rs.Close
        rs1.MoveNext
    Loop
    
    rs1.Close
    
    If str <> "" Then
        MsgBox "Atenção, os produtos " & str & " estão abaixo do estoque mínimo.", vbExclamation, "Estoque mínimo"
    End If

DoCmd.GoToRecord , , acNewRec
End Sub

Obs: evite usar acentuação e caracteres especiais em nomes de campos na tabela. Por exemplo o campo Descrição substitua por descricao. Esta é uma ótima prática.

Abraço.

Perfeito muito obrigado CassioFabre