Combobox remplie grace a Access

Question

Bonjour à tous,

Je suis débutant en VB et Access.
Je voudrais savoir deux choses:
- comment remplir une combobox avec  des données provenant d'une base access?
- Lier une deuxième combo (ou listbox) en fonction du choix dans la première. Comme la création de listes sous excel.

Merci d'avance.

cs_Orohena · Answer

Bonjour

Pour initialiser une combobox, utilise la propriété RowSource avec une liste de valeurs séparées par des virgules. Utilise la méthode Refresh pour actualiser les données de ton formulaire.

Dim mesValeurs As String
mesValeurs = "Lundi;Mardi;Mercredi;Jeudi;Vendredi;Samedi;Dimanche"
maCombo.RowSource = mesValeurs
Me.Refresh

Apparemment, tu veux remplir à partir d'une table. Il suffit donc de lire la table maTable et de créer la variable mesValeurs à partir des données du champ monChamp

Dim dbs As Database 
Dim rst As RecordSet
Dim mesValeurs As String
mesValeurs = ""
Set dbs = CurrentDb                                               ' ouvre la base de données
Set rst = dbs.OpenRecordset("maTable", _
    dbOpenDynaset)                                                ' ouvre la table maTable
Do Until rst.EOF
   mesValeurs = mesValeurs & ";" & rst!monChamp  ' concatène le champ monChamp dans mesValeurs
   rst.MoveNext
Loop
rst.Close                                                                ' Ferme la table
dbs.Close                                                              ' Ferme la base de données
maCombo.RowSource = Mid(mesValeurs,2)             ' charge le combobox en éliminant le 1er point-virgule
Me.Refresh                                                            ' réactualise les données du formulaire

Amicalement

Combobox remplie grace a Access

1 réponse

Votre réponse

Discussions similaires