Alimenter Listbox
bluntz54
Messages postés
2
Statut
Membre
-
amigo -
amigo -
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?
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?
Configuration: Windows XP Internet Explorer 6.0
