Group By Format([DATE]) VBA - SQL

Version imprimable

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:

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 !

24/03/2010, 21h19
micniv

un début :
par année :

Code:

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

par mois :

Code:

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

par jour

Code:

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

A+
:D

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:

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!

25/03/2010, 15h43
Jean-Philippe André

salut,
un espace manque avant le FROM :ccool:
25/03/2010, 15h53
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:

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