Discussion :

[kiki.gaby]

Bonjour à tous,

Voilà j'ai une table avec un champ date.

Par rapport à une date je veux voir les incidents rencontrés sur les 12 derniers mois.

Quelqu'un a t'il une idée sur la façon de faire ?

Merci par avance.

[Jean-Philippe André]

salut,
tu peux placer un filtre sur ton champs de type date avec des critères comme

Code :

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

TonChampDate > Date()-365

ou

Code :

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

TonChampDate > dateadd("yyyy",-1,date)

[kiki.gaby]

Bonjour jpcheck,

Je suis parti sur ta 2nde solution et j'obtiens bien un historique sur les 12 derniers mois.

J'indique mon code si cela peut servir à d'autres personnes.

Je pars d'un formulaire qui me permet de sélectionner une date à l'aide d'un DTPicker puis affiche le résultat dans un formulaire en continu basé sur une requête qui récupère mes deux dates ( celle sélectionnée à l'aide du DTPicker et celle calculée ).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Commande24_Click()
 
Dim datefinn99 As Date
Dim datedebut99 As Date
Dim typerecul As String
Dim nombremois As Integer
Dim stDocName As String
 
'Récupère la date sélectionnée dans le formulaire
datefin99 = [Forms]![F_recherche_sur_12_mois_glissant]![choixdate]
' "m" indique l'intervalle en mois.
typerecul = "m"
' affecte -12 à la variable nombremois
nombremois = -12
'Calcul la nouvelle date en fonction de la date sélectionnée et y retire 12 mois
datedebut99 = DateAdd(typerecul, nombremois, datefin99)
'affecte la date sélectionnée au champ texte "dateretenue" et la date calculée sur le champ texte "datecalculeedebut""
[Forms]![F_recherche_sur_12_mois_glissant]![datecalculeedebut] = datedebut99
[Forms]![F_recherche_sur_12_mois_glissant]![dateretenue] = datefin99
 
'charge le nom du formulaire basée sur la requête utilisant la date sélectionnée et celle calculée
stDocName = "F_résultats_recherche_sur_12_mois_glissant"
DoCmd.OpenForm stDocName
 
End Sub

Un grand merci pour tes pistes