Ouverture d'un recordset en VBA pour effectuer un SELECT

Bonjour
N’arrivant pas à trouver réponse à ma question je me retourne vers vous.

J’ai fait une requête SQL :

Code:

---

SELECT [demande_de_service].[envoi_ds] FROM demande_de_service;

---

Table : demande_de_service
Champ : envoi_ds.

J’aimerais récupérer toute les valeurs de c’est champ et les stocker dans une variable string, j’ai du mal à trouver la syntaxe pour appliquer ma requête dans mon code, pourriez vous m’aider ?
J’ai pensé à cela :

Code:

---

1 2	Dim date_envoi_ds as string Date_envoi_ds = SELECT [demande_de_service].[envoi_ds] FROM demande_de_service;

---

Merci d'avance
Rémy

Salut

Pour récupérer les valeurs d'une requete Select je te conseille d'utiliser les Recordset

Code:

---

1 2 3 4 5 6

Dim rs as recordset   'On créé un recordset qui va contenir le résultat de ta requete 'On peu le voir comme un tableau dont les colonnes sont les champs de ta requete 'Et les lignes correspondent au nombre de résultat set rs = currentdb.openRecordset("SELECT Nom, Prenom FROM TaTable Where ...")

---

et ensuite tu peux traiter les données

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'Si le nombre de résultat est différent de 0 Alors if rs.recordcount <> 0 then 'Tant qu'on a pas parcouru tous les enregisrements While not rs.EOF 'On affiche dans un msgBox la valeur du champ 1 et du champ 2 'les deux façons d'accéder aux valeurs sont 'rs.fields("LeNomDuChamp") 'ou 'rs.fields(LeNuméroDuChampDansLaRequete)   'Ici ça affiche les valeurs de 'Nom' et 'Prenom' msgbox rs.fields("Nom") & rs.fields(1)   'On passe au résultat suivant de la requete rs.moveNext Wend else ' Aucun enregistrement trouvé Endif

---

voilou

Merci de porter attention à ma demande Jimay.

D'apres ce que tu ma dit cela donne ceçi

Code:

---

Set rs = CurrentDb.OpenRecordset("SELECT envoi_ds FROM demande_de_service")

---

Access me mais Incompatibilité de type.
Je me demande si ce n'est pas parce que mon champ est un champ date.

Ensuite le reste de ton code j'ai pas tout compris... c'est pour afficher tout les enregistrements dans plusieurs msgbox ?

Bonjour

Code:

---

Dim rs As DAO.Recordset

---

en ajoutant la référence DAO au projet comme mentionné dans la FAQ

Re,

J'ai commenté un peu mon précédent message.

Mais je t'invite à rechercher dans la FaQ du site pour trouver toutes sortes d'informations sur les recordsets (moi même je ne m'y connais que très peu..)

++

Je vous remerci vous deux pour votre aide et je vous souhaite bon courage pour la suite.

Bonne journée
Cordialement,
Rémy