bonjour,

Je voudrais supprimer des lignes dans une zone de liste mais mon code ne marche pas...
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
 
Private Sub Commande41_Click()
Dim i As Variant
Dim str As String
 
 
    If Me!Liste13.ItemsSelected.Count > 0 Then
        For Each i In Me!Liste13.ItemsSelected
 
    str = "delete * FROM trame where n° = " & Me.Liste13.Column(0) & " ;"
    DoCmd.RunSQL str
 
    Me.Liste13.Requery
     Next i
    Else
    MsgBox "Selectionnez une ou plusieurs lignes"
 
    End If
end sub
Merci pour votre aide
Mamanhou