Bonjour,
J'ai réaliser le tuto "Un formulaire de recherche basé sur la technique du père/fils" de Claude Leloup (que je remercie, ça fonctionne du tonnerre) mais j'aimerais rajouter un bout de code pour filtrer un champ date d'une date à une date.
J'ai rajouter un champ indépendant "DeDate" et un autre "ADate" mais je bloque complétement sur le comment rajouter un filtre Where [Date] Between [DeDate] And [ADate].
J'espère être clair et que quelqu'un pourra m'aider.
Voici la portion de code de Claude :
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 Public Sub Actu() On Error GoTo GestionErreurs Dim ctl As Control Me(sConteneur).LinkMasterFields = "" Me(sConteneur).LinkChildFields = "" For Each ctl In Me.Controls If Left(ctl.Name, 6) = "filtre" And Not IsNull(Me(ctl.Name)) Then Me(sConteneur).LinkChildFields = Me.Indices.LinkChildFields _ & "[" & Right(ctl.Name, Len(ctl.Name) - 6) & "];" Me(sConteneur).LinkMasterFields = Me.Indices.LinkMasterFields _ & "[" & ctl.Name & "];" End If Next ctl Exit Sub GestionErreurs: Select Case Err.Number Case 2335 'survient à partir de la 2e affectation d'un champ fils (sans conséquence) Resume Next Case Else MsgBox "Erreur dans Sub Actu : " & Err.Number & " " & Err.Description End Select End Sub
Partager