Discussion :

[farios]

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')

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

Merci pour votre aide

[marot_r]

Tu as 1 champs et tu utilise une sélection multiple donc tu vas récupérer la dernière valeur de ta liste quelque soit tes choix.

Aurais-je mal compris ?

A+

[farios]

Bonjour,

Ta réponse plus une nuit de sommeil et mon problème est résolu.

Merci
a +