boa tarde...

eu estou com um probleminha com sistema de estoque, ele ja esta ponto so valto uma coisinha como faço, quanto os produto esta +/-  com a quatidade 5 e afizar que esta quase agabando.

NA TABELA DE CADASTRO DE PRODUTOS, ADICIONE UM CAMPO PARA CONTROLE DO ESTOQUE MÍNIMO. CADA PRODUTO TERÁ, ALÉM DAS SUAS CARACTERÍSTICA NORMAIS, ESSE CAMPO PARA CONTROLE. INCLUA UMA ROTINA PARA SER AVISADO ASSIM QUE O SALDO DO PRODUTO ATIGIR O VALOR CADASTRADO NO REFERIDO CAMPO.

ententi +/- até inclui uma campo.... mais como faço esta rotina da pra vc dar um exp. ser não for pidi muito.

 

eu estava pensando +/- nisto sera que dar certo
    If Rs_Est.RecordCount > 5 Then

       .......

    else

       msgbox "teste"

    end if

essse exemplo abaixo ele compara a data (dia) de hoje com o campo Data_Aluguel, se for igual a data (Dia) com a do Campo Data_Aluguel, ele avisa.....é so vc trocar pelo seu campo, sem por isso aki ........" & Int(Day(Date)),

 

 

Function Verifica()

Dim Contas As String
Dim Rs2 As New ADODB.Recordset
Set Rs2 = New ADODB.Recordset
Rs2.Open "SELECT codigo, * FROM Tbl_Casas WHERE Int(data_aluguel) = " & Int(Day(Date)), cnBd, adOpenKeyset, adLockBatchOptimistic
Do While Not Rs2.EOF
Contas = Contas & vbCrLf & Rs2("Codigo")
Rs2.MoveNext
Loop
If Contas <> "" Then
MsgBox "Hoje é Dia de Vencimento de Aluguel do(s) Codigos(s):" & Contas, vbInformation, "Aviso de Vencimento de Aluguel!"
End If
Rs2.Close
Set Rs2 = Nothing

End Function

obrigado, vou testar em casa, aqui não tem o vb amanhã dou a resultado.

bommmmmm dia...

eu fez assim mais não deu certo

onde esta escrito...

mat_pro "nome do produto"

mat_est "quantidade de estoque"

mat_est "quantidade minimo do estoqte"

combo1 "fazer consulta em mat_pro"

 

    Dim Contas As String
    RS.Open "select * from produtos mat_pro where (mat_est)= " & Combo1.Text & " order by mat_pro", db, adOpenDynamic, adLockOptimistic 'db, 1, 3
    Label13.Caption = RS.Fields("mat_min") ' so teste
    
        Do While Not RS.EOF
        Contas = Contas & vbCrLf & RS("mat_mim")
        RS.MoveNext
        Loop
        If Contas <> "" Then
        MsgBox "Hoje é Dia de Vencimento de Aluguel do(s) Codigos(s):" & Contas, vbInformation, "Aviso de Vencimento de Aluguel!"
        End If
        RS.Close
        Set RS = Nothing
    RS.Close