Explications :
Cette source se sert dune 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 quon 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 nest pas la fin des enregistrements
Do While req_ent.EOF = False
ajouter dans la combo lenregistrement en cours
combo_entite.AddItem req_ent!nom_entité
passer à lenregistrement suivant
req_ent.MoveNext
refaire
Loop
sinon
Else
mettre dans la zone de texte un message qui signale quil ny a pas
denregistrements
combo_entite.Text = "pas encore de rubriques enregistrées"
fin si
End If
Conclusion :
noubliez pas la référence DAO 3.6 ;-)
Biz
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.