récupérer des enregistrements dans une requete séparer par des points virgule ou autre

Question

bonjour je veux a partir d'une requete récupérer tous les enregistrements d'un champs précis et avoir cette info de la maniere suivante : par exemple j'ai mon champs qui se nomme no_avis et le résultat de ma requete me donne les no_avis suivant 0125, 325, 9854 , bien sur comme dans toute bonne requete les données sont une en-dessous de l'autre et moi je voudrais les avoirs une a coté de l'autre comme énuméré dans mon exemple (0125, 325, 9854),,,est-ce possible???

 

merci

Answer 1

Bonjour macgiver

À ma connaissance (je me méfie d'être péremptoire), ce n'est pas possible.
J'ai aussi besoin de ce type de retour, mais je le fais avec du VBA, où c'est relativement facile.

Cdt,
Blaise

(via communitybridge.codeplex.com...)

<macgiver> a écrit dans le message de news: [e-mail]...

bonjour je veux a partir d'une requete récupérer tous les enregistrements d'un champs précis et avoir cette info de la maniere suivante : par exemple j'ai mon champs qui se nomme no_avis et le résultat de ma requete me donne les no_avis suivant 0125, 325, 9854 , bien sur comme dans toute bonne requete les données sont une en-dessous de l'autre et moi je voudrais les avoirs une a coté de l'autre comme énuméré dans mon exemple (0125, 325, 9854),,,est-ce possible???



merci

Answer 2

ok as-tu du code vba pour ca que je pourrais adapter a mes besoins??

 

 

Answer 3

Bonjour,

Il faut référencer (Outils, Références) Microsoft ActiveX Data Objects 2.x Library

Function Liste_Indicatifs(Envoi As Long) As String
    Dim sSql As String, sTemp As String
    Dim Rst As New ADODB.Recordset
    'la requête en SQL
    sSql = "SELECT Tbl_D_Indicatifs.Ind_Indicatif" _
            & " FROM Tbl_D_Indicatifs" _
            & " WHERE Tbl_D_Indicatifs.Env_Id = " & Envoi _
            & " ORDER BY Tbl_D_Indicatifs.Ind_Indicatif;"
    Rst.Open sSql, CurrentProject.Connection, adOpenDynamic
    Do While Not Rst.EOF
        sTemp = sTemp & Rst("Ind_Indicatif") & ", "
        Rst.MoveNext
    Loop
    If sTemp = "" Then
        sTemp = "Pas d'indicatif."
    Else
        sTemp = Left(sTemp, Len(sTemp) - 2)
    End If
    Rst.Close
    Liste_Indicatifs = sTemp
End Function

Cdt,

Blaise