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.