Contrôle checkbox dans une listview
Bonjour,
J'ai un petit soucis sur une suppression d'enregistrement(s) dans une listview.
Avec le code suivant je cherche à supprimer un ou plusieurs enregistrements coché(s) et non pas sélectionné(s):
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Private Sub btnSuppRecord_Click()
Dim LItem As ListItem
For Each LItem In VueListe.ListItems
If LItem.Checked Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
On Error GoTo Err_BTFermeUNSAVING_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
'Supprime la ligne active
Me.VueListe.ListItems.Remove (VueListe.SelectedItem.Index)
Me.VueListe.ListItems.Remove LaLigne.Index
Me.VueListe.Requery
Exit_BTFermeUNSAVING_Click:
Exit Sub
'Gestion des erreurs
Err_BTFermeUNSAVING_Click:
MsgBox err.Description
Resume Exit_BTFermeUNSAVING_Click
End If
Next
End Sub |
Pour le moment, rien ne fonctionne. Evidemment avec 2 lignes de suppressions de la ligne active, j'ai une erreur à la fin... :aie:
