Discussion :

[laportez]

Bonjour,
Voici mon problème :
j'ai créé un formulaire recherche multiple à partir d'une table créée par une requête.
J'ai six critères de recherche via six combox.
Je récupère les résultats dans une fenêtre lstresults.
A partir d'un bouton Btimprimer j'imprime sur un état ayant les mêmes champs que lstresults.
Ces étapes marchent parfaitement.
Cependant je voudrais éditer dans l'entête de l'état la valeur des six critères de recherche (cmbRechCateg et suivants) ainsi que les statistiques.
Je n'y arrive pas.

Merci d'avance à mon (ou mes) sauveur (s) .

Voici les codes formulaire et état :

CODE DU FORMULAIRE "Multirech"

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
Option Compare Database
 
Private Sub chkCateg_Click()
If Me.chkCateg Then
    Me.cmbRechCateg.Visible = False
Else
    Me.cmbRechCateg.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkMini_Click()
If Me.chkMini Then
    Me.cmbRechMini.Visible = False
Else
    Me.cmbRechMini.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub ChkMaxi_Click()
If Me.chkMaxi Then
    Me.cmbRechMaxi.Visible = False
Else
    Me.cmbRechMaxi.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub ChkSector_Click()
If Me.ChkSector Then
    Me.cmbRechSector.Visible = False
Else
    Me.cmbRechSector.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub ChkStage_Click()
If Me.ChkStage Then
    Me.cmbRechStage.Visible = False
Else
    Me.cmbRechStage.Visible = True
End If
RefreshQuery
End Sub
 
Private Sub chkName_Click()
If Me.chkName Then
    Me.txtRechName.Visible = False
Else
    Me.txtRechName.Visible = True
End If
RefreshQuery
End Sub
 
 
Private Sub cmbRechCateg_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub cmbRechMini_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub cmbRechMaxi_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub cmbRechSector_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub cmbRechStage_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 5)
        Case "chk"
            ctl.Value = -1
        Case "lbl"
            ctl.Caption = "- * - * -"
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
        Case "cmb"
            ctl.Visible = False
    End Select
Next ctl
Me.lstResults.RowSource = "SELECT FollowUp, Comp_Cod, Activ_Cod, Name, Country_Comp, Relship_Qual, Cat, Sector, Stage, MiniSize, MaxiSize, Contact1, Contact2, Contact3 FROM RechComAct ORDER BY Name;"
Me.lstResults.Requery
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT FollowUp, Comp_Cod, Activ_Cod, Name, Country_Comp, Relship_Qual, Cat, Sector, Stage, MiniSize, MaxiSize, Contact1, Contact2, Contact3 FROM RechComAct Where RechComAct!Activ_Cod <> 0"
If Not Me.chkCateg Then
    SQL = SQL & "And RechComAct!Cat = '" & Me.cmbRechCateg & "' "
End If
If Not Me.chkMini Then
    SQL = SQL & "And RechComAct!MiniSize >= '" & Me.cmbRechMini & "' "
End If
If Not Me.chkMaxi Then
    SQL = SQL & "And RechComAct!MaxiSize <= '" & Me.cmbRechMaxi & "' "
End If
If Not Me.ChkSector Then
    SQL = SQL & "And RechComAct!Sector = '" & Me.cmbRechSector & "' "
End If
If Not Me.ChkStage Then
    SQL = SQL & "And RechComAct!Stage = '" & Me.cmbRechStage & "' "
End If
If Not Me.chkName Then
    SQL = SQL & "And RechComAct!Name like '*" & Me.txtRechName & "*' "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "RechComAct", SQLWhere) & " / " & DCount("*", "RechComAct")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub
 
Private Sub lstResults_DblClick(Cancel As Integer)
DoCmd.OpenForm "Multirech", acNormal, , "[Activ_Cod] = " & Me.lstResults
End Sub
 
Private Sub txtRechName_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub BTImprimer_Click()
Dim Nom_Etat As String
Nom_Etat = "ListMultirech"
DoCmd.OpenReport Nom_Etat, acPreview
End Sub

2 - CODE DE l’ETAT "ListMultirech"

Code :

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

1
2
3
4
Option Compare Database
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Forms.Item("Multirech").lstResults.RowSource
End Sub

(images du formulaire et de l'état en fichiers attachés)