Discussion :

[Alvaten]

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 :

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

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

[casavba]

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 :

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

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 :

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
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

[Alvaten]

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.