Discussion :

[vatounet]

Salut,

Dans les sources de access developpez.com, j'ai trouvé un petit code qui, comme sont titre l'indique, "Filtre une liste à partir du choix fait dans une autre".

Je l'ai adapté à mon cas, avec des combo box et je ne parviens à corriger mon erreur qui dit : "Type de donnée incompatible dans l'expression du critere"

Voici le code

Code :

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

1
2
3
4
5
6
 
Private Sub cmb_station_AfterUpdate()
cmb_riv.RowSource = "Select NOM_RIV From STATIONS_MESURES " & _
                          "where CODE_STATION = " & cmb_station & ";"
cmb_riv.Requery
End Sub

cmb_station selectionne code_station dans table stations_mesures
cmb_riv selectionne nom_riv dans table stations_mesures, par la requete nommé cmb_riv

D'avance merci pour les conseils

Bonne journée

Fred

[cafeine]

Hello,
1- as-tu vérifié que la colonne liée de la première liste est bien le code station ?
2- le code station est il de type numérique ou texte ?
si texte mettre entre des quotes (')

[vatounet]

Salut cafeine,

J'ai bien vérifier tous les points que tu me suggéres, sans succés et toujours avec le même message d'erreur.

Vu que NOM_RIV et CODE_STATION sont effectivement du texte, le code devient :

Code :

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

1
2
3
4
5
6
 
Private Sub cmb_station_AfterUpdate()
cmb_riv.RowSource = "Select 'NOM_RIV' From STATIONS_MESURES " & _
                          "where 'CODE_STATION' = " & cmb_station & ";"
cmb_riv.Requery
End Sub

[Tofalu]

Code :

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

1
2
3
4
5
Private Sub cmb_station_AfterUpdate() 
cmb_riv.RowSource = "Select NOM_RIV From STATIONS_MESURES " & _ 
                          "where CODE_STATION = '" & cmb_station & "';" 
cmb_riv.Requery 
End Sub

les quotes sont à mettre autour des valeurs pas des champs

[vatounet]

Sa marche

Forcement, quand on sait, c'est mieux et sa marche...

Merci beaucoup

Bonne fin de journée

Fred