Discussion :

[clickandgo]

Bonjour à tous

J'aurais besoin de connaitre la méthode pour refiltrer une sentence sql et que ce filtre soit utilisable en tant que source d'un formulaire, je m'explique :

Dans le code ci dessous j'envoie à une Listview le résultat de filtres ce qui me donne un nombre donné de lignes dans celui-ci puis au click le registre correspondant est montré dans un formulaire unique incrusté.

Jusque là tout va parfaitement ...

Ce que je voudrais c'est que peu importe ou l'on clique dans la listview, le recordsource du formulaire unique soit restreint aux mêmes registres résultats du filtre dans la listview.

Le string sql calculé dans le code et qui marche parfaitement, ne peut pas être le même pour restreindre l'intervalle d'enregistrements car j'ai besoin de revenir à la requête source sans restriction de champs...

Faut il parcourir le premier recordset (rs) et faire une boucle pour lire quelles sont les données à inclure dans une nouvelle requête qui alimentera le formulaire ?

Si oui, faut il créer une table temporaire ? ou bien connaissez vous une autre méthode plus simple ?

Merci d'avance

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
Public Sub ListviewFiltree()
 
Dim LV  As MSComctlLib.ListView
 
Dim li As ListItem
Dim FiltreSQL As TempVars
Dim FiltreRegistres As TempVars
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
 
Set LV = Me.ListView.Object
'Set LV.ColumnHeaderIcons = Me.ImageList1.Object
 
With LV
 
    .View = lvwReport
    .ListItems.Clear
    .GridLines = True
    .Appearance = cc3D
    .Font.Name = "arial"
    .Font.Size = 8
    .AllowColumnReorder = True
    .FullRowSelect = True
    .MultiSelect = True
    .LabelEdit = False
 
End With
 
With LV.ColumnHeaders
 
    .Clear
 
    Select Case Me.ChoixFiltre
 
Case 1
    .Add , , "IDMairie", 0, lvwColumnLeft
Case 2
   .Add , , "IDcommune", 0, lvwColumnLeft
 
End Select
 
    .Add , , "Fiche", 1000, lvwColumnLeft
    .Add , , "Commune", 4000, lvwColumnLeft
    .Add , , "INSEE", 800, lvwColumnRight
    .Add , , "C.P.", 800, lvwColumnRight
    .Add , , "EPCI", 6000
    .Add , , "Département", 3000
    .Add , , "Commercial", 4000
 
 
End With
 
'filtrage suivant choix
 
Dim sql As String
Dim sql1 As String
Dim sql2 As String
 
sql1 = "select idmairie,Fiche,Commune,CodeInseecommune as [INSEE],codepostalcommune as [CP],Siren,EPCI,Département,Préfecture,Région,Commercial,datecreation from rqmairies"
sql2 = "select idcommune,Fiche,Commune,CodeInseecommune as [INSEE],codepostalcommune as [CP],Siren,EPCI,Département,Préfecture,Région,Commercial from rqcommunes"
 
    Select Case Me.ChoixFiltre
 
    Case 1 And Me.OptChoixMode = 1
 
        sql = sql1 + " where [Département]='" & Apos(Me.CboRecherche) & "'"
 
    Case 1 And Me.OptChoixMode = 2
 
        sql = sql2 + " where [Département]='" & Apos(Me.CboRecherche) & "'"
 
    Case 2 And Me.OptChoixMode = 1
 
        sql = sql1 + " where epci='" & Apos(Me.CboRecherche) & "'order by commune"
 
    Case 2 And Me.OptChoixMode = 2
 
        sql = sql2 + " where epci='" & Apos(Me.CboRecherche) & "'order by commune"
 
    Case 3 And Me.OptChoixMode = 1
 
        sql = sql1 + " where commune='" & Apos(Me.CboRecherche) & "'order by commune"
 
    Case 3 And Me.OptChoixMode = 2
 
        sql = sql2 + " where commune='" & Apos(Me.CboRecherche) & "'order by commune"
 
    Case 4 And Me.OptChoixMode = 1
 
        sql = sql1 + " where codeinseecommune='" & Me.CboRecherche & "'"
 
    Case 4 And Me.OptChoixMode = 2
 
        sql = sql2 + " where codeinseecommune='" & Me.CboRecherche & "'"
 
    Case 5 And Me.OptChoixMode = 1
        sql = sql1 + " where codepostalcommune='" & Me.CboRecherche & "'"
 
    Case 5 And Me.OptChoixMode = 2
 
         sql = sql2 + " where codepostalcommune='" & Me.CboRecherche & "'"
 
    Case 6 And Me.OptChoixMode = 1
 
         sql = sql1 + " where région='" & Apos(Me.CboRecherche) & "'order by commune"
 
    Case 6 And Me.OptChoixMode = 2
 
         sql = sql2 + " where région='" & Apos(Me.CboRecherche) & "'order by commune"
 
    Case 7 And Me.OptChoixMode = 1
 
         sql = sql1 + " where préfecture='" & Apos(Me.CboRecherche) & "'order by commune"
 
    Case 7 And Me.OptChoixMode = 2
 
         sql = sql2 + " where préfecture='" & Apos(Me.CboRecherche) & "'order by commune"
 
    Case 8 And Me.OptChoixMode = 1
 
         sql = sql1 + " where idcommune=" & Me.CboRecherche & " order by commune"
 
    Case 8 And Me.OptChoixMode = 2
 
         sql = sql2 + " where idcommune=" & Me.CboRecherche & " order by commune"
 
 
    Case 9 And Me.OptChoixMode = 1
 
         sql = sql1 + " where idcommercial='" & Me.CboRecherche.Column(0) & "'"
 
 
   Case 9 And Me.OptChoixMode = 2
 
         sql = sql2 + " where idcommercial='" & Me.CboRecherche.Column(0) & "'"
 
    Case 10 And Me.OptChoixMode = 1
 
         sql = sql1 + " where datecreation=" & "#" & Format(Me.CboRecherche.Column(0), "mm/dd/yyyy hh:nn:ss") & "#"
 
    End Select
 
Debug.Print sql
 
 
Set rs = CurrentDb.OpenRecordset(sql)
 
'Set rs2 = CurrentDb.OpenRecordset("select * from rqmairies where idmairie='" & rs!IDMairie & "'")
TempVars!FiltreSQL = sql
 
VoirListingCommunes
 
'rs.MoveFirst
Do Until rs.EOF
 
' Add items and subitems to list control.
 
Select Case Me.OptChoixMode
 
    Case 1
        Set li = LV.ListItems.Add(, , rs!IDMairie)
    Case 2
        Set li = LV.ListItems.Add(, , rs!IDCommune)
    End Select
 
 
    li.ListSubItems.Add , , Nz(rs!fiche)
    li.ListSubItems.Add , , Nz(rs!Commune)
    li.ListSubItems.Add , , Nz(rs!Insee)
    li.ListSubItems.Add , , Nz(rs!cp)
    li.ListSubItems.Add , , Nz(rs!EPCI)
    li.ListSubItems.Add , , Nz(rs!Département)
    li.ListSubItems.Add , , Nz(rs!Commercial)
 
    li.ListSubItems(1).ForeColor = vbBlue
    li.ListSubItems(2).ForeColor = RGB(100, 0, 100)
    li.ListSubItems(2).Bold = True
    li.ListSubItems(5).ForeColor = RGB(0, 50, 0)
    li.ListSubItems(5).Bold = True
    li.ListSubItems(6).Bold = True
 
 
rs.MoveNext
Loop
 
Set LV = Nothing
rs.Close
 
Me.OptToutSelectionner.Enabled = True
 
End Sub

[marot_r]

Bonjour.

Pas sur de comprendre.

Tu as un listview qui te donnes une liste d'enregistrements.
Cette liste est filtres selon certain criteres.
Tu veux ouvrir un formulaire qui affiche les memes donnees que la liste, tout en se positionnant sur l'enregistrement clique dans la liste, c'est cela ?

A+

[clickandgo]

Rebonjour

En fait la chaîne Sql produite correspond à une requête contenant que certains champs d'une requête principale rqmairies.. or pour que mon formulaire incrusté me montre tous les champs de la même requête en partie utilisée pour la listview il faut que celui ci ait comme source la requête citée dans son intégralité. .. Je ne peux donc pas utiliser la chaîne Sql créée pour la listview directement en tant que recordsource pour le formulaire ...

[marot_r]

OK, c'est plus clair.

Par contre tu dois pouvoir utiliser la clause where de ta requete de selection.
Peut-etre en changeant la source du formulaire ou en appliquant un filtre dessus.
Enfin si ton formulaire incruste est un sous-formulaire, tu peux peut-etre utiliser les proprietes "Champs Pere", "Champ Fils" pour que Access filtre les donnees pour toi.
Ton formulaire incruste serait allimente par ta source non filtree et Access se charge de ne garder que les enregistrements ou les champs definis sont egaux.
On s'en sert par exemple pour associer les details d'une commande a la commande elle-meme.

A+

[clickandgo]

Les techniques que tu mentionnes ne fonctionneront pas pour le formulaire incrusté car le résultat du premier filtre se trouve dans un Listview indépendant.

Il me semble qu'il suffit de créer une requête imbriquée simplement mais lorsque j'essaye il me dit qu'il faut utiliser la clause "Exists" alors qu'en principe pour retourner plusieurs valeurs on doit utiliser" IN" non ?

Code :

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

select * from rqmairies where [idmairie] in (select idmairie,Fiche,Commune,CodeInseecommune as [INSEE],codepostalcommune as [CP],Siren,EPCI,Département,Préfecture,Région,Commercial,datecreation from rqmairies where datecreation=#10/12/2018 13:47:38#)

La requête finale doit retourner toutes les lignes incluses dans la requête imbriquée qui est le résultat du premier filtre ...

Si je change la clause pour :

Code :

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

select * from rqmairies where exists (select idmairie,Fiche,Commune,CodeInseecommune as [INSEE],codepostalcommune as [CP],Siren,EPCI,Département,Préfecture,Région,Commercial,datecreation from rqmairies where datecreation=#10/12/2018 13:11:50#)

la requête me renvoie tout ce qu'il y a dans la table au lieu de filtrer seulement les entrées contenues dans le premier filtre, pourquoi ?

[clickandgo]

Bonjour,

Problème résolu : j'ai changé les termes de la requête principale et celle ci peut maintenant être utilisée en tant que source du formulaire incrusté ... ouf !!!

[Invité]

Bonsoir,

J'arrive un peut tard mais bon.

Supposons que le filtre s'applique au recordset de ton formulaire. Tu peux créer un autre recordset comme source à partir de la requête filtré.

https://docs.microsoft.com/fr-fr/off...r-property-dao


set rs2=me.recordset.openrecordset