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
| Private Sub Command13_Click()
Dim db As DAO.Database: Set db = CurrentDb
Dim rstS As DAO.Recordset, rstD As DAO.Recordset
Dim strSQL As String
Dim vaColonne_1() As Variant
Dim i As Integer
strSQL = "SELECT TaSourceADecouper.[F19] FROM TaSourceADecouper;"
Set rstS = db.OpenRecordset(strSQL)
strSQL = "SELECT TaTableResultat.Colonne_1, TaTableResultat.Colonne_2, TaTableResultat.Colonne_3, TaTableResultat.Colonne_4, TaTableResultat.Colonne_5, TaTableResultat.Colonne_6, TaTableResultat.Colonne_7, TaTableResultat.Colonne_8, TaTableResultat.Colonne_9, TaTableResultat.Colonne_10, TaTableResultat.Colonne_11, TaTableResultat.Colonne_12 FROM TaTableResultat;"
Set rstD = db.OpenRecordset(strSQL)
While rstS.EOF = False
vaColone_1 = Split(rstS("F19") & "", ",")
rstD.AddNew
For i = LBound(vaColonne_1) To UBound(vaColonne_1)
rstD.Fields("Colonne_" & i + 1) = vaColonne_1(i)
Next i
rstD.Update
rstS.MoveNext
Wend
rstS.Close
rstD.Close
Set rstS = Nothing
Set rstD = Nothing
Set db = Nothing
End Sub |
Partager