Discussion :

[thoruiz]

Bonjour,

Je souhaite modifier la source d'une liste déroulante par VBA.
J'ai trouvé la méthode "SourceObject" qui permet de modifier la source de la liste modifiable mais je pense avoir une erreur de syntaxe car access me retourne: "membre de méthode ou de données introuvable" à la ligne 4

La liste déroulante (num_modif) doit être alimentée par le choix fait sur 2 contrôles . Donc j'ai crée 3 requetes qui permettent d'alimenter la liste modifiable selon que le controle A est rempli, et B reste vide, B rempli et A reste vide, ou A et B remplis.

Il y a probablement une erreur de syntaxe...

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub historique_Change()
If (IsNull(Forms![Suivi_RMC]![histo_interne])) Then
 
num_modif.SourceObject = "R_suivi_rmc_date"
Else
num_modif.SourceObject = "R_suivi_rmc_interne_date"
End If
num_modif.Requery
End Sub

Merci pour votre aide

[tee_grandbois]

Bonsoir,
SourceObject ce n'est pas pour les listes déroulantes mais pour les sous-formulaires. Normalement si une propriété n'est pas proposée avec Intellisense (auto complétion) c'est qu'elle n'appartient pas à l'objet:


la propriété que tu doit utiliser est RowSource

[thoruiz]

Merci pour la réponse effectivement, la méthode n'était pas correcte, j'ai essayé avec RowSource mais j'ai un message d'erreur:

"Cette expression présente une syntaxe incorrecte ou il est trop complexe pour être évaluée. Par exemple, une expression numérique peut contenir trop compliqué d’éléments. .Essayez de simplifier l’expression en affectant des parties de l’expression à des variables"

Ma syntaxe est

Code :

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

num_modif.RowSource = "R_suivi_rmc_date"

Cordialement

[tee_grandbois]

le problème vient certainement de la requête. Peux-tu poster le contenu SQL ?

[thoruiz]

Voici la requête SQL:

Code SQL :

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

1
2
3
SELECT t_Main.num AS Numéro_inter, t_Main.date_appel, t_Main.Nom, t_Main.Prenom, Personnel.Nom_personnel, Personnel_1.Nom_personnel
FROM (t_Main INNER JOIN Personnel ON t_Main.ref_personnel_1 = Personnel.N°) INNER JOIN Personnel AS Personnel_1 ON t_Main.ref_personnel_4 = Personnel_1.N°
WHERE (((t_Main.date_appel)=[Formulaires]![Suivi_RMC]![historique]) AND ((Personnel_1.Nom_personnel)=[Formulaires]![Suivi_RMC]![histo_interne]));

La requête est générée à partir du mode création et elle fonctionne correctement.

[tee_grandbois]

désolé, je n'ai pas d'autre idée concernant ton souci ...

[thoruiz]

Merci pour votre aide précieuse , effectivement la requête comportait des erreur (référence à des formulaires non ouvert...)