Discussion :

[petitpom]

Bonjour,

je m'excuse d'avance si ce problème à déjà été traité, mais je ne trouve pas de solutions à mon problème. Je suis débutant sur ACCESS et je passe plus de temps sur des forums à chercher des solutions qu'à résoudre mes problèmes.

Je souhaite mettre en place un filtre sur un sous-formulaire via une liste déroulante.

Ma liste déroulante : Etat
Sous-Fomulaire : SF_OrigineSP
Formulaire : F_SuiviProspection2
Requête à la base de mon sous-formulaire : R_OrigineSP

J'ai trouvé sur un autre forum le code suivant, que j'ai bien sur adapté à mon cas :

Code :

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

1
2
3
4
Private Sub Etat_Change()
F_SuiviProspection2.Form.Filter = Etat.Value
F_SuiviProspection2.Form.FilterOn = True
End Sub

Quand je teste, une msgbox apparait et me dit :

L'expression Sur changement entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. Un problème est survenu durant la communication entre Microsoft Office Access et le serveur OLE ou le contrôle ActiveX

J'ai essayé en changeant mon code pour une mise à jour du sous-formulaire

Code :

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

1
2
3
4
Private Sub Etat_Change()
SF_OrigineSP.Form.Filter = Etat.Value
SF_OrigineSP.Form.FilterOn = True
End Sub

Et aussi sur la requête (idem pour la modif), mais rien ne marche.
Merci d'avance pour ceux qui pourrant m'aider.
Bonne journée et bonne semaine,

petitpom

[marot_r]

À priori ton code est correct.

Que contient Etat.Value ? Peux-tu donner un exemple de valeur ?

Qu'affiche ton sous-formulaire, des données texte ou des éléments inclus comme des Fichier Excel ou des images ?

A+

[petitpom]

Bonjour marot_r

Etat.Value est censé me renvoyer une valeur numérique correspondante au choix réalisé par l'utilisateur dans la listbox "Etat".

ListBoxEtat (Non Contacté, En attente de réponse, Intéressé,etc) = T_EtatP.LibEtat
Etat.Value (1;2;3;etc.) = T_EtatP.CodeEtat (clé primaire de ma table)

Mon sous formulaire (SF_OrigineSP) devrait afficher les informations (texte et numérique) contenues dans une autre table (T_IdentiteS) de ma base de donnée. SF_OrigineSP est alimenté par une requête (R_OrigineSP).
Sachant que T_IdentiteS.CodeEtat=T_EtatP.CodeEtat


J'espère que ces informations te permettront de mieux comprendre mon problème.
Merci pour le coup de pouce

Petitpom

[marot_r]

À mon avis la syntaxe de ton filtre est fausse, je pense que cela devrait être

Code :

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

F_SuiviProspection2.Form.Filter = "[CodeEtat]=" & Etat.Value

Un truc que tu peux faire pour valider cela c'est de mettre une valeur en dur ex :

Code :

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

F_SuiviProspection2.Form.Filter = "[CodeEtat]=1"

Si tu as bien les données attendues c'est bien un problème de syntaxe, sinon ... revient avec les résultats :-).

A+

[petitpom]

Salut Marot_r,
merci pour ces infos, mon filtre marche parfaitement, je vais pouvoir passer à la suite.
Bonne journée