OVH Cloud OVH Cloud

zone de liste + requet insert into

2 réponses
Avatar
BV
Bonjour à tous

j'ai essayé de combiner une sélection multiple ds une zone de liste et une
action INSERT INTO
je débute sous VBA.

En glanant quelques infos ds le formum, j'ai pu commencer la première partie
qui fonctionne très bien, probleme avec la requete action

pourriez vous me conseiller ?

merci d'avance

Ben

************************************
Dim varI As Variant
Dim SQL As String

If Me.resultats.ItemsSelected.Count = 0 Then
MsgBox "Merci de sélectionner au moins une ligne"
Else
For Each varI In Me!resultats.ItemsSelected
MsgBox Me!resultats.ItemData(varI)

SQL = "INSERT INTO T_ajout(ID)" & _
"VALUES (Forms![F_choix]![maliste]!ItemData(varI));"
DoCmd.RunSQL SQL

Next varI

End If

2 réponses

Avatar
Eric
Bonjour,

Ne serait-ce pas plutot :

SQL = "INSERT INTO T_ajout(ID) " & _
"VALUES (" & Me!resultats.ItemData(varI)& ");"

Je ne vois pas la raison d'être de
Forms![F_choix]![maliste]!ItemData(varI) car tu ne parcours pas la liste
des items sélectionnés de cette liste là

--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour à tous

j'ai essayé de combiner une sélection multiple ds une zone de liste et une
action INSERT INTO
je débute sous VBA.

En glanant quelques infos ds le formum, j'ai pu commencer la première partie
qui fonctionne très bien, probleme avec la requete action

pourriez vous me conseiller ?

merci d'avance

Ben

************************************
Dim varI As Variant
Dim SQL As String

If Me.resultats.ItemsSelected.Count = 0 Then
MsgBox "Merci de sélectionner au moins une ligne"
Else
For Each varI In Me!resultats.ItemsSelected
MsgBox Me!resultats.ItemData(varI)

SQL = "INSERT INTO T_ajout(ID)" & _
"VALUES (Forms![F_choix]![maliste]!ItemData(varI));"
DoCmd.RunSQL SQL

Next varI

End If




Avatar
BV
génial !!!

merci bq ca fonctionne

BV



"Eric" a écrit dans le message news:
eHJ$q#
Bonjour,

Ne serait-ce pas plutot :

SQL = "INSERT INTO T_ajout(ID) " & _
"VALUES (" & Me!resultats.ItemData(varI)& ");"

Je ne vois pas la raison d'être de
Forms![F_choix]![maliste]!ItemData(varI) car tu ne parcours pas la liste
des items sélectionnés de cette liste là

--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Bonjour à tous

j'ai essayé de combiner une sélection multiple ds une zone de liste et
une


action INSERT INTO
je débute sous VBA.

En glanant quelques infos ds le formum, j'ai pu commencer la première
partie


qui fonctionne très bien, probleme avec la requete action

pourriez vous me conseiller ?

merci d'avance

Ben

************************************
Dim varI As Variant
Dim SQL As String

If Me.resultats.ItemsSelected.Count = 0 Then
MsgBox "Merci de sélectionner au moins une ligne"
Else
For Each varI In Me!resultats.ItemsSelected
MsgBox Me!resultats.ItemData(varI)

SQL = "INSERT INTO T_ajout(ID)" & _
"VALUES (Forms![F_choix]![maliste]!ItemData(varI));"
DoCmd.RunSQL SQL

Next varI

End If