Bonjour,
J'ai un formulaire avec 2 zones de listes.
La première contient de contenu d'une table.
La deuxième est vide.
Je veux que l'utilisateur puisse transférer tous les items de la première liste à la deuxième en cliquant sur un bouton ou juste un item de la première liste à la deuxième liste en cliquant sur un autre bouton (voir le fichier joint)
Pour transférer tous les items j'utilise ce code-çi:
Mais je ne suis pas capable de faire apparaître le champ "Nom" dans la deuxième colonne de la deuxième liste. Je n'arrive pas à trouver de l'information pertinente sur la méthode "AddItem".
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 Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Set db = CurrentDb() strSQL = "SELECT Code,Nom FROM T_PILOT_MRC;" Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot) Do Until rs.EOF lstPourMAJ.AddItem (rs("Code")) rs.MoveNext Loop rs.Close db.Close
Est-ce que qqun sait comment faire?
Partager