Discussion :

[albayt]

Bonjour,

J’ai une base constituée de 5 tables liées comme dans la (miniature 1).

J’ai créé une requête qui me donne pour chaque voyageur, les hôtels qu’il a pris ainsi que le détail de son vol (voir miniature 2).

Etant donné que cette requête est destinée à être exploitée par une application externe, il faut qu’il y ait une seule ligne d’informations par voyageur, c’est-à-dire :

Au lieu d’avoir
Voyageur 1 | hotel 1 | no vol 1
Voyageur 1 | hotel 1 | no vol 2
Voyageur 1 | hotel 1 | no vol 3
Voyageur 1 | hotel 1 | no vol 4
Voyageur 1 | hotel 2 | no vol 1
Voyageur 1 | hotel 2 | no vol 2
Voyageur 1 | hotel 2 | no vol 3
Voyageur 1 | hotel 2 | no vol 4

J’aurai_____________
Voyageur 1 | hotel 1, hotel 2 | no vol 1, no vol 2, no vol 3, no vol 4

Comment y parvenir ?

Merci d’avance

[jimbolion]

Albayt bonsoir,

Solution utiliser transform et pivot dans ta requête

Bonne soirée

JimBolion

[jimbolion]

Albayt,

et cette discussion ou Robert fait encore étalage de ses compétences :

http://www.developpez.net/forums/d13...ire-reporting/

@++

JimboLion

[albayt]

Bonsoir,

Merci pour votre réponse. Toutefois, il me semble que le PIVOT n'est pas adapté à mon cas.

En fait, je ne souhaite pas avoir comme résultat de la requête

Voyageur | Hotel 1 | Hotel 2 | Hotel 3

Je veux un résultat concaténé par voyageur

Voyageur | Hotels
Dupond | Dubai premiere, Abu dhabi beach, etc.

Pourriez-vous m'expliquer comment dois-je procéder ?
Merci

[Robert1957]

Bonjour albayt, Jean-Marie,

Merci Jean-Marie. Désolé albayt je ne vois pas comment c'est possible dans une requête. De toute évidence la requête que tu as fait te donne des doublons. De plus il n'y aura jamais le même nombre de champs (un voyage avec une escale/un voyage avec trois escales).

Ce que je vois qui pourrait faire ton bonheur est de créer une nouvelle table dans laquelle tu insérerais les données sous la forme que tu veux. La clé de cette table serait "RefVoyage" + "RefClient".
RefVoyage/clé composée-numérique
RefClient/clé composée-numérique
NomVoyageur/Texte/
Hotel/Texte
Vol/Texte

Tu peuples cette table à l'aide de code dans un formulaire de ton application qui peut te fournir la clé RefVoyage et RefClient. Disons un bouton btnRemplirTable. Avec le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub btnRemplirTable_Click()
 
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rst As DAO.Recordset
    Dim strSQL As String, strNomClient As String, strHotel As String, strVol As String
    strHotel = ""
    strVol = ""
    'Récupérer le nom et le prénom
    strSQL = "SELECT Clients.Nom, Clients.Prenom FROM Voyages INNER JOIN (Clients INNER JOIN Inscriptions ON Clients.RefClt = Inscriptions.RefClt) ON Voyages.RefVoyage = Inscriptions.RefPack " _
    & "WHERE (((Clients.RefClt)=" & Me.RefClient & ") AND ((Voyages.RefVoyage)=" & Me.RefVoyage & "));"
    Set rst = db.OpenRecordset(strSQL)
    If rst.EOF = False Then
        strNomClient = rst("Nom") & " " & rst("Prenom")
    Else
        'Ici tu pourrais mettre un message d'erreur disant que le client n'est pas trouvé
        rst.Close
        Set rst = Nothing
        Set db = Nothing
        Exit Sub
    End If
    rst.Close
    Set rst = Nothing
    'Récupérer les hotels et concaténer
    strSQL = "SELECT Hebergement.Hotel FROM Hebergement WHERE (((Hebergement.RefVoyage)=" & Me.RefVoyage & "));"
    Set rst = db.OpenRecordset(strSQL)
    While rst.EOF = False
        If strHotel = "" Then
            strHotel = rst("Hotel")
        Else
            strHotel = strHotel & ", " & rst("Hotel")
        End If
        rst.MoveNext
    Wend
    rst.Close
    Set rst = Nothing
    'Récupérer les vols et concaténer
    strSQL = "SELECT Vols.noVol FROM Vols WHERE (((Vols.RefVoyage)=" & Me.RefVoyage & "));"
    Set rst = db.OpenRecordset(strSQL)
    While rst.EOF = False
        If strVol = "" Then
            strVol = rst("noVol")
        Else
            strVol = strVol & ", " & rst("noVol")
        End If
        rst.MoveNext
    Wend
    rst.Close
    Set rst = Nothing
    Set db = Nothing
    'Ici on enregistre dans la table
    strSQL = "INSERT INTO TaTable (RefVoyage, RefClient, NomVoyageur, Hotel, Vol) " _
    & "VALUES (" & Me.RefVoyage & ", " & Me.RefClient & ", " & strNomClient & ", " & strHotel & ", " & strVol & ");)"
    DoCmd.RunSQL strSQL
 
End Sub

Si tu veux peupler ta table par voyage, il faudrait faire une boucle de plus sur les clients associés à ce voyage.

J'espère que ça peut t'aider même si ce n'est pas exactement ce que tu souhaitais.

Bonne journée

[albayt]

Merci beaucoup Robert pour ton temps,

Je pense qu'il y a moyen de parvenir à une solution avec les analyses croisées "Pivot" et ce, en allant par étape mais à condition de pouvoir "concatener" des champs dans les requêtes croisées chose que je n'ai pas su faire.

Comment faire pour concatener les valeurs d'une requête croisée dans un seul champ (voir miniature) ?

Merci

[albayt]

Bonsoir tout le monde,

J'ai trouvé la solution qui répond 100% au besoin sans aucun bricolage dans un tuto sur le forum intitulé "Les meilleures sources Access".

Tous les détails sont ici sous le titre Concaténer plusieurs enregistrements dans une seule colonne

C'est vraiment merveilleux!

Merci à vous