J'ai un liste déroulante définissant les points forts d'un produit par exemple (faisant partie d'un ensemble de réponses à des questions sur un formulaire).
La liste contient un SQL d'une table POINTS qui sélectionne les points forts ou les points faibles :
Limiter liste oui
Code : Sélectionner tout - Visualiser dans une fenêtre à part SELECT POINTS.POINT FROM POINTS GROUP BY POINTS.POINT, POINTS.TYPEPOINT HAVING (((POINTS.TYPEPOINT)=1)) ORDER BY POINTS.POINT;
Absence sur liste : Précure dd'ajout dans la table POINTS en recrodset
La dificulté vient qu'une fois l'opération réalisé, le curseur déroule les 8 positions de la liste et se postionne sur le dernier nécessitant un exc pour se ferme et afficher la bonne valeur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Set rst = CurrentDb.OpenRecordset("POINTS", dbOpenDynaset) rst.AddNew rst.POINT = NewData rst.TYPEPOINT = 1 rst.Update rst.Close Set rst = Nothing Response = acDataErrContinue Me!M9 = NewData Me!M9.RowSource = "SELECT POINTS.POINT FROM POINTS GROUP BY POINTS.POINT, POINTS.TYPEPOINT HAVING (((POINTS.TYPEPOINT)=1)) ORDER BY POINTS.POINT; "
Quelqu'un a t il une idée de se qui se passe. Je joins l'image de l'évenement.
Partager