Remplir une combo box avec une table (dao)

Contenu du snippet

Explications :
Cette source se sert d’une base de données Access et la manipule grâce à la DAO. Elle permet de remplir une Combo Box avec une table de la source, suite à une requête sur cette table.
La combo est de style 2, c'est-à-dire qu’on ne pourra pas saisir dans la zone de texte, mais seulement faire un choix dans la liste déroulante.

Composants et propriétés :
Combobox (name = choix_entite - style = 2)

Source / Exemple :


‘déclarations
‘de la base
dim db as dao.database
‘de la requête
dim rq_ent as dao.recordset
‘initialisations
‘de la base
set db = opendatabase (“chemin de la base”)
‘de la requête qui selectionne les noms des entités
Set req_ent = db.OpenRecordset("select nom_entité from entite")
‘Si des enregistrements correspondent à la requête alors
If req_ent.RecordCount > 0 Then
    ‘se placer sur le premier enregistrement
    req_ent.MoveFirst
    ‘Tant que ce n’est pas la fin des enregistrements
    Do While req_ent.EOF = False
        ‘ajouter dans la combo l’enregistrement en cours
        combo_entite.AddItem req_ent!nom_entité
        ‘passer à l’enregistrement suivant
        req_ent.MoveNext
        ‘refaire
    Loop
‘sinon
Else
    ‘mettre dans la zone de texte un message qui signale qu’il n’y a pas         
     d’enregistrements
    combo_entite.Text = "pas encore de rubriques enregistrées"
‘fin si
End If

Conclusion :


n’oubliez pas la référence DAO 3.6 ;-)
Biz

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.