Discussion :

[NPortmann]

Bonjour,

Voici mon problème:

Mon état "SousEtat1" a pour source de donnée "ReqSousEtat1". J'aimerai ajouter un filtre à ce sous état. Dans la plupart des cas, on ferait cela sous (propriétés du SousEtat1 - Onglet Données - Filtre) ou alors directement dans la requête "ReqSousEtat1".
Le problème est que dans mon cas, le fitre que je désirs ajouter peut varier selon des paramètre utilisateurs (construction d'une clause where avec des OR). En clair, il faudrai que je puisse construire mon filtre en VB via une chaîne de caractère, puis executer mon "SousEtat1" avec ce filtre.
A noter que (comme son nom l'indique) mon état "SousEtat1" est ouvert (utilisé) en tant que Sous-Etat dans mon Etat prinipale.

En cherchant un peu, j'ai vu que l'on pouvait ajouter un script VB sur ouverture de "SousEtat1" (propriété - onglet evenement - Sur ouverture). Pour cette piste là. mon interogation est la suivante:
Quel code taper? Mon état est déjà ouvert donc si je met un truc du style, ça ne marche pas:

Code :

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

1
2
3
4
5
6
 
Private Sub Report_Open(Cancel As Integer)
    Dim Filtre As String
    Filtre = "numero = ..."
    DoCmd.OpenReport SousEtat1, , , Filtre
End Sub

Merci beaucoup du coup de main!

[NPortmann]

Je crois bien que j'ai trouvé:

"Access peut appliquer un filtre automatiquement à l'ouverture d'un état si vous associez la propriété OnOpen de ce dernier à une macro qui utilise l'action AppliquerFiltre ou à une procédure événementielle qui utilise la méthode ApplyFilter de l'objet DoCmd. Vous pouvez également appliquer automatiquement un filtre à un état à l'aide de l'action OuvrirEtat ou de la méthode correspondante."

Donc il suffi(rai) d'utiliser DoCmd.ApplyFilter sur mon évenement "Sur ouverture"...

Je vous tiens au courrant...

[NPortmann]

Zut, apparemment, Docmd.ApplyFilter s'applique uniquement à l'état actif. Dans mon cas, c'est sur un sous-état donc ne marche pas.

pour résumer, si j'ouvre le sous-état en double cliquant dessus, ça marche mais si je l'ouvre depuis l'état principale, ça ne marche pas....

Qqun connait une parade?

[NPortmann]

Re-bonjour,

J'ai essayé avec Me.FILTER = Filtre mais ça me met l'erreur suivante:

Erreur d'exécution '2101':
Le paramètre entré nêst pas valide pour cette propriété.

Pour ce qui est du code:

Code :

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

1
2
3
4
5
6
7
 
Private Sub Report_Open(Cancel As Integer)
    Dim Filtre As String
    Filtre = "numero = ..."
    Me.FILTER = Filtre
    Me.FilterOn = True
End Sub

Le plus dingue, c'est que, comme pour la tentative précédente, cela fonctionne très bien lorsque j'ouvre mon état en double cliquant dessus. Par contre, j'ai l'erreur ci-dessus lorsqu'il est "intégré" en tant que sous-état dans un état principal!!!

Please HELP ME...

[NPortmann]

Bonjour,

Est-ce que qqun peut me donner un avis, une piste, une solutions?
Merci d'avance...

[NPortmann]

Voir http://www.developpez.net/forums/sho...d.php?t=252793