1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Dim t As Variant, leSQL As String
Dim id_of As Long, id_tache As Long, i As Long
Dim dt_debut As Date, dt_fin As Date
t = Array(2, 3, 5, 7) ' tableau des tâches 2, 3, 5, 7
id_of = 21
dt_debut = #3/27/2025#: dt_fin = #3/27/2025#
' parcours des id(s) des tâches
For i = LBound(t) To UBound(t)
id_tache = t(i)
leSQL = "INSERT INTO TABLE_TACHES_OF (ID_OF, REF_TACHE, DATE_DEBUT, DATE_FIN, STATUT) " & _
"VALUES (" & id_of & "," & id_tache & ",#" & Format(dt_debut, "mm/dd/yyyy") & "#,#" & Format(dt_fin, "mm/dd/yyyy") & "#,'En attente');"
' exécution de la requête insertion (id_of ,id_tache,date_deb, date_fin, statut) -> TABLE_TACHES_OF
' CurrentDb.Execute leSQL, dbFailOnError ' sous Access
Execute_SQL Cnn:=Cnn1, _
StrSQL:=leSQL, _
ActionSiErreur:=IgnorerErreur ' sous Excel (d'après le tuto)
Next i |
