[requête]pb de créer une nouvelle requête [Résolu]

[LanTi07]

Bonjour à tous,
voilà je travaille sous ACCESS 2003, j'ai une table
---------------------------
objet quantité date
a 3 01/01/2001
b 2 01/02/2002
c 3 01/03/2003
a 2 01/04/2002
---------------------------
je voudrai sortir une requete comme
------------------
objet date
a 01/01/2001
a 01/01/2001
a 01/01/2001
b 01/02/2002
b 01/02/2002
c 01/03/2003
c 01/03/2003
c 01/03/2003
a 01/04/2002
a 01/04/2002
------------------
est-ce que c'est possible de le réaliser à l'aide d'une requete ou bien un code VBA
merci

[Pierre Fauconnier]

Bonjour

A ma connaissance, il n'y a pas moyen de créer une requête pour ce genre de résultat.

Il faut passer par du VBA et une table temporaire. Le principe est d'itérer sur les enregistrements de la table source, d'extraire la valeur du champ Quantite et d'ajouter les données en boucle dans la table temporaire

Voici un code qui permet cela.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Table()
    Dim rsSource As New ADODB.Recordset
    Dim rsCible As New ADODB.Recordset
    Dim i As Integer
 
    ' Vidange de la table
    CurrentProject.Connection.Execute "delete from tabletemp"
 
    rsCible.Open "select * from tabletemp", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    Set rsSource = CurrentProject.Connection.Execute("select * from table1")
    Do While Not rsSource.EOF
        For i = 1 To rsSource!quantite
                rsCible.AddNew
                With rsCible
                    !Objet = rsSource!Objet
                    !Date = rsSource!Date
                    .Update
                End With
        Next
        rsSource.MoveNext
    Loop
End Sub

Ok?

[LanTi07]

oui, ça marche, merci Pierre Fauconnier t'es super fort