[AC-2010] filtrer sous formulaire suite clic sur donnée [Résolu]

[sebing]

bonsoir,

Je cherche la possibilité de filtrer un sous formulaire lorsque l'on sélectionne une ligne du formulaire (clic).

Mon formulaire comporte deux formulaires:
1 les fonctions et l'autre les domaines qui dépendent des fonctions.

J'aimerai que lorsque je clique sur le nom d'une fonction, les domaines qui le composent s'affiche dans le sous formulaire.

Le champ qui peut les filtrer est le num_fonction.

Merci par avance

Seb

[sebing]

Le fichier joint a été supprimer donc je vais essayer d'etre le plus precis possible afin que l'on me vienne en aide.

J'ai un formulaire contenant 2 formulaires continus .

Le premiers (fonction) a les champs suivants:

num_fonction, nom_fonction

Le deuxieme(domaine) a les champs suivants:

num_fonction, nom_domaine,

Je voudrai que lorsque l'on clique sur un nom de fonction dans le formulaire "fonction" , seuls les domaines appartenants a cette fonction s'affiche dans le formulaire "domaine"

Ce filtre peut se faire grace au num_fonction
J'ai essaye ce code

Code :

1
2
3
Private Sub Nom_fonction_Click()
DoCmd.ApplyFilter , "[domaine]![num_fonction] = '" & Me.Num_fonction & "'"
End Sub

mais ça me ramene une erreur

erreur d'execution 2491

Merci

Seb

[fbtsra]

Bonjour,

Voici le code :

Code :

1
2
3
4
5
 
Private Sub Nom_fonction_Click()
Forms![NomFormulairePrincipal]![domaine].Form.Filter = "num_fonction='" & Forms![NomFormulairePrincipal]![fonction].Form.num_fonction & "'"
Forms![NomFormulairePrincipal]![domaine].Form.FilterOn = True
End Sub

Bcdt

[sebing]

Envoyé par fbtsra

Bonjour,

Voici le code :

Code :

Bcdt

Merci fbtsra pour l'aide mais il y a un message d'erreur:

erreur d execution 2465 Microsoft Access ne trouve pas le Champ "fonction" auquel il est fait référence dans votre expression

J'ai mis le code dans l'objet classe du formulaire fonction:

Code :

1
2
3
4
Private Sub Nom_fonction_Click()
Forms![Accueil]![domaine].Form.Filter = "Num_fonction='" & Forms![Accueil]![fonction].Form.Num_fonction & "'"
Forms![Accueil]![domaine].Form.FilterOn = True
End Sub[

Merci encore

seb

[fbtsra]

Vous avez bien un formulaire Accueil contenant deux formulaires Fonction et Domaine comme sous-formulaires ? ou fonction et domaine sont ils eux aussi liés (l'un étant le sous-formulaire de l'autre) ?

Bcdt

[sebing]

Envoyé par fbtsra

Vous avez bien un formulaire Accueil contenant deux formulaires Fonction et Domaine comme sous-formulaires ? ou fonction et domaine sont ils eux aussi liés (l'un étant le sous-formulaire de l'autre) ?

Bcdt

J'ai créé un formulaire "Accueil" et j'ai glissé les deux formulaires "fonction" et "domaine".
ils ne sont pas reliés.

[fbtsra]

Etrange ... vérifiez le nom du sous-formulaire "fonction" sinon pouvez vous envoyer la base avec uniquement les objets nécessaires au filtre souhaité ?

Bcdt

[sebing]

Envoyé par fbtsra

Etrange ... vérifiez le nom du sous-formulaire "fonction" sinon pouvez vous envoyer la base avec uniquement les objets nécessaires au filtre souhaité ?

Bcdt

Super ça marche

J'ai mis les noms se trouvant dans legende(propriete formulaire) et j'ai aussi enlevé les ' 'car Num_fonction est de type numérique.

Code :

1
2
3
4
Private Sub Nom_fonction_Click()
Forms![Accueil]![req_domaine].Form.Filter = "Num_fonction=" & Forms![Accueil]![req_nb_fiche].Form.num_fonction & ""
Forms![Accueil]![req_domaine].Form.FilterOn = True
End Sub

Merci encore fbtsra

Bonne journée

Seb