Discussion :

[Renardo]

Bonjour
J'ai une liste de choix multiple avec une seule colonne avec comme enregistrements
A
B
C
D
Dans une table j'ai les enregistrements
B
D
A l'ouverture du form je voudrais que les enregistrement se trouvant dans la table (B et D) soit souligné dans ma liste de choix
merci d'avance pour votre aide

[LedZeppII]

Bonjour,

je ne sais pas si c'est exactement ce que tu veux, mais voici un exemple avec la base COMPTOIR.mdb.

Dans le formulaire "Clients" j'ajoute une zone de liste à sélection multiple ayant trois colonnes.
Nom : lstEmployes
source:

Code :

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

SELECT [N° employé], [Nom], [Prénom] FROM Employés;

colonne liée = 1
sélection multiple = simple

Dans l'évenement "sur activation" du formulaire je mets

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Current()
Dim i As Integer, strIdClient As String, strIdEmploye As Long
Dim strCritere As String
 
strIdClient = Nz(Me.Code_client)
For i = 0 To Me.lstEmployes.ListCount - 1
    strIdEmploye = Me.lstEmployes.Column(0, i)
    strCritere = "[Code client]='" & strIdClient & "' AND [N° employé]=" & strIdEmploye
    If IsNull(DLookup("[Code Client]", "Commandes", strCritere)) Then
       Me.lstEmployes.Selected(i) = False
    Else
       Me.lstEmployes.Selected(i) = True
    End If
Next
End Sub

Lorsque je fais défiler les clients, ne sont sélectionnés dans la liste, que les employés ayant traité une commande pour le client de l'enregistrement en cours.

A+

[Renardo]

Merci pour ton aide
A la lecture de ton code je pense que sa devrait etre bon je vais tester cela demain a tete reposé

[Renardo]

Bonjour
Merci encore pour ton aide LedZeppII apres avoir transformé ton code pour mes besoin perso sa marche nickel
bon weekend a toi et bonne fête de fin d'année