Discussion :

[faressam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :


Voilà mon code d'insertion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[faressam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

j'ai fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Merci pour vôtre aide.