0/5 (7 avis)
Snippet vu 17 122 fois - Téléchargée 28 fois
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
27 avril 2009 à 10:47
j'ai utilisé cette méthode pour me connecter à une base et remplir une liste.
j'ai affecté cette fonction a l'action ComboBox1_DropButtonClick() qui se declenche lors du clic sur la petite fleche de la liste.
Le soucis est qu'a chaque clic sur la liste il remet les elements dans la liste donc je me retourve avec des doubles, des triples, etc...
Si je mets ComboBox1.Clear au debut de la fonction je n'arrive plus a selectionner dans la liste.
Si qqn possede une solution.
Merci d'avance
24 mars 2009 à 12:39
3 mai 2007 à 13:44
je suis très content d'avoir cette source car elle va m'aider a faire un travail qui m'a été demandé. je viens de prendre la source en cas de bug je vais pas tarder a faire un message.
Merci a toous!
Mais j'ai un autre problème mais après avoir essayé la source, je vais vous le dire!
Bye
18 déc. 2006 à 11:11
18 mai 2004 à 15:19
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.