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 : Sélectionner tout - Visualiser dans une fenêtre à part
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