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