Remplir une combobox avec un table Access

Bonjour,

J'ai cherché ma réponse dans de nombreuses FAQ et tuto mais n'est rien trouvé d'assez proche de ce que je souhaite faire.

Je souhaite remplir une combobox avec le resultat d'une requête passée sur une base de donnée Access. J'ai parfaitement réussis à remplir une combobox avec le code trouvé dans les ressources (Source dvp) mais ce code remplis la première combo trouvé.

J'aimerais si quelqu'un a, un moyen simple de définir une combobox précise, dans mon cas je l'ai appelé "cboCustomers".

Voila ca que j'ai comme code actuelement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub buUpdateCbo_Click() Dim Database As DAO.Database Dim RecSet As DAO.Recordset   Set Database = DAO.OpenDatabase(ThisWorkbook.Path & "\Database.mdb", False, False) Set RecSet = Database.OpenRecordset("SELECT cu_Name FROM tbl_Customers", DAO.dbOpenSnapshot)   'Ici le code de remplissage   RecSet.Close Database.Close Set RecSet = Nothing Set Database = Nothing End Sub

---

J'ai tout essayé mais je n'arrive qu'à des erreur "Object required", "Type missmatch" ...

Merci d'avance,

Alvaten

Citation:

---

J'ai tout essayé mais je n'arrive qu'à des erreur "Object required", "Type missmatch" ...

---

Je ne suis pas d'accord.

La question que t'as posé est récurrente sur le forum, et la réponse aussi.

Ton problème est simple :

Tu veux remplir une combobox avec le résultat d'une requête qui est stocké dans un recordset.

réponse :

Code:

---

Nom_dela_combo . AddItem Ce_que_tu_veu_mettre

---

Nom_dela_combo ---> cboCustomers

Ce_que_tu_veu_mettre ---> c'est le resultat de la requête i.e les enregistrements du recordset.

Il te suffit donc de boucler sur ton recordset que t'as nommé "RecSet" et alimenter ta combo par des AddItem

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'Si des enregistrements correspondent à la requête alors If RecSet.RecordCount > 0 Then 'se placer sur le premier enregistrement RecSet.MoveFirst 'Tant que ce n'est pas la fin des enregistrements Do While RecSet.EOF = False 'ajouter dans la combo l'enregistrement en cours cboCustomers.AddItem RecSet!cu_Name 'passer à l'enregistrement suivant RecSet.MoveNext 'refaire Loop 'sinon Else 'mettre dans la zone de texte un message qui signale qu'il n'y a pas 'd 'enregistrements cboCustomers.Text = "pas encore de rubriques enregistrées" 'fin si End If

---

Voilà à toi de jouer :D

Merci de ton aide.

En fait j'avais déja testé un code similaire. Je me suis rendu compte que ma combobox était un "Form Controls" et que c'était la source de mes messages d'erreurs.