Discussion :

[loufab]

Ce n'est pas ce que je veux.
Même avec les balises, je ne comprends pas ce qu'il se passe.

Les balises c'est pour le forum pas pour ACCESS.

[loufab]

Pour répondre à ton post :

Moi non plus je sais pas ce qui se passe. Peut-être qu'en joignant ton fichier on y verrait plus clair ? J'ai l'impression qu'on ne parle pas de la même chose.

[rantanplan81]

But : Faire une recherche d’informations à l’aide d’un ou plusieurs critères.

Vous trouverez ci-joint deux fichiers le formulaire Formulaire1 et le formulaire F_Liste de toutes types d'informations_Recherche.

Un formulaire nommé « Formulaire1 » est constitué de :
- 3 listes déroulantes,
- 3 zones de texte,
- 1 bouton de commande.
Ce dernier ouvrira un formulaire « F_Liste de toutes types d'informations_Recherche» constitué de 5 sous-formulaires (un sous-formulaire par types de données).

Dans le formulaire « Formulaire1 », l’utilisateur choisira son critère à l’aide des listes déroulantes (Nom données dans les propriétés : Texte0, Texte1, Texte3) et de 3 zones de texte (Nom données dans les propriétés : Texte4, Texte5 et Texte6). Ces différents listes déroulantes sont créées avec des requêtes. Dans la zone de texte, l’utilisateur pourra mettre une lettre, un mot ou groupe de lettres.
Le bouton de commande est appelé « Commande19». Ce formulaire a été créé en « mode création ».

Dans les formulaires « F_Liste de toutes types d'informations_Recherche», chaque sous-formulaire est créé avec des requêtes.

But : Filtrer le formulaire "F_Liste de toutes types d'informations_Recherche" à l'aide des critères du formulaire "Formulaire1"

Mon programme VBA :

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
Private Sub Commande19_Click()
On Error GoTo Err_Commande19_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
 
    stDocName = "F_Liste de toutes types d'informations_Recherche"
 
stLinkCriteria = "Forms!F_Liste de toutes types d'informations_Recherche!Fille35.Form!NomClients = " & " '" & Me![Texte4] & " '"
 
DoCmd.OpenForm "F_Liste de toutes types d'informations_Recherche", acNormal, , stLinkCriteria
 
Exit_Commande19_Click:
    Exit Sub
 
Err_Commande19_Click:
    MsgBox Err.Description
    Resume Exit_Commande19_Click
 
End Sub

Quoique que je mette comme critère, dans les sous-formulaire du formulaire "F_Liste de toutes types d'informations_Recherche", la totalité des données apparaissent.
Est-ce que j'ai un problème de procédure ou de syntaxe ?

Merci d'avance

[loufab]

Je ne pense pas qu'on puisse faire un filtre d'un sous-form dans un docmd.openform. Utilise le code que je t'ai fourni précédemment que tu mettra après l'ouverture du form.

Place ton docmd.openform sans stlinkcriteria
puis met en place le code du filter.