Discussion :

[debdev]

Bonjour,

J'ai vu plein de posts identiques à mon problème et pourtant je n'arrive pas à faire fonctionner le code.

J'ai une table table1 avec 2 champs: champ1 et champ2.

J'ai un formulaire avec 2 zones de listes: zdl1 et zdl2.

Le but est de mettre à jour zdl2 en fonction de ce que l'utilisateur a choisi dans zdl1.



Dans la propriété "contenu" de zdl1, j'ai mis:

Code :

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

SELECT DISTINCT table1.champ1 FROM table1 ORDER BY champ1;

=> ok



Dans la propriété "contenu" de zdl2, j'ai mis:

Code :

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

SELECT DISTINCT (table1.champ2) FROM table1 WHERE table1.champ1 =[Forms]![le_nom_de_mon_formulaire].zdl1 ORDER BY table1.champ2;

=> pas de message d'erreur




Dans la propriété événement after_update de zdl1, j'ai mis:

Code :

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

1
2
3
Private Sub zdl1_AfterUpdate()
    zdl2.Requery
End Sub

=> rien ne se passe, rien n'apparait dans zdl2


Qu'ai-je mal fait ?

Merci pour votre aide

[debdev]

Bonjour,

J'ai résolu mon problème en passant par du code VBA.

Je me demande si ce que j'ai écrit dans mon premier post n'est pas valable uniquement pour des zones de liste déroulantes (j'ai fait le test et ça marche bien) et non valable pour les autres zones de liste.

En tout cas, via VBA, j'obtiens bien ce que je veux.

Bonne journée