Liste Deroulante - Pbs De Selection Sur Absence Sur Liste

**com-ace** · 06/09/2006, 16h32

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 :

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;

Limiter liste oui
Absence sur liste : Précure dd'ajout dans la table POINTS en recrodset

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; "

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.
Quelqu'un a t il une idée de se qui se passe. Je joins l'image de l'évenement.

**pgz** · 06/09/2006, 16h37

Bonjour,

Et si au lieu de

Code :

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

1
2
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; "

Tu écrivais

Code :

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