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
| Option Compare Database
Option Explicit
Public Sub BoucheTrous()
Dim rst As Recordset
Dim i As Integer
Dim sSql As String
DoCmd.SetWarnings False
'Purger aAjouter et Resultat
DoCmd.RunSQL "DELETE colonne1 FROM Resultat;"
Set rst = CurrentDb.OpenRecordset("laTable")
Do Until rst.EOF
For i = rst("From") + 1 To rst("To")
sSql = "INSERT INTO Resultat ( colonne1, colonne2, colonne3, [From], [To] ) " _
& "SELECT """ & rst("colonne1") & """ AS Expr1, """ _
& rst("colonne2") & """ AS Expr2, """ _
& rst("colonne3") & """ AS Expr3, """ _
& Format(i, "00") & """ AS Expr4, """ _
& rst("To") & """ AS Expr5;"
DoCmd.RunSQL sSql
Next i
rst.MoveNext
Loop
'Ajouter l'original
sSql = "INSERT INTO Resultat ( colonne1, colonne2, colonne3, [From], [To] ) " _
& "SELECT [LaTable].[colonne1], [LaTable].[colonne2], [LaTable].[colonne3], " _
& "[LaTable].[From], [LaTable].[To] " _
& "FROM LaTable;"
DoCmd.RunSQL sSql
DoCmd.SetWarnings True
End Sub |
Partager