Bonjour à tous,

Dans un formulaire j'ai 2 zones de liste modifiable (ZDLM), toutes les 2 basées sur requêtes.

Une ZDLM ModeReglement
Source de données :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
SELECT ModeReglement.Cle, ModeReglement.Libelle, ModeReglement.Traite FROM ModeReglement ORDER BY ModeReglement.Libelle;
colonne liée : 1

Une ZDLM CodeBanque
Source de données :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
SELECT Banques.Cle, Banques.NomBanque, Banques.CodeComptable, Banques.CodeJournal FROM Banques ORDER BY Banques.NomBanque;
colonne liée : 1


Je voudrais que lorsque l'utilisateur a sélectionné la valeur "Caisse" dans la ZDLM ModeReglement, cela sélectionne la valeur "Caisse" dans la ZDLM CodeBanque

Ca paraît tout simple...je cherche dans la FAQ

et je trouve ce code de Tofalu
http://access.developpez.com/faq/?page=zdl#SelLignezdl

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Function Selectionner(Liste As ListBox, Colonne As Integer, Chercher As String)
Dim i As Integer
Dim Trouve As Boolean
For i = 0 To Liste.ListCount - 1
If Liste.Column(Colonne, i) = Chercher And Not Trouve Then
Me.Liste.Selected(i) = True
If Liste.MultiSelect = 0 Then Trouve = True
Else
Me.Liste.Selected(i) = False
End If
Next i
End Function

Mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub ModeReglement_AfterUpdate()
'01/02/08
' caisse comme mode de reglement => caisse comme "banque" pour la compta (compte 530)
If Me!ModeReglement.Column(1) = "Caisse" Then
    Me!CodeBanque.Value = "Caisse"
End If
End Sub
avec ce code il ne se passe rien !
j'ai essayé un peu tout .itemdata(1) ...etc...



avec l'appel de fonction de Toofalu
Quand je veux compiler le code de Tofalu, j'ai le message d'erreur suivant :
Erreur de compilation, Membre de méthode ou données introuvable

Pouvez vous me dire si ce code fonctionne :
- a) avec des zones de liste modifiable (ZDLM),
- b) sous Access97 Sr2b
- c) où est le pb dans mon code VBA !

Merci beaucoup

fevec