bonjour à tous,

voilà j'ai essaye depuis quelque jours de faire une formulaire multicritère, par nom, et type Aptitude (liste déroulante) le problème que je choisi un nom ou une aptitude ça ne change rien du tout je croix que j'ai un problème avec le code quelqu'un peut m'aider pour identifier le problème svp:

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
Option Compare Database
Option Explicit
Private Sub BtTout_Click()
Dim ctl As Control
For Each ctl In Me.Controls
    If Left(ctl.Name, 6) = "filtre" Then
        Me(ctl.Name) = Null
    End If
Next ctl
Me.Requery
End Sub
 
Private Sub filtreNom_AfterUpdate()
Me.Requery
End Sub
 
Private Sub filtreNom_Click()
 
End Sub
 
Private Sub filtreNom_DblClick(Cancel As Integer)
RaZ
End Sub
 
Private Sub filtreTypeAptitude_AfterUpdate()
Me.Requery
End Sub
 
Private Sub filtreTypeAptitude_Click()
 
End Sub
 
Private Sub filtreTypeAptitude_DblClick(Cancel As Integer)
RaZ
End Sub
 
Private Sub RaZ()
Me.ActiveControl = Null
Me.Requery
End Sub