UPDATE à partir de Listbox

Bonjour,
Ma base de données doit servir à gérer le prêt de clés.
Pour les retours, dans mon formulaire une ListBox affiche les clés en possession, et permet de les sélectionner (sélection multiple) pour enregistrer leur retour dans la table des emprunts.
Ce qui m'échappe, c'est que le code suivant fonctionne quand je sélectionne 1 item, mais devient capricieux au delà d'une sélection :

Code:

---

1 2 3 4 5 6 7 8 9

If Me.ListClé.ItemsSelected.Count = 0 Then MsgBox "Aucune clé n'a été sélectionnée" Else Idprt = Me.ListClé.Column(0) For Each varI In Me!ListClé.ItemsSelected RetourClé = "UPDATE T05_Pret_Cles SET Date_Retour = Date() WHERE [ID_Pret] = " & Idprt & "" DoCmd.RunSQL RetourClé Next varI End If

---

Pour être plus précis, il ne prend que la sélection la plus basse, et à la tentative suivante, la sélection n'a plus d'effet (enregistrement d'une clé non sélectionnée)
Or le même code, quand je remplace la ligne SQL par un MsgBox, m'affiche bien, successivement, la référence des lignes sélectionnée....
Merci par avance pour vos commentaires

Salut,

La variable idprt n'est pas mise à jour dans la boucle.

PS: Plutot que d'afficher le contenu des variables via l'instruction MsgBox, préfère l'instruction Debug.Print qui n'est pas intrusive.

Bonjour,

A ma connaissance, cela se fait en 2 temps :
1- On crée une chaine des items sélectionnés dans le listbox.
2- On fait la requête de mise à jour.

Exemple par là

Cordialement.

OK, merci pour ces informations, grâce à elles j'ai pu me familiariser avec la variable ItemData qui justement isole les données attendues.
Avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim varI As Variant     If Me.ListClé.ItemsSelected.Count = 0 Then MsgBox "Aucune clé n'a été sélectionnée" Else For Each varI In Me!ListClé.ItemsSelected DoCmd.RunSQL "INSERT INTO Ttemp_retour_Cle VALUES (" & Me!ListClé.ItemData(varI) & ")" Next varI End If Dim StrSQL As String

---

Je rempli une table temporaire qui va pouvoir me permettre de faire l'UPDATE recherché, dans un second temps donc.
Et là je galère avec la syntaxe de l'update :roll:

Code:

---

1 2 3 4 5 6 7 8

StrSQL = "UPDATE T05_Pret_Cles SET T05_Pret_Cles.Date_Retour = DATE() " & _ "FROM Ttemp_retour_Cle " & _ "LEFT JOIN T05_Pret_Cles ON Ttemp_retour_Cle.ID_Pret = T05_Pret_Cles.ID_Pret " & _ "WHERE (([Ttemp_retour_Cle].[ID_Pret]=[T05_Pret_Cles].[ID_Pret]))"   '   DoCmd.RunSQL StrSQL

---

Moi qui pensais avoir fait le plus dur...
NB : l'update ajoute la date du jour à la colonne date_retour

Mon dernier problème ne relevant pas de la question de l'extraction des données de la listbox, je considère le sujet clos. Merci aux intervenants pour leur aide précieuse !