Comment remplir une combo box avec un recordset ?

Comment remplir une combo box avec un recordset ? - VB/VBA/VBS - Programmation

Marsh Posté le 23-06-2004 à 11:37:55    

Voilà la question est dans le titre.
En fait je ne peux pas, pour certaines raisons de traitement de données, mettre un rowsource et une requete.
Je suis obligé de passer par un recordset et de traiter les données.
Alors si vous savez comment la remplir directement avec ce recordset merci beaucoup !

Reply

Marsh Posté le 23-06-2004 à 11:37:55   

Reply

Marsh Posté le 23-06-2004 à 12:20:48    

Il faut boucler sur tous les enregistrements du recordset et les ajouter à la combo.
do while not rs.eof
  MaCombo.AddItem rs.fields("Champ1" )
  rs.movenext
loop
 


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 23-06-2004 à 12:33:42    

J'avais déja vu cette méthode mais elle n'existe pas dans Access 2000, du moins sur mon poste.
Faut-il inclure une autre bibiliothèque ?

Reply

Marsh Posté le 24-06-2004 à 11:23:11    

Je tiens à préciser que ce n'est pas l'utilisation du rowsource mais bien la combinaison rowsource + requete.
En fait il me faut trouver un moyen de contourner ça et de rentrer les éléments qu'il me faut car il faut que je leur applique un traitement

Reply

Marsh Posté le 24-06-2004 à 11:31:52    

Dans ta question, tu parles d'un recordset. Ce recordset, il est rempli? Tu y a acces ? Parce que si oui, ma méthode fonctionne. Alors precise ton besoin.


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 24-06-2004 à 13:52:52    

ATTENTION j'ai eu aussi un problème de méthode auquel je ne pouvais pas accéder pour cela vous allez en visual basic
puis (pour la version anglaise) vous cliquer sur tools->référence et ajouter la bibliothèque voulu (par ex pour moi je n'avais pas le type database j'ai alors ajouter la bibliothèque microsoft activeX Data Objects Recordset 2.7) et la oooo magie j'avais ce que je voulais...
en espérant t'avoir aidé
by

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed