VBA, Requête SQL, Group By

Version imprimable

17/11/2014, 16h11
MitchP

VBA, Requête SQL, Group By
Bonjour,

Là j'ai atteint ma limite .........

Je construis, sur la base de différents critères (liste de choix) d'un formulaire , une requète SQL qui s'exécute avec :
Code:

1 2 3 CurrentDb.CreateQueryDef stDocQueryName, stDocQuery Set qry = CurrentDb.QueryDefs(stDocQueryName) DoCmd.OpenQuery stDocQueryName, , acReadOnly
Un des critère de choix est la structure hiérarchique de l'entreprise :

ABC
ABC-DRE
ABC-DRE-ER-GZU-V
ABC-DRE-ER-RT
ABC-DRE-ER-TE
ABC-DRE-KLT-VH
DER-UZT-PT-ERT
DER-UZT-WED-VBZ

Lorsque je choisi "ABC-DRE" (Formulaire, liste déroulante), la réponse devrait être :

ABC-DRE -> ce qui est égal à ABC-DRE
ABC-DRE-ER -> ce qui est égal à ABC-DRE-ER*
ABC-DRE-KLT -> ce qui est égal à ABC-DRE-KLT*

soit le niveau choisi plus 1 niveau

Ceci est réalisé en adaptant le champ [StrucHyerar] dans Select(IIF(.....) suivi d'un Group By [StrucHyerar]

ABC-DRE -> ABC-DRE
ABC-DRE-ER-GZU-V -> ABC-DRE-ER*
ABC-DRE-ER-RT -> ABC-DRE-ER*
ABC-DRE-ER-TE -> ABC-DRE-ER*
ABC-DRE-KLT-VH -> ABC-DRE-KLT*

Hélas, ce que j'obtiens est :

ABC-DRE
ABC-DRE-ER
ABC-DRE-ER
ABC-DRE-ER
ABC-DRE-KLT

Donc, j'en déduis que le Group By prends la valeur originale du champ, et non pas la nouvelle valeur définie par le IIF.... !!!!!

Comment peux-on définir le Group By sur la nouvelle valeur ??

PS : A noter que le Champ [StrucHyerar] est renommé "AS [UNIT]"

Merci d'avance

Mitch
18/11/2014, 09h06
nico84

Bonjour,

C'est pas super clair (!) mais si le select contient un champ iif(...) il est possible de mettre le même champ iif(...) dans le group by.

YES !!!!

Merci nico84, c'est exactement ce dont j'avais besoin.......

Introduire le "IIF dans le Group By fonctionne à merveille

Juste mon code pour le fun :

Code:

1
2
3
4
5
6
7
8
9
10
11
                Case Is = 3
                    stDocSelect = stDocSelect & "IIF([AuftrVer_DPt] Like [Forms]![frm_Master]![Modifiable515],[AuftrVer_DPt]," _
                    & "IIF([AuftrVer_DPt] Like [Forms]![frm_Master]![Modifiable515] & ""*""," _
                    & "IIF(InStr(Len([Forms]![frm_Master]![Modifiable515]) + 2,[AuftrVer_DPt], ""-"") = 0,[AuftrVer_DPt]," _
                    & "Left([AuftrVer_DPt], InStr(Len([Forms]![frm_Master]![Modifiable515]) + 2, [AuftrVer_DPt], ""-"") - 1)))) as [Mandat_Responsible_Organisation],"
                    stDocWhere = stDocWhere & "[AuftrVer_DPt] Like [forms]![frm_master]![Modifiable515]& ""*"" and"
                    stDocGroup = stDocGroup & "IIF([AuftrVer_DPt] Like [Forms]![frm_Master]![Modifiable515],[AuftrVer_DPt]," _
                    & "IIF([AuftrVer_DPt] Like [Forms]![frm_Master]![Modifiable515] & ""*""," _
                    & "IIF(InStr(Len([Forms]![frm_Master]![Modifiable515]) + 2,[AuftrVer_DPt], ""-"") = 0,[AuftrVer_DPt]," _
                    & "Left([AuftrVer_DPt], InStr(Len([Forms]![frm_Master]![Modifiable515]) + 2, [AuftrVer_DPt], ""-"") - 1)))),"
            End Select

En fait, avec le formulaire à choix multiple, je construis la requête sql champ après champ......

Le ([AuftrVer_DPt] correspond aux unités et le [Forms]![frm_Master]![Modifiable515] au choix de la liste déroulante

Une tonne de merci !!!!!

Mitch