Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access ajout dans combo

ajout dans combo

2 réponses
Avatar
nico
bonjour,
je voudrais ajouter l'ensemble des valeurs d'un champs
dans une combo, mais en vb pour que je puisse faire
des "trucs bizarre" apres.
mon code est le suivant:

rstcat.Open "Select cdcat AS lacat FROM cd ", cn, , ,
adCmdText


Do Until rstcat.EOF Or rstcat.BOF


Me.cat.AddItem (lacat)



rstcat.MoveNext

Loop

(je vous ai pas mis la declaration de connection)
Le probleme est qu'il me revoit 36 valeurs vide a la
place de ce qu'il y a reelement.
Quelqu'un voit le probleme?
merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI [mvp]
bonjour
Me.cat.AddItem rstcat("lacat")
ou rstcat(0) car il n'y a qu'un champ


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"nico" a écrit dans le message de news: c9eb01c3eef8$7a3cf060$
bonjour,
je voudrais ajouter l'ensemble des valeurs d'un champs
dans une combo, mais en vb pour que je puisse faire
des "trucs bizarre" apres.
mon code est le suivant:

rstcat.Open "Select cdcat AS lacat FROM cd ", cn, , ,
adCmdText


Do Until rstcat.EOF Or rstcat.BOF


Me.cat.AddItem (lacat)



rstcat.MoveNext

Loop

(je vous ai pas mis la declaration de connection)
Le probleme est qu'il me revoit 36 valeurs vide a la
place de ce qu'il y a reelement.
Quelqu'un voit le probleme?
merci


Avatar
nico
ca passe, grand merci


-----Message d'origine-----
bonjour
Me.cat.AddItem rstcat("lacat")
ou rstcat(0) car il n'y a qu'un champ


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"nico" a écrit
dans le message de news: c9eb01c3eef8$7a3cf060

$
bonjour,
je voudrais ajouter l'ensemble des valeurs d'un champs
dans une combo, mais en vb pour que je puisse faire
des "trucs bizarre" apres.
mon code est le suivant:

rstcat.Open "Select cdcat AS lacat FROM cd ", cn, , ,
adCmdText


Do Until rstcat.EOF Or rstcat.BOF


Me.cat.AddItem (lacat)



rstcat.MoveNext

Loop

(je vous ai pas mis la declaration de connection)
Le probleme est qu'il me revoit 36 valeurs vide a la
place de ce qu'il y a reelement.
Quelqu'un voit le probleme?
merci



.