Discussion :

[han87]

Bonjour,
j'ai crée une formulaire "X" qui contient une case déroulante et on dessous j'ai mis un sous formulaire "xSFM" lié avec une table 'Y', et j'aimerai que lorsque la personne sélectionne une valeur dans la case déroulante le sous formulaire affiche les donnée correspondante a cette valeur sélectionnée.

svp pouvez vous m'aider j'ai essayé plusieurs méthode mais rien ne marche même la plus facile celle des macros n'a pas marcher si vous avez une idée SVP je suis bloqué.

Salutations.

[madefemere]

Bonjour,

Quelque chose du genre de ce sujet

@+

[han87]

Bonjour,

Quelque chose du genre de ce sujet

@+

bonjour et merci pour votre aide.
j'ai essayé la solution proposé mais malheureusement lors de l’affichage Access m'affiche ce message d'erreur:
(erreur 438)
propriété ou méthode non gérée par cet objet

------------------------
voici mon code:
""

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande12_Click()
 
Dim A As String
 
A = Concat.Value
 
Forms!Frm_AnomaliesPrj!AnomalSFR.Filter = "[id_anomali]='" & A & "'"
Form!Frm_AnomaliesPrj.AnomalSFR.id_anomali.FilterOn = True
Me.AnomalSFR.Visible = True
Me.AnomalSFR.Enabled = True
 
End Sub

""
et merci d'avance

[madefemere]

Si AnomalSFR est le nom du sous-formulaire (dans ses propriétés Autres), ça devrait être :

Code :

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

1
2
3
4
5
'Construire le filtre du formulaire
Forms!Frm_AnomaliesPrj!AnomalSFR.Form.Filter = "[id_anomali]='" & A & "'" 
' Appliquer le filtre
Form!Frm_AnomaliesPrj.AnomalSFR.Form.FilterOn = True

Je ne comprend pas ce que fait id_anomali dans l'expression suivante :

Code :

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

Form!Frm_AnomaliesPrj.AnomalSFR.id_anomali.FilterOn = True

Cherches dans l'aide avec F1 l'utilisation de Filter et FilterOn et les appels de sous-formulaires sur ce lien : http://loufab.developpez.com/tutorie...pelformulaire/

Attention à l'écriture du critère si id_anomali est numérique

@+

[han87]

Aalors pour mieux t'expliquer "id_anomali" c'est un champ dans la table anomali lier au formulaire "anomalSFR" lors de l'affichage du formulaire j'aimerai le filtrer selon le champ "id_anomali".

dans le formulaire "anomali..pj" celui qui contient le sous formulaire "anomalSFR", j'ai une case 'concat' qui contient les même valeur que "id_anomali" c'est un champ string, pas numérique.

lorsque ce champ est rempli j'aimerai que le sous formulaire m'affiche les enregistrements lié à "concat".

j’espère que tu ma compris?

[madefemere]

Donc ça devrait être :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande12_Click()
Dim A As String
 
A = Concat.Value
Forms!Frm_AnomaliesPrj!AnomalSFR.Form.Filter = "[id_anomali]='" & A & "'"
Form!Frm_AnomaliesPrj.AnomalSFR.Form.FilterOn = True
Form!Frm_AnomaliesPrj.AnomalSFR.Form.Requery ' Actualiser le sous-formulaire
'Je ne comprend pas la nécessité des deux lignes suivantes ?
Me.AnomalSFR.Form.Visible = True 
Me.AnomalSFR.Form.Enabled = True
End Sub

[han87]

Merci,
ça marché MAIS le problème il ne m'affiche que certain données liée a "concat" je ne sais pas pourquoi?
par exemple il m’affiche les données liée au enregistrements 'bssr' et lorsque je change la case "concat" on 'bssp' il ne m’affiche rien alors que ses enregistrements existent déjà dans la table.

une idée?

[han87]

MERCIIIIII, c'est bon j'ai réglé le problème un 's' qui rode lol.