Discussion :

[Lycoz]

Bonjour

J'aurias vuolu savoir comment utiliser le formulaire de recherche multiple de caféine opur plusieur table.

Je m'explique.

Au lieu d'avoir un formulaire qui recherche sur une seule table, qu'elle recherche sur plusieurs tables différentes...

Est-ce possible?

Merci a tous d'avance

[cadabricadabra]

Tu veux dire un formulaire basé sur une table/requête ou Zone Liste ?

[Lycoz]

Il y a nue différence???

Ce serais pour une redirection vers des tables

[cadabricadabra]

Exemple: tu as 2 tables (T1 et T2). Ton formulaire doit être d'abord basé sur l'une des deux tables (la table principale,T1 par exemple ). Ensuite tu insert un sous-formulaire basé dur T2. Ainsi de suite, tu pourras insérer autant de tables que tu veux.

NB: Il faut qu'il y est une relation entre toutes les tables du formualire. Sinon boummmm....!!!!!!!, je n'ai rien dit...

[Lycoz]

Si on examine le code :

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
Private Sub chkAuteur_Click()
 
If Me.chkAuteur Then
    Me.txtRechAuteur.Visible = False
Else
    Me.txtRechAuteur.Visible = True
End If
 
RefreshQuery
 
End Sub
 
 
Private Sub chkFamille_Click()
 
If Me.chkFamille Then
    Me.cmbRechFamille.Visible = False
Else
    Me.cmbRechFamille.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub chkResume_Click()
 
If Me.chkResume Then
    Me.txtRechResume.Visible = False
Else
    Me.txtRechResume.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub chkTitre_Click()
 
If Me.chkTitre Then
    Me.txtRechTitre.Visible = False
Else
    Me.txtRechTitre.Visible = True
End If
 
RefreshQuery
 
End Sub
 
 
Private Sub chkType_Click()
 
If Me.chkType Then
    Me.cmbRechType.Visible = False
Else
    Me.cmbRechType.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub cmbRechFamille_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub cmbRechType_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, 3)
        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 CodMedia, Titre, Auteur, Famille, Type FROM Medias;"
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT CodMedia, Titre, Auteur, Famille, Type FROM Medias Where Medias!CodMedia <> 0 "
 
If Not Me.chkAuteur Then
    SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' "
End If
If Not Me.chkFamille Then
    SQL = SQL & "And Medias!Famille = '" & Me.cmbRechFamille & "' "
End If
If Not Me.chkResume Then
    SQL = SQL & "And Medias!Résumé like '*" & Me.txtRechResume & "*' "
End If
If Not Me.chkTitre Then
    SQL = SQL & "And Medias!Titre like '*" & Me.txtRechTitre & "*' "
End If
If Not Me.chkType Then
    SQL = SQL & "And Medias!Type = '" & Me.cmbRechType & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub
 
 
Private Sub lstResults_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "frmAutoMedias", acNormal, , "[CodMedia] = " & Me.lstResults
 
 
End Sub
 
Private Sub txtRechAuteur_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub txtRechResume_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub txtRechTitre_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub

Il faudra juste ajouter atant de fois le code suivant que de table :

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
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT CodMedia, Titre, Auteur, Famille, Type FROM Medias Where Medias!CodMedia <> 0 "
 
If Not Me.chkAuteur Then
    SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' "
End If
If Not Me.chkFamille Then
    SQL = SQL & "And Medias!Famille = '" & Me.cmbRechFamille & "' "
End If
If Not Me.chkResume Then
    SQL = SQL & "And Medias!Résumé like '*" & Me.txtRechResume & "*' "
End If
If Not Me.chkTitre Then
    SQL = SQL & "And Medias!Titre like '*" & Me.txtRechTitre & "*' "
End If
If Not Me.chkType Then
    SQL = SQL & "And Medias!Type = '" & Me.cmbRechType & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

Ou peut etre pas... J'ai pas trè bien compris

[cafeine]

Hello,

est-ce que tes tables sont liées ?
. si oui : ben il faut travailler sur une requête qui les lie
. si non : il s'agit de plusieurs recherches donc oui, dupliquer le code ...

[Lycoz]

Alors les tables sont effectivement liées...

[cafeine]

Alors, l'idée c'est que tu fasses une requête qui ramene tout tes enregistrements.
Ensuite tu n'auras qu'à remplacer le nom de table dans le SQL par le nom de la requête.

[Lycoz]

Merci bcp