Discussion :

[The_Super_Steph]

bonjour,

voilà, j'ai voulu utiliser le code suivant, que j'ai trouvé dans la FAQ (dans les codes sources) :

Code :

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

1
2
3
4
5
Private Sub ListeSports_AfterUpdate()
 ListEpreuve.RowSource = "Select [ID_Epreuves],[Epreuve],[IDSport] From T_Epreuves " & _
                          "where IDSport= " & ListeSports & ";"
 ListEpreuve.Requery
End Sub

Or, dans ma bdd, cela ne fonctionne pas.
J'ai évidemment remplacer les noms des champs par ceux de ma base, et j'ai recommencé 4 fois la manip, sans succès.

Pourriez-vous me confirmer que ce code est bien correct ?

Merci beaucoup

[The_Super_Steph]

Au fait, je suis sur Access 2003, j'avais oublié de le préciser

[Invité]

Bonjour

Il y'a une petite erreur de syntaxe, tu devrais écrire :

Code :

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

1
2
ListEpreuve.RowSource = "Select [ID_Epreuves],[Epreuve],[IDSport] From T_Epreuves " & _
                          "where IDSport= '" & me.ListeSports.value & "';"

Je pense que le terme qui est dans ta ListesSports est du texte, donc il faut le mettre entre ', si c'est du numérique rien, et si c'est des dates #.

Cela devrait aller mieux.

Starec

[The_Super_Steph]

Merci beaucoup, M'sieur Starec, en effet, ça marche mieux... merci, merci !