Discussion :

[fodan]

Bonjour à tous
j'aimerai faire une requête ajout spéciale a partir d'une table
Data(nom;prénom;boisson 1; boisson 2 ; boisson 3; boisson 4 .... boisson N)
qui ajouterai vers une table Sortie (nom;prénom;boisson)

Si dans un enregistrement de la table Data il y a 4 boissons
j'aurai 4 lignes dans ma table de sortie

Par exemple
Dupond ; Jean ; coca ; fanta ; sprite

donnerai
Dupond ; Jean ; coca
Dupond ; Jean ; fanta
Dupond ; Jean ; sprite



je sais le faire avec N requêtes mais pas avec une seule requête

merci
Fodan

[NiKoTiNe]

Salut

Je crois que j'ai une solutions à te proposer, pas la plus élégante mais c'est pas ça l'important :

Utilise une requete union, un peu de ce genre la :

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
 
 
SELECT 
        Data.[Nom], Data.[Prénom], Data.[Boisson 1]
FROM DATA
Where (DATA.[Boisson 1] <> Null)
 
UNION SELECT 
         Data.[Nom], Data.[Prénom], Data.[Boisson 2]
FROM DATA
Where (DATA.[Boisson 2] <> Null)
 
' ainsi de suite '
 
UNION SELECT 
         Data.[Nom], Data.[Prénom], Data.[Boisson 67897897]
FROM DATA
Where (DATA.[Boisson 67897897] <> Null);

De cette manière tu devrai avoir la requête que tu cherche. Je n'ai pas testé mais je pense que ça doit fonctionner.

[fodan]

Un grand merci NiKoTiNe pour cette solution !!!
je viens de la tester et ca marche bien
j'obtiens la sélection que je voulais!


pour allez un peu plus loin,
est ce que tu sais si on peut faire une boucle (le champs boisson a 99 occurrences) en mettant un arrêt si le champs est vide (car si boisson N vide alors tout ceux après sont vides) , je ne suis pas une lumière en SQL et VBA

grand merci
Fodan

[NiKoTiNe]

Je ne connais vraiment pas bien le sql mais il ne me semble pas que les boucles soient une solution dans ce langage. Peut-être que quelqu'un d'un peu plus renseigné pourra te répondre...

En vba par contre tout est possible , cet aprem si j'ai un peu de temps, je réflechirai à ton truc.

A plus

[NiKoTiNe]

En gros ca doit donner cela :

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
 
 
' Remplis une table (Fin) en fonction des valeurs contenues dans une autres (Source)'
Function Boisson(Source As String, Fin As String)
    'Definition'
    Dim starttable As Recordset
    Dim endtable As Recordset
    Dim I As Integer, j As Integer, k As Integer
 
    Set starttable = currentdb.OpenRecordset(Source)
    Set endtable = currentdb.OpenRecordset(Fin)
 
    starttable.MoveFirst
    For I = 1 To starttable.RecordCount         'parcourst tous les enregistrement de la table de départ'
 
        k = 0
        j = 1
        Do
            If starttable.Fields("Boisson" & Str(j)) <> Null Then ' quand une boisson existe'
                endtable.AddNew                                   ' créer une nouvelle ligne dans la table de fin'
                endtable.Fields("Nom") = starttable.Fields("Nom") ' la remplir'
                endtable.Fields("Prénom") = startable.Fields("Prénom")
                endtable.Fields("Boisson") = starttable.Fields("Boisson" & Str(j))
                endtable.Update
            Else
                k = 1                                             ' si il n y a plus de boissons on sort de la boucle'
            End If
            j = j + 1
        Loop While k = 0
    starttable.MoveNext
    Next I
End Function

J'ai écrit cela freestyle sans y tester mais l'idée principale doit être bonne, à toi d'adapter le code si tu veux utiliser cette méthode.

[fodan]

Merci NiKoTiNe
je teste ca demain et je te tiens au courant
@+