Discussion :

[Bastien06]

Bonjour,

Je suis en train de bosser sur un formulaire Access qui vient taper dans une BD.

J'ai deux zones de liste représentant des Portefeuilles et des marchés, et deux zones de texte avec les dates. Tout cela me permet de "filtrer" les infos que je veux et de les afficher dans un sous-formulaire.

Mon problème : dans le sous-formulaire j'ai un champ [Date Opération], qui contient des dates journalières.

Je souhaiterais, via un Groupe d'option, regrouper ces dates par jour, ou semaine, ou mois, ou année. (au choix, donc 4 options)

En SQL j'utilise Format([Date Opération];"mmm-yy") pour regrouper par mois.

Comment est-ce que je dois retranscrire ça en VBA?

Voici une partie de mon code:

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
'On retourne les valeurs filtrées
    strSQL = "SELECT Portefeuille, Marché, [Ss - Jacent], [SommedeNb Opé], [SommedeNombre de lot], [Date Opération]" _
    & "FROM [Recap Deals] WHERE (Portefeuille Like '" & vZoneListe1 & "*' and Marché like '" & vZoneListe2 & "*')"
    'On affecte le filtre au Sous Formulaire SF_Recap
 
 
'Sur Date Début
If TxtDateDébut <> "" Then
    strSQLDateDébut = " AND ([Date Opération]>=" & DateAuFormatUS(Me.TxtDateDébut) & ")"
End If
 
'Sur Date Fin
If TxtDateFin <> "" Then
    If TxtDateFin >= TxtDateDébut Then
        If strSQLDateDébut <> "" Then
            strSQLDateFin = " AND ([Date Opération]<=" & DateAuFormatUS(Me.TxtDateFin) & ")"
        Else
            strSQLDateFin = " WHERE ([Date Opération]<=" & DateAuFormatUS(Me.TxtDateFin) & ")"
        End If
    Else
    MsgBox ("La Date de fin ne peut pas être inférieur à la date de début")
    Me.TxtDateFin.Value = Me.TxtDateDébut.Value
    End If
End If
 
 
'Sur Groupe d'Option Time Periode
If Me.ChoixTimePeriod = 1 Then
strSQLTimePeriod = " "
 
ElseIf Me.ChoixTimePeriod = 2 Then
strSQLTimePeriod = "GROUP BY "
 
ElseIf Me.ChoixTimePeriod = 3 Then
strSQLTimePeriod = "GROUP BY format([Date Opération],'mmm-yy')"
 
ElseIf Me.ChoixTimePeriod = 4 Then
strSQLTimePeriod = "GROUP BY format([Date Opération],'yyyy')"
End If
 
strSQL = strSQL & strSQLTimePeriod & strSQLDateDébut & strSQLDateFin
 
Me.SF_Recap.Form.RecordSource = strSQL

Merci par avance pour votre aide !

[micniv]

un début :
par année :

Code :

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

"  ...WHERE  year([Date Opération]) =" & year(Me.TxtDateDébut))

par mois :

Code :

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

 " ... WHERE  month([Date Opération]) =" & month(Me.TxtDateDébut))

par jour

Code :

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

 " ... WHERE  format([Date Opération], 'yymmdd') ='" & format(Me.TxtDateDébut, "yymmdd")  & "'"

A+

[Bastien06]

Bonjour!

Merci pour vos conseils.

Malheureusement j'ai une erreur de syntaxe (Opérateur Absent) dans mon expression.

J'ai changé pour la forme les If...Else par un Select Case comme suit:

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
    'On retourne les valeurs filtrées
    strSQL = "SELECT Portefeuille, Marché, [Ss - Jacent], [SommedeNb Opé], [SommedeNombre de lot], [Date Opération]" _
    & "FROM [Recap Deals]" _
    & " WHERE (Portefeuille Like '" & vZoneListe1 & "%' " _
    & " And Marché like '" & vZoneListe2 & "%')"
 
 
'Sur le Groupe d'option Time Period
Select Case Me.ChoixTimePeriod
 
Case Is = 1 'regroupement par jour / Date
strSQLTimePeriod = " WHERE format([Date Opération], 'yymmdd') ='" & Format(Me.TxtDateDébut, "yymmdd") & "'"
 
Case Is = 2 'regroupement par mois
strSQLTimePeriod = " WHERE month([Date Opération]) =" & Month(Me.TxtDateDébut)
 
Case Else 'regroupement par année
strSQLTimePeriod = " WHERE year([Date Opération]) =" & Year(Me.TxtDateDébut)
 
End Select
 
'Sur Date Début
If TxtDateDébut <> "" Then
    strSQLDateDébut = " AND ([Date Opération]>=" & DateAuFormatUS(Me.TxtDateDébut) & ")"
    'Else
    'strSQLDateDébut = " WHERE ([Date Opération]>=" & DateAuFormatUS(Me.TxtDateDébut) & ")"
End If
 
 
'Sur Date Fin
If TxtDateFin <> "" Then
    If TxtDateFin >= TxtDateDébut Then
        If strSQLDateDébut <> "" Then
            strSQLDateFin = " AND ([Date Opération]<=" & DateAuFormatUS(Me.TxtDateFin) & ")"
        Else
            strSQLDateFin = " WHERE ([Date Opération]<=" & DateAuFormatUS(Me.TxtDateFin) & ")"
        End If
    Else
    MsgBox ("La Date de fin ne peut pas être inférieure à la date de début")
    Me.TxtDateFin.Value = Me.TxtDateDébut.Value
    End If
End If
 
'Rassemblement des variables pour constituer le SQL
strSQL = strSQL & strSQLTimePeriod & strSQLDateDébut & strSQLDateFin
 
Me.SF_Recap.Form.RecordSource = strSQL

J'ai essayé de changer les WHERE par GROUP BY mais on me dit que j'ai essayé "d'exécuter une requête ne comprenant pas l'expression spécifiée 'Portefeuille' comme une partie de la fonction d'agrégat"

Je pense que dans les deux cas il me manque un caractère quelque part?

Merci encore!

[Jean-Philippe André]

salut,
un espace manque avant le FROM

[Bastien06]

J'avais noté aussi mais ca ne change rien.

Je pense que le problème est dans mon Select Case car lorsque je n'en tiens pas compte, c'est à dire que j'ai le SQL suivant:

Code :

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

1
2
3
4
5
6
7
 
 
strSQL = strSQL & strSQLDateDébut & strSQLDateFin
 
au lieu de 
 
strSQL = strSQL & strSQLTimePeriod & strSQLDateDébut & strSQLDateFin

le code marche, et le sous-formulaire affiche bien les résultats.

Merci en tout cas!
bastien