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
| Sub toto()
Dim Conn As ADODB.Connection
Dim RS As New ADODB.Recordset
Dim TabComm As Variant, TabVisites As Variant, i As Integer
Dim NumOrdre As Integer, Visite As Date, Comm As String
Dim SQL As String
Set Conn = CurrentProject.Connection
RS.Open "SELECT [N° d'ordre], Commentaires, Suite FROM [Fiches Clients]", Conn, adOpenForwardOnly, adLockReadOnly
While Not RS.EOF
NumOrdre = RS("N° d'ordre").Value
TabVisites = Split(RS("Suite").Value, ", ")
TabComm = Split(RS("Commentaires").Value, vbLf)
' Nota : vbLf = saut de ligne, vbCr = retour chariot
' vbCrLf = vbCr suivi de vbLf, souvent utilisé par Windows
' je suppose qu'il y a tj autant de visites que de commentaires
For i = LBound(TabVisites) To UBound(TabVisites)
Visite = TabVisites(i) ' attention aux formats de date
Comm = TabComm(i) ' attention aux guillemets dans tes commentaires
SQL = "INSERT INTO Visites ([N° d'ordre], DateVisite, CommVisite) "
SQL = SQL & "VALUES (" & NumOrdre & ", " & Visite & ", " & Comm & ") "
Conn.Execute SQL
Next
RS.MoveNext
Wend
End Sub |
Partager