1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Public Function MAJStatut(valProjet As Integer) As String
Dim NbRouge As Integer, NbOrange As Integer, NbVert As Integer
'Calculer le nombre de feux pour chaque projet
NbRouge = Nz(DCount("[IdAction]", "[T_Action]", "[Statut]='rouge' AND [IdProjet_FK]=" & valProjet), 0)
NbOrange = Nz(DCount("[IdAction]", "[T_Action]", "[Statut]='orange' AND [IdProjet_FK]=" & valProjet), 0)
NbVert = Nz(DCount("[IdAction]", "[T_Action]", "[Statut]='vert' AND [IdProjet_FK]=" & valProjet), 0)
Debug.Print valProjet, NbRouge, NbOrange, NbVert
If NbRouge > 0 Then 'Tester si il y a une action "Rouge" -> StatutProjet = Rouge
MAJStatut = "Rouge"
Else
If NbOrange > 0 Then 'Tester si il y a une action "Orange" -> StatutProjet = Orange
MAJStatut = "Orange"
Else
MAJStatut = "Vert" 'Sinon StatutProjet = Vert
End If
End If
End Function |
Partager