supprimer dans une zone de liste à multiple selection
Bonjour,
Je planche sur un problème depuis pas mal de temps maintenant... Ne trouvant ni mes réponses sur les tutos, les faqs (même celles concurrentes:oops:)... je viens vers vous.
J'ai une zone de liste dans laquelle je peux selectionner plusieurs valeurs. Quand je clique sur le bouton dessous, je souhaite supprimer les valeurs sélectionnées et raffraichir la liste.
Structure de la liste : eta_id, eta_chaine, eta_code.
Structure de la table : eta_id, eta_chaine, eta_code.
Je pensais parcourir la liste en supprimant les valeurs avec cette boucle
Code:
1
2
3
4
5
6
7
|
Dim VarLr As Variant
For Each VarLr In Me.li_eta.ItemsSelected
SQL = "DELETE * FROM ETABLISSEMENT WHERE eta_id =" &
Me.li_eta.Column(0) & ";"
DoCmd.RunSQL (SQL)
Next VarLr |
Mais j'ai un message d'erreur: "Erreur de syntaxe dans la date dans l'expression 'eta_id = #Supprimé' ".
Je suppose donc qu'il n'apprecie guère la suppression dans la boucle.
J'ai donc tenté de renseigner un recordset avec mes valeurs à supprimer. Pour supprimer mes valeurs de la table dans une seconde boucle.
Bref, voici le contexte. Ma question est: est ce qu'on peut remplir un recordset avec une zone de liste? Sinon, quel objet utiliser ?
Tous les exemples que j'ai pu voir basent leur recordset sur une table.
Merci à ceux qui ont le temps de m'aider.
