Discussion :

[facedeharicot]

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...

[loufab]

Bonjour,

La méthode de suppression (Domenuitem) que tu utilises (et qui au passage est obsolète) permet de supprimer des enregistrements d'un formulaire, pas d'une liste.

Regarde dans la faq (ou le forum ) il me semble qu'il y a un exemple de manipulation des zone de liste.

Cordialement,

[facedeharicot]

Merci

Après réflexion je suis revenu en arrière. La listview ne me permettant qu'un effect visuel (et de classement par clic sur les entêtes). La manipulation des listbox étant plus aisée, j'ai opté pour cette solution