Discussion :

[IndyJones]

Bonsoir à tous

J'ai un début de réponse dans le post suivant:

http://www.developpez.net/forums/sho...hlight=grouper

et j'ai besoin de vous pour la suite.

Lorsque l'utilisateur demande un report, une boite de dialogue s'ouvre d'abord pour demander l'intervalle de dates qu'il souhaite (datedébut et datefin réutilisés dans la requête alimentant le report).
J'ai ajouté un groupe d'options dans la boîte de dialogue pour que l'utilisateur puisse aussi choisir le regroupement; par jour, par semaine, par mois...

Et c'est là que je coince, parce que je ne veux pas injecter le regroupement dans la requête, mais bien (j'imagine) dans du code vba à l'ouverture du form.

J'ai donc:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Report_Open(Cancel As Integer)
    Dim strNomDoc As String
    strNomDoc = "BoiteDeDialogue"
    blnOuverture = True
    DoCmd.OpenForm strNomDoc, , , , , acDialog
    ' Regroupe les données du report selon choix de l'utilisateur dans BoiteDeDialogue
    Me.GroupLevel(0).ControlSource = Forms!BoiteDeDialogue!optRegroupement

    If IsLoaded(strNomDoc) = False Then Cancel = True
    blnOuverture = False

La partie en orange est bien entendu complètement fausse: j'aimerais reprendre le choix d'option fait dans BoiteDeDialogue, mais là je coince.
Le code en plus d'être incorrect, est-il au bon endroit ?

[random]

tu peux toujours utiliser une fonction dans ce style

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
 
Function regroup(madate, reg As String) As String
Select Case reg
Case "jour"
regroup = Format(madate, "dd/mm/yyyy")
Case "semaine"
regroup = Format(madate, "yyyy") & " semaine: " & Format(madate, "ww", vbMonday, vbFirstFourDays)
Case "mois"
regroup = Format(madate, "yyyymm")
Case "trimestre"
regroup = Year(madate) & " t:" & (Month(madate) \ 3) + 1
Case "semestre"
regroup = Year(madate) & " s:" & (Month(madate) \ 6) + 1
Case "an"
regroup = Year(madate)
End Select
End Function

[IndyJones]

Merci Random
Ca va [beaucoup] m'aider pour l'affichage des résultats.
Mais je ne vois toujours pas comment passer le choix de l'option vers le report ...