Modifier la recherche basée sur la technique du père/fils

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:

---

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

---

Bonjour et merci pour l'intérêt !

Pour filtrer une période, je ne vois pas comment en sortir par la technique du père/fils.

Connais-tu cet autre tutoriel http://claudeleloup.developpez.com/t...-multicritere/, il est aussi d'une application facile et il y a précisément un exemple pour une recherche de date à date.

Quoique !

À la réflexion, on pourrait sans doute bricoler un mix des deux méthodes "sur mesure".

Il "suffit" d'ajouter deux contrôles indépendants "DeDate" et "ADate" dans le formulaire principal et de faire référence au contenu de ces champs dans la source du formulaire.


Si tu peux fournir ta BdD au format Access2000, je te construirai un exemple.

Voici, j'ai remplacé la source du formulaire par ceci, pour faire référence au contenu des contrôles DeDate et ADate :

Code:

---

1 2 3 4

SELECT Indices_Tble_locale.* FROM Indices_Tble_locale WHERE (((Indices_Tble_locale.Date)>=Nz([Formulaires]![Indices Père]![DeDate],#1/1/1900#) And (Indices_Tble_locale.Date)<=Nz([Formulaires]![Indices Père]![ADate],#1/1/2900#))) ORDER BY Indices_Tble_locale.Date DESC , Indices_Tble_locale.Lieu;

---

J'ai modifié le code du clic sur Afficher tout, et après mise à jour de DeDate et ADate.

Salut,

Je te remercie pour ta promptitude, tout juste impressionnant !

J'ai par contre une erreur au lancement du formulaire Père "Erreur dans Sub Actu : 3464 Type de données incompatible dans l'expression du critère"

Une idée ?

Pascal

Les mystères de l'informatique, j'ai fait une correction dans "Sub Form_Open" juste pour rajouter une remarque, j'ai compilé est ... tout est OK plus d'erreur ...

Donc au final un grand merci et une bonne soirée.

Pascal