Discussion :

[popof60]

Bonjour,

Comment filtrer un sous formulaire donc les enregistrements afficher dépendent du formulaire principale ?

Avec le code suivant, je filtre tous les formulaires mais pas le ss form chargé

DoCmd.RunCommand acCmdFilterByForm

D'avance merci

[loufab]

Bonjour,

Normalement si les propriétés Champs père et champs fils sont correctement renseigné le filtre sur le form principal met a jour ceux du (ou des ) sous-form.

Cordialement,

[popof60]

oui les champs père et fils sont correctement renseignés et le filtrage du form principale ne me pose pas de soucis pour les sous form, je cherche à faire un filtrage de "second niveau" en ne filtrant que les enregistrement affiché par mon sous form sans agir sur mon form principal ...

Dans la théorie je suppose que je dois ciblé mon sous form at lui appliqué la cmd "filtrer" mais dans la pratique

[loufab]

Dans ce cas utilise les propriétés Filter et FilterOn du sous-form.

F1 lorsque tu est sur la propriété te donnera toutes les indications necessaires.

Cordialement,

[popof60]

Mon code est standard, seulement il me flitre les champs de mon form principal et de mon sous form

Code :

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

1
2
3
4
5
 
Private Sub Commande179_Click()
Me![Contrats sous-formulaire].SetFocus
DoCmd.RunCommand acCmdFilterByForm
End Sub

seulement la cmd filterbyform ne doit s'appliquer qu'a mon sous form

[loufab]

Ci-joint le cas de l'application d'un filtre par VBA.

Code :

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

1
2
3
4
5
6
7
8
 
if ...   ' le filtre est mis
        Me.monsousform.form.Filter = "Table.Champ = " & mavaleur
        Me.monsousform.form.FilterOn = True
Else   ' le filtre est enlevé
        Me.monsousform.form.Filter = ""
        Me.monsousform.form.FilterOn = False
Endif

Cet appel est fait depuis le formulaire. Le focus reste sur celui-ci. On fait appel aux propriétés Filter et FilterOn du sous-form.

[popof60]

ok, le filtre fonctionne, merci loufab mais il n'est pas adapté à mon besoin, je veux faire un filtrage par liste déroulante ... il faut que j'arrive à reproduire la commande filterbyform uniquement dans mon sous form (qui est sur un CTRL onglet) ... je vais voir, peu être en inscrivant les résultats du sous form dans un "tampon" puis faire mon filtrage par une modifiable dans ce tampon ...

On va y arrivé ...

[loufab]

mavaleur peut être remplacer par me.malistederoulante par exemple.

A mon avis il n'y a pas de contre indication sur l'utilisation de cette propriété, juste la bonne syntaxe à trouver suivant le cas.

[popof60]

ok ça fonctionne avec le code

Code :

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

1
2
3
4
Dim stdocname As String
    Dim stlinkcriteria As String
    stdocname = "Contrats sous-formulaire"
    DoCmd.OpenForm stdocname, , , "[N° de client] = '" & Me![N° de client] & "'"

Merci à tous