Bonjour à tous,

Je vous pose mon probleme,
j'ai une application qui tourne depuis quelques mois mais d'apres les retours des utilisateurs une partie est quelque peu fastidieuse.
J'essai dons de l'automatiser

En fait dans un formulaire ils doivent remplir le mois et l'annee correspondant au mois m-1 par rapport a la date courante...
Ces criteres sont passés à une requete parametré, puis ensuite utilisé par un recordset.

Enfin bref aujourd'hui j'essais de faire en sorte qu'ils n'aient plus besoin de choisir ces deux dates mais que ca se fasse tous seul.

mon code donne cela

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub mois_Moins_1()
 
Dim date_courante As String
Dim mois_courant As String
Dim annee_courante As String
Dim mois_precedant As String
Dim annee_precedante As String
 
 
date_courante = Date
mois_courant = Mid(date_courante, 4, 2)
annee_courante = Mid(date_courante, 7, 4)
 
Select Case mois_courant
    Case "02"
    mois_precedant = "01"
    annee_precedante = annee_courante
    Case "03"
    mois_precedant = "02"
    annee_precedante = annee_courante
    Case "04"
    mois_precedant = "03"
    annee_precedante = annee_courante
    Case "05"
    mois_precedant = "04"
    annee_precedante = annee_courante
    Case "06"
    mois_precedant = "05"
    annee_precedante = annee_courante
    Case "07"
    mois_precedant = "06"
    annee_precedante = annee_courante
    Case "08"
    mois_precedant = "07"
    annee_precedante = annee_courante
    Case "09"
    mois_precedant = "08"
    annee_precedante = annee_courante
    Case "10"
    mois_precedant = "09"
    annee_precedante = annee_courante
    Case "11"
    mois_precedant = "10"
    annee_precedante = annee_courante
    Case "12"
    mois_precedant = "11"
    annee_precedante = annee_courante
    Case Else
    mois_precedant = "12"
    annee_precedante = annee_courante - 1
End Select
 
End Sub
et les criteres de ma requete sont les suivants :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
[Forms]![FormMoisM-1]![moisM-1]
[Forms]![FormMoisM-1]![anneeM-1]
j'espere avoir ete suffisemment claire dans mes explications.
Maintenant vient la question, comment je fais pour faire que les criteres dans ma requete soit les variables calculés dans ma procédure.

Merci