Discussion :

[Shinoda00]

Bonjour à tous,

J'ai un code VBA qui consiste à insérer dans une table "SELECT_DEP" le contenu d'une zone de liste à sélection multiple.

Le code se compose donc de deux parties.
Une première qui consiste à récupérer le contenu de la liste.
Une seconde qui consiste à insérer le contenu de chaque ligne sélectionnée dans la table.

Ce code ci-dessous marche pour la première étape, mais pas pour la seconde.

Est-ce une erreur de définition de variable?
Une erreur dans la ligne contenant la requête SQL?

Merci pour vos réponses.

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
17
18
Private Sub Commande27_Click()
 
Dim varI As Variant
Dim monFiltre As String
Dim strSQL As String
Dim MyDB As DAO.Database
Set MyDB = CurrentDb()
 
If Me.departement.ItemsSelected.Count > 0 Then
For Each varI In Me.departement.ItemsSelected
monFiltre = monFiltre & Chr(34) & Me.departement.Column(0, varI) & Chr(34) & ","
add_dep = Me.departement.Column(0, varI)
strSQL = "INSERT INTO SELECT_DEP(dep) VALUES (""&add_dep&"");"
MsgBox Me.departement.Column(0, varI)
Next varI
monFiltre = Left(monFiltre, Len(monFiltre) - 1)
End If
End Sub

[f-leb]

bonjour,

on dirait qu'il manque des cotes: "

Code :

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

1
2
 
strSQL = "INSERT INTO SELECT_DEP(dep) VALUES (""" & add_dep & """);"

[Shinoda00]

Ce n'est pas un problème de "", add_dep est une variable.
De plus, la requête SQL fonctionne (avec l'assistant Requête Ajout) apparemment.

EDIT: j'ai trouvé!

Voici la ligne à insérer :

Code :

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

DoCmd.RunSQL ("INSERT INTO SELECT_DEP(dep) VALUES (" & add_dep & ");")