Discussion :

[jr182hendrix]

Bonjour,

j'ai besoin de votre aide pour mettre à jour ma table TblAccident, apres avoir rentré ma donnée du mois en heures travaillés, je veux faire la somme des 12 derniers mois des heures travaillées avec une rêquete de mise à jour.

Je suis proche de la formule mais il me manque un détail que j'arrive pas à trouver.

J'ai mi une colonne qui montre ce que je veux comme résultat dans la table TblAccident.

est ce que c'est possible de m'aider ???????
Merci

Je met ma dtb test en piece jointe

[micniv]

Bonjour

cette fonction devrait t"aider. Elle est à déclarer dans un module standrd.
Et tu peux l'employer dans une requete UPDATE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function Sum12lastMonths(ByVal dt1 As Date) As Long
    Dim dt2 As Date
    dt2 = DateAdd("yyyy", -1, dt1)
    Sum12lastMonths = DSum("HeureTravaille", "TblAccident", _
                           "periode <= #" & Format(dt1 - 1, "mm/dd/yyyy") & "#" _
                           & " AND periode >= #" & Format(dt2, "mm/dd/yyyy") & "#")
End Function

Cdlt

[hyperion13]

Salut
En version sql sur la ligne Mise à jour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SomDom("HeureTravaille";"tblAccident";"[Periode] >= # " & Format(AjDate("aaaa";-1;[Periode]);"jj/mm/aaaa") & " # AND [Periode] <= # " & Format([Periode]-1;"jj/mm/aaaa") & " #")

[jr182hendrix]

Merci ! Je l’essaye dès que je retourne au travail et je vous tiens au courant

[jr182hendrix]

Salut
En version sql sur la ligne Mise à jour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SomDom("HeureTravaille";"tblAccident";"[Periode] >= # " & Format(AjDate("aaaa";-1;[Periode]);"jj/mm/aaaa") & " # AND [Periode] <= # " & Format([Periode]-1;"jj/mm/aaaa") & " #")

Salut hyperion,

j'ai mi ton code sur la ligne SQL de la mise à jour et ca me donne le meme resultat que j'avais... donc pas le bon.
à partir de la ligne ou il y a écrit 57 dans le champs totalGlissant et ce que je veux 56...
voir l'image si dessous :

[jr182hendrix]

Bonjour

cette fonction devrait t"aider. Elle est à déclarer dans un module standrd.
Et tu peux l'employer dans une requete UPDATE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function Sum12lastMonths(ByVal dt1 As Date) As Long
    Dim dt2 As Date
    dt2 = DateAdd("yyyy", -1, dt1)
    Sum12lastMonths = DSum("HeureTravaille", "TblAccident", _
                           "periode <= #" & Format(dt1 - 1, "mm/dd/yyyy") & "#" _
                           & " AND periode >= #" & Format(dt2, "mm/dd/yyyy") & "#")
End Function

Cdlt

Salut Micniv,

je suis débutant en VBA et je me demande comment je peux appeler ta function dans une requete de mise à jour.
Comment je dois procéder ?

[micniv]

Bonjour,

Tu dois d'abord copier cette fonction dans un module Standard.

Ensuite tu peux l’utiliser dans une requête comme montré dans la PJ.


Cordialement

PS: l'utilisation cette formule devraitt conduire au même résultat que le code ld'hyperyon13

[hyperion13]

Je pense que tourner en rond, nous allons.
Vous avez oublié de préciser une règle dans "ce que je veux".
Le 52 au 01/02/2019, vous confirmez que c'est le 61 (total des HeuresTravail en 2018) au 01/01/2019 auquel vous ajoutez le 1 (HeuresTravail) du 01/01/2019 auquel vous soustrayez le 10 (HeuresTravail) du 01/01/2018 ? Car je ne vois pas d'autre formulation pour l'obtenir.

[jr182hendrix]

Bonjour,

Tu dois d'abord copier cette fonction dans un module Standard.

Ensuite tu peux l’utiliser dans une requête comme montré dans la PJ.


Cordialement

Modif: essaie plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function Sum12lastMonths(ByVal dt1 As Date) As Long
    Dim dt2 As Date
    dt2 = DateAdd("yyyy", -1, dt1)
    Sum12lastMonths = DSum("HeureTravaille", "TblAccident", _
                           "periode <= #" & Format(dt1 - 1, "mm/dd/yyyy") & "#" _
                           & " AND periode > #" & Format(dt2, "mm/dd/yyyy") & "#")
End Function

salut Micniv,
ca fonctionne bien pour la date d'aujourd'hui.
Est ce que tu penses que c'est possible de faire une boucle avec les dates qui se trouve dans le champs Periode ?
En fait au lieu d'avoir 579 partout, je voudrais que ca se calcul par rapport a la date dans Periode et non pas juste Maintenant()

[jr182hendrix]

Je pense que tourner en rond, nous allons.
Vous avez oublié de préciser une règle dans "ce que je veux".
Le 52 au 01/02/2019, vous confirmez que c'est le 61 (total des HeuresTravail en 2018) au 01/01/2019 auquel vous ajoutez le 1 (HeuresTravail) du 01/01/2019 auquel vous soustrayez le 10 (HeuresTravail) du 01/01/2018 ? Car je ne vois pas d'autre formulation pour l'obtenir.

En fait je veux la somme des 12 derniers mois (HeureTravaille) qui sont passaient par rapport a la date du champs Periode.
Comme la PJ.
J'ai entouré la somme de ce que je veux et comme je la veux.
Actuellement ma requete qui se trouve dans le champs TotalGlissant me donne pas les bons chiffres.
Le champs Ce que je veux sert juste d'exemple pour vous montrez ce que j'aimerais avoir

[micniv]

Salut j'ai 2 correctifs :
la fonction : il faut mettre un nz() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function Sum12lastMonths(ByVal dt1 As Date) As Long
    Dim dt2 As Date
    dt2 = DateAdd("yyyy", -1, dt1)
    Sum12lastMonths = NZ(DSum("HeureTravaille", "TblAccident", _
                           "periode <= #" & Format(dt1 - 1, "mm/dd/yyyy") & "#" _
                           & " AND periode >= #" & Format(dt2, "mm/dd/yyyy") & "#"),0)
End Function

et pour l'utilisation dans la requete :

CDLT

[jr182hendrix]

yeahhh !!! ca fonctionne, je vais regarder pour le mettre dans une requête de mise à jour :-)
Merci Micniv