Bonjour
Je sélectionne un ou plusieurs champs dans ma zone de liste ('LstCategorie') où j'ai sélectionné 'Sélection multiple' simple.
Lorsqu'un champs est selectionné ('CatCode'), je veux mettre à jour un autre champs de la même table ('CatSelect' = yes)
Voici mon code qui ne fonctionne pas ('CatSelect' garde la valeur qu'il avait au départ 'No')
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Private Sub LstCategorie_Click() Dim i As Integer Dim Db As DAO.Database Set Db = CurrentDb For i = 0 To LstCategorie.ListCount - 1 If LstCategorie.Selected(i) Then Db.Execute "UPDATE Categories SET CatSelect=Yes WHERE CatCode=" & _ Chr(34) & LstCategorie.Column(0, i) & Chr(34) Else Db.Execute "UPDATE Categories SET CatSelect=No WHERE CatCode=" & _ Chr(34) & LstCategorie.Column(0, i) & Chr(34) End If Next i End Sub
Partager