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):
Pour le moment, rien ne fonctionne. Evidemment avec 2 lignes de suppressions de la ligne active, j'ai une erreur à la fin...
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![]()
Partager