Discussion :

[Sofie109]

Bonjour,

J'ai un problème qui est le suivant:

Dans une zone de liste j'ai une série de nom. Je peux en selectionner plusieurs à la fois. J'aimerais en cliquant sur un bouton que les noms que j'ai selectionné s'affichent dans une table.

Voici le début de mon code, mais il ne marche pas :

Avec : CmdCreer --> Un bouton
ListePresta --> Le nom de la zone de liste
Presta --> Le nom de la table où je veux mettre les noms de la liste box selectionnés.
Code --> Le champs de ma table où doivent être mis les nom

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CmdCreer_Click()
 
For Each a In ListePresta.ItemsSelected
   codepresta = ListePresta.ItemData(a)
   DoCmd.RunSQL "Insert into Presta(code)select""codepresta"""
 
Next
 
End Sub

Merci de votre aide

[Heureux-oli]

Je suppose que c'est pour ajouter une liste dans une table qui possède une relation.

Dans le code que tu nous donnes, tu ne fait qu'ajouter les choix faits.
Si tu as une relation dans ta DB avec une ou plusieurs tables, les enregistrement ne vont pas s'ajouter puisqu'il manque quelque chose.

[helas]

ceci fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub cmdCreer_Click()
 
 For Each A In ListePresta.ItemsSelected
   codepresta = ListePresta.ItemData(A)
   DoCmd.RunSQL "Insert into Presta(code) select " & codepresta
 Next
 
End Sub

[Sofie109]

En fait la table qui contiendra les noms sélectionnés dans la zone de liste est une table qui me servira ensuite pour faire plusieurs requête.

Le problème dans mon code c'est ce qui est en rouge :

1 For Each a In ListePresta.ItemsSelected
2 codepresta = ListePresta.ItemData(a)
3 DoCmd.RunSQL "Insert into Presta(code)select 'codepresta'"

Next

A la ligne 2, codepresta me donne bien le nom des prestataires selectionnés mais dans la 3ème ligne le codepresta en rouge ne me donne pas le nom des prestataire. Visual basic me met dans la table 'codepresta'...

[Sofie109]

ceci fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub cmdCreer_Click()
 
 For Each A In ListePresta.ItemsSelected
   codepresta = ListePresta.ItemData(A)
   DoCmd.RunSQL "Insert into Presta(code) select " & codepresta
 Next
 
End Sub

Avec ce code il m'affiche une msgBox avec le nom selectionné et un champs pour rentrer une valeur soit même mais ne me l'inscrit pas directement dans la table presta... J'avais déjà essayé

[Sofie109]

En fait j'ai l'impression que dans le code Sql il ne reconnaît pas le codepresta comme la valeur selectionnée dans la zone de liste...

[Heureux-oli]

Et si tu terminais l'instruction SQL par

Code :

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

& ";"

[Sofie109]

En mettant le point virgule ici :

Private Sub cmdCreer_Click()

For Each A In ListePresta.ItemsSelected
codepresta = ListePresta.ItemData(A)
DoCmd.RunSQL "Insert into Presta(code) select ; " & codepresta

Next

End Sub

Ca me met l'erreur : Erreur de syntaxe dans l'instruction INSERT INTO

Et en mettant le point virgule ici :

Private Sub cmdCreer_Click()

For Each A In ListePresta.ItemsSelected
codepresta = ListePresta.ItemData(A)
DoCmd.RunSQL "Insert into Presta(code) select" & ; codepresta

Next

End Sub

Ca me met l'erreur : Erreur de compilation Attendu : Expression



....

[Mahefasoa]

Salut Sofie,

En mettant le point virgule ici :

Private Sub cmdCreer_Click()

For Each A In ListePresta.ItemsSelected
codepresta = ListePresta.ItemData(A)
DoCmd.RunSQL "Insert into Presta(code) select ; " & codepresta

Next

End Sub

Ca me met l'erreur : Erreur de syntaxe dans l'instruction INSERT INTO

Et en mettant le point virgule ici :

Private Sub cmdCreer_Click()

For Each A In ListePresta.ItemsSelected
codepresta = ListePresta.ItemData(A)
DoCmd.RunSQL "Insert into Presta(code) select" & ; codepresta

Next

End Sub

Ca me met l'erreur : Erreur de compilation Attendu : Expression



....

Pour moi, les erreurs que tu obtiens sont évidentes car une instruction SQL se termine par un point-virgule. Ce dernier n'a pas sa place dans l'instruction! A retenir!
Autre chose: Une instruction SQL INSERT s'écrit de la manière suivante pour ajouter un seul enregistrement:

Code SQL :

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

1
2
 
INSERT INTO TableDest ( champ1, champ2, ... ) VALUES ( valeur1, valeur2, ... );

Si on applique ceci dans ton cas, cela devrait donner un code de ce genre:

Code SQL :

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

1
2
 
INSERT INTO Presta ( code ) VALUES ( '" & codepresta & "' );"

Bon courage et @+

[Sofie109]

Oh miracle! Merci infiniment!! Ca marche du feu de dieu!
Merci mille fois Mahefasoa!!