Voila j ai un module me permettant de voir, dans une base=20
de donn=E9e ACCESS, quel mat=E9riel en stock est inf=E9rieur a=20
3 unit=E9s
Mon code :
Public Function getStatus_stock() As Boolean
Dim rs As DAO.Recordset
Set rs =3D db.OpenRecordset("SELECT * FROM materiel=20
WHERE nombre < 3")
If rs.RecordCount > 0 Then
'on regarde si il n'y a pas des composants dont=20
le stock est inf=E9rieur a 3
getStatus_stock =3D False
Form4.Timer2.Enabled =3D True
Form4.Label15.ForeColor =3D &HC0&
Form4.Label15.Caption =3D "NOK"
Form4.Label10.ForeColor =3D &HC0&
Else
getStatus_stock =3D True
Form4.Label15.ForeColor =3D &HFF00&
Form4.Label15.Caption =3D "OK"
Form4.Timer2.Enabled =3D False
Form4.Label15.Visible =3D True
Form4.Label10.ForeColor =3D &HFF00&
End If
End Function
Maintenat sachant cela j'aimerai savoir commen pourrai je=20
faire pour afficher un message me stipulant :=20
"Vous etes dans la limite des stocks pour les mat=E9riaux=20
suivant : ( et la on m'affiche les materiaux dont le=20
stock est inf=E9reur =E0 3)"=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour
"fabrizio-r" écrivait
Public Function getStatus_stock() As Boolean Dim rs As DAO.Recordset
Dim msg a String
Set rs = db.OpenRecordset("SELECT * FROM materiel WHERE nombre < 3") If rs.RecordCount > 0 Then 'on regarde si il n'y a pas des composants dont le stock est inférieur a 3 getStatus_stock = False Form4.Timer2.Enabled = True Form4.Label15.ForeColor = &HC0& Form4.Label15.Caption = "NOK" Form4.Label10.ForeColor = &HC0&
msg="Vous etes dans la limite des stocks pour les matériaux : msg = msg & vbCrLf rs.movefirst while not rs.eof msg = msg & rs(0) & " " & rs(1) & ... & vbCrLf rs.movenext wend msgbox msg
Public Function getStatus_stock() As Boolean
Dim rs As DAO.Recordset
Dim msg a String
Set rs = db.OpenRecordset("SELECT * FROM materiel
WHERE nombre < 3")
If rs.RecordCount > 0 Then
'on regarde si il n'y a pas des composants dont
le stock est inférieur a 3
getStatus_stock = False
Form4.Timer2.Enabled = True
Form4.Label15.ForeColor = &HC0&
Form4.Label15.Caption = "NOK"
Form4.Label10.ForeColor = &HC0&
msg="Vous etes dans la limite des stocks pour les matériaux :
msg = msg & vbCrLf
rs.movefirst
while not rs.eof
msg = msg & rs(0) & " " & rs(1) & ... & vbCrLf
rs.movenext
wend
msgbox msg
Public Function getStatus_stock() As Boolean Dim rs As DAO.Recordset
Dim msg a String
Set rs = db.OpenRecordset("SELECT * FROM materiel WHERE nombre < 3") If rs.RecordCount > 0 Then 'on regarde si il n'y a pas des composants dont le stock est inférieur a 3 getStatus_stock = False Form4.Timer2.Enabled = True Form4.Label15.ForeColor = &HC0& Form4.Label15.Caption = "NOK" Form4.Label10.ForeColor = &HC0&
msg="Vous etes dans la limite des stocks pour les matériaux : msg = msg & vbCrLf rs.movefirst while not rs.eof msg = msg & rs(0) & " " & rs(1) & ... & vbCrLf rs.movenext wend msgbox msg
