Discussion :

[Jupaysan]

Bonsoir,

Je viens une fois de plus solliciter votre aide.
J'ai créé un formulaire principal avec 4 onglets de navigations permettant d'afficher les sous formulaires en mode feuilles données. J'utilise le code sourceobject pour afficher les sous forms.

Les 4 sous formulaires ont tous 2 champs identiques: Ville et Nom.
J'ai créé sur le formulaire principal un filtre basé sur ces 2 champs avec une cmd_rechercher.
Mon filtre est Txt_Ville et Txt_Nom, qui sont des champs indépendants.
Malheureusemenrt mon filtre ne fonctionne pas.

Voici le code

Code langage :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Private Sub Cmd_Rechercher_Click()
f = ""
If Not IsNull(Me.Txt_Ville) And Me.Txt_Ville <> "" Then
f = f & "Ville LIKE""*" & Me.Txt_Ville & "*"""
End If
If Not IsNull(Me.Txt_Nom) And Me.Txt_Nom <> "" Then
If f <> "" Then
f = f & "OR Ville LIKE""*" & Me.Txt_Nom & """"
Else
f = "Nom=""" & Me.Txt_Nom & """"
End If
End If
Me.Filter = f
Me.FilterOn = True
End Sub

PS: Mes 4 sous forms ont la même source.

Par avance merci++

[tee_grandbois]

bonsoir,

J'ai créé un formulaire principal avec 4 onglets de navigations permettant d'afficher les sous formulaires en mode feuilles données.
J'utilise le code sourceobject pour afficher les sous forms.
Malheureusemenrt mon filtre ne fonctionne pas.
Mes 4 sous forms ont la même source.

Code :

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

1
2
Me.Filter = f
Me.FilterOn = True

Toutes les informations que tu donnes ne suffiront pas pour te donner une solution:
- le code ne s'applique qu'au formulaire principal, car Me fait référence au formulaire où est créé le code (bouton Cmd_Rechercher du formulaire principal).
- Filter est applicable pour un sous-formulaire "classique", c'est à dire un formulaire avec une source de données intégré à un formulaire principal. Cela ne fonctionne pas avec un source objet indépendant de type requête ou table car on n'a pas accès au RecordSource.

De quel type est le source objet des sous-formulaires ?

Peux-tu poster le code complet ?

D'autre part, les formulaires de navigation ont une syntaxe spéciale, et d'après ce que j'ai lu, un comportement pas très orthodoxe

[Jupaysan]

Bonsoir Tee_grandbois.

Mes sous formulaires sont basés sur une requête.
J'ai créé un formulaire principal indépendant avec 4 btns correspondant à chaque sous formulaire.
Chaque btn a le code suivant:

Code langage :

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

1
2
 Me.Details.SourceObject = "Nom du sous formulaire"
Me.Lbl_Titre.Caption = "Titre à afficher"

Merci

[tee_grandbois]

Mes sous formulaires sont basés sur une requête.

j'en déduis que c'est un formulaire utilisé comme sous-formulaire et avec une requête comme source de données ...
essaie cette syntaxe:

Code :

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

1
2
Me.[Details].Form.Filter = f
Me.[Details].Form.FilterOn = True

[Jupaysan]

Yes!
Ca marche nickel.
cependant les 2 critères ne sont pas pris en compte
Est-il possible d'avoir un avis sur le code concernant le paramétrage des 2 critères:
Ville seule ou Nom seul et la combinaison des 2.

Merci

[tee_grandbois]

Est-il possible d'avoir un avis sur le code concernant le paramétrage des 2 critères:
Ville seule ou Nom seul et la combinaison des 2.

un seul conseil: ajoute Debug.print f avant le filtre et compare le résultat par rapport à ta saisie et ce qui est affiché ...

[Jupaysan]

Je n'arrive pas avoir le différence. Peut être déjà un peu fatigué ou mon manque d'expérience
Est-il possible d'avoir une idée du résultat attendu?

merci

[tee_grandbois]

Je n'arrive pas avoir le différence. Peut être déjà un peu fatigué ou mon manque d'expérience
Est-il possible d'avoir une idée du résultat attendu?

je n'ai ni les critères saisis, ni le résultat sous les yeux, toi oui ...

Ca marche nickel.
cependant les 2 critères ne sont pas pris en compte

comment as-tu fait pour le constater ? c'est bien en comparant le résultat et les critères ?

[Jupaysan]

je n'ai ni les critères saisis, ni le résultat sous les yeux, toi oui ...

comment as-tu fait pour le constater ? c'est bien en comparant le résultat et les critères ?

Bonjour Teegrandbois,

Voici le code complet avec ajout de debug print

Code langage :

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
 Private Sub Cmd_Rechercher_Click()
f = ""
If Not IsNull(Me.Txt_Ville) And Me.Txt_Ville <> "" Then
f = f & "Ville LIKE""*" & Me.Txt_Ville & "*"""
End If
If Not IsNull(Me.Txt_Nom) And Me.Txt_Nom <> "" Then
If f <> "" Then
f = f & "OR Ville LIKE""*" & Me.Txt_Nom & """"
Else
f = "Nom=""" & Me.Txt_Nom & """"
End If
End If
Debug.print f
Me.[Details].Form.Filter = f
Me.[Details].Form.FilterOn = True
End Sub

Est que Debug.print f est positionné au bon endroit?
Serait-il possible de connaitre sa fonction? J'ai lu que c'était un des outils de débogage.

Merci