Discussion :

[laminosd]

Bonjour tout le monde,

j'aimerai si possible dans Access répéter ma ligne de requête selon le nombre (bien sure supérieur à 1) que j'ai dans une colonne de ma table

EXEMPLE

CODE NB
AAA 3
BBB 3
CCC 4

OBTENIR LE RESULTAT

CODE NB_CODE COMPTE
AAA 3 1
AAA 3 2
AAA 3 3
BBB 3 1
BBB 3 2
BBB 3 3
CCC 4 1
CCC 4 2
CCC 4 3
CCC 4 4

MERCI POUR VOTRE AIDE

[nico84]

Bonjour,

Quelle drole d'idée !

Une solution pour cela est de créer une table des entiers (1 seul champ nombre) et de faire la requete sur les 2 tables :

Code :

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

select code, nb, nombre from matable, entiers where nombre<=nb order by code,nombre

J'ai pas testé

[hyperion13]

Salut
Une solution en VBA

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
Private Sub btnBoucle_Click()
Dim dbs As DAO.Database
Dim rstS As DAO.Recordset, rstC As DAO.Recordset
Dim strSql As String
 
Set dbs = CurrentDb
 
strSql = "SELECT * FROM tbl_test"
 
Set rstS = dbs.OpenRecordset(strSql, dbOpenDynaset) ' source
Set rstC = dbs.OpenRecordset("tbl_test_cible", dbOpenDynaset) 'cible
 
If rstS.RecordCount = 0 Then Exit Sub
rstS.MoveLast
rstS.MoveFirst
    Do Until rstS.EOF
        For i = 1 To rstS.Fields("nbre_test")
        rstC.AddNew
        rstC.Fields("code_testC") = rstS.Fields("code_test")
        rstC.Fields("nbre_testC") = rstS.Fields("nbre_test")
        rstC.Fields("cpte_testC") = i
        rstC.Update
        Next i
        rstS.MoveNext
    Loop
End Sub

[laminosd]

Bonjour

merci a vous deux ça marche bien la macro bonne journée