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
et les criteres de ma requete sont les suivants :
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
j'espere avoir ete suffisemment claire dans mes explications.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 [Forms]![FormMoisM-1]![moisM-1] [Forms]![FormMoisM-1]![anneeM-1]
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
Partager