1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Public Sub CalculerTaux(ByVal Mois As Integer, ByVal Annee As Integer)
Dim sql As String
'création d'une requete d'insertion
'il te faut avoir créé une table ta_Table_de_sortie avec 3 champ :
' -mois de type numérique entier
' -annee de type numérique entier
' taux de type numérique réel
sql = "INSERT INTO ta_Table_de_sortie (mois, annee, taux) " _
& "SELECT " & Mois & " as mois," & Annee & " as annee, sum(nbAccidents) * 1000000 / Sum(heures) AS Taux " _
& "FROM TIntrants" _
& "WHERE (((date)>#" & Format("01/" & IIf([Mois] = 12, 1, [Mois] + 1) & "/" & IIf([Mois] = 12, [Annee], [Annee] - 1), "mm/dd/yyyy") & "# And (date)<#" & Format("01/" & IIf([Mois] = 12, 1, [Mois] + 1) & "/" & IIf([Mois] = 12, [Annee] + 1, [Annee]), "mm/dd/yyyy") & "#))"
CurrentDb.Execute sql
End Sub
'tu n'as plus qu'à appeler cette fonction à chaque fois que tu voudra calculer le taux en lui passant en paramètre le mois et l'année. cela t'enregistrera le résultat dans ta table |
Partager