Alimenter Listbox

Fermé
bluntz54 Messages postés 2 Date d'inscription mardi 8 avril 2008 Statut Membre Dernière intervention 9 avril 2008 - 9 avril 2008 à 10:30
 amigo - 9 avril 2008 à 13:46
Bonjour,

J'ai ajouté ce bout de code dans mon formulaire qui comporte une liste déroulante (Modifiable16).
Je souhaite ajouter le nom des champs de ma table Table1 à cette liste. Mais cela n'a pas l'air de fonctionner.

Dim Rs As Recordset
Dim i As Integer
Set Rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
For i = 0 To Rs.Fields.Count - 1
MsgBox Rs.Fields(i).Name
Modifiable16.AddItem (i)
Next

Pourriez-vous m'aider svp?

1 réponse

bonjour,

Essaye comme ça

Dim Rs As Recordset
Dim i As Integer
Set Rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
For i = 0 To Rs.Fields.Count - 1
MsgBox Rs.Fields(i).Name
Modifiable16.AddItem Rs.Fields(i).Name
Next

A+.
0