Insertion Multiple dans une Table

Bonjour j'ai une Zone
de Texte,
j'ai mis dans la source de cette zone : (elle m'affiche les date de la T1)

Code:

---

SELECT T1.date FROM T1;

---

Puis j'ai codé une fonction qui insére chaque date choisie dans la ZONE de texte dans la T2,

celà Marche bien :yaisse2:

Certes Champ par champ, je dois choisir champ par champ,
mais j'ai activé l'option selection multiple, et là il y'a plus d'insertion
il m'insére que des lignes vides : :bug:


Voilà mon code d'insertion :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim insSql as String ' 2 Insérer les valeurs de ZONE TEXTE ' Vérifier la date n'est pas déjà Attribuer varTest = DLookup("[Newdate]", "T2", "[Newdate] = '" & Me!ZONETEXTE.Value & "'") If varTest = ZONETEXTE.Value Then MsgBox " '" & Me!ZONETEXTE.Value & "' déja présente ", vbCritical Else 'Ajout Des Enregistrements Dans La Table "T2" insSql = "INSERT INTO T2 ( Newdate ) " insSql = insSql & "SELECT '" & Me!ZONETEXTE.Value & "';" CurrentDb.Execute (insSql) End If

---

Merci de me conseiller une solution car j'ai pensé à tous pour contourner ce problème, mais je ne sais absolument pas comment faire autrement.

si tu fais une sélection multiple, c'est pas une zone de texte mais une zone de liste.

pour boucler sur tes éléments sélectionnés, il faut que tu fasse un truc dans ce genre :

Code:

---

1 2 3 4 5 6

'on ajoute chaque element selectionné For i = 0 To Me.ta_liste.ItemsSelected.Count - 1 sql = "insert into T2 ( Newdate ) values ('" & Me.ta_liste.ItemData(Me.ta_liste.ItemsSelected(i)) & "')" CurrentDb.Execute sql Next i

---

Citation:

---

Envoyé par Taoueret

si tu fais une sélection multiple, c'est pas une zone de texte mais une zone de liste.

pour boucler sur tes éléments sélectionnés, il faut que tu fasse un truc dans ce genre :

Code:

---

1 2 3 4 5 6

'on ajoute chaque element selectionné For i = 0 To Me.ta_liste.ItemsSelected.Count - 1 sql = "insert into T2 ( Newdate ) values ('" & Me.ta_liste.ItemData(Me.ta_liste.ItemsSelected(i)) & "')" CurrentDb.Execute sql Next i

---

---

ça n'a pas marché :mrgreen:

j'ai fait ceci :

Code:

---

1 2 3 4 5 6 7 8

For i = 0 To Me.Liste0.ItemsSelected.Count - 1   insSql = "INSERT INTO T2 ( Newdate ) values('" & Me.Liste0.ItemData(Me.Liste0.ItemsSelected(i)) & "')"   CurrentDb.Execute (insSql) Next i End If

---

Et ma liste était déja une liste et non une zone de texte comme j'avais dit :oops:
Merci pour vôtre aide.