bonjour

Je travaille souvent avec listview pour affichage des données.

Je travaille sur un projet Gestion stock. J'ai un formulaire Commande que j'effectue Listview pour savoir ce que le client a commandé. Bon! le problème que j'ai eu c'est par exemple :
un client désigne 4 articles
puis il change d'avis, il n'en veut que 3. Donc, je dois en supprimer tout en cliquant sur Listview. J'ai choisi l'événement DBClick pour faire ce travail.

Voilà Mon code :
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Listview_concept()
    ListView1.ListItems.Clear
    With ListView1.ColumnHeaders 'Conception du L'entête du Listview2
        .Clear
        .Add , , "N°depôt", (ListView1.Width * (2 / 20)), lvwColumnLeft
        .Add , , "Libellé", (ListView1.Width * (2 / 18)), lvwColumnLeft
        .Add , , "Code Article", (ListView1.Width * (2 / 18)), lvwColumnLeft
        .Add , , "Designation  ", (ListView1.Width * (2 / 5)), lvwColumnLeft
        .Add , , "Prix Unitaire", (ListView1.Width * (2 / 16)), lvwColumnLeft
        .Add , , "Qt.Commandée", (ListView1.Width * (2 / 14)), lvwColumnLeft
    End With
    ListView1.View = 3
End Sub
'*******
Sub Listview_delete()
    SQL = "delete * from contient where codea_cont='" & Combo1 & "'"
    Base.Execute SQL
    Combo6.Text = "": Combo7.Text = ""
    Combo4.Text = "": Combo5.Text = ""
    Text1.Text = "": Text2.Text = ""
End Sub
'*******
Private Sub Form_Load()
    Ouverture 'Connexion B.D
    ListView1.FullRowSelect = True
End Sub
'*******
Private Sub ListView1_DblClick()
    Dim Indexitem As Long  'Variable qui va contenir L'index de L'enregistrement
    With E_contient
        .MoveFirst 'Pour se palcer au Premier Enregistrement Sinon Erreur
        Indexitem = Item.Index 'Affectation du index a la variable
        .Move (Indexitem - 1)  'Positionement sur l'Enregistrement Selectionner
        Combo6.Text = IIf(IsNull(![numd_cont]), "", ![numd_cont])
        Combo7.Text = IIf(IsNull(![libd_cont]), "", ![libd_cont])
        Combo4.Text = IIf(IsNull(![codea_cont]), "", ![codea_cont])
        Combo5.Text = IIf(IsNull(![desig_cont]), "", ![desig_cont])
        Text1.Text = IIf(IsNull(![pu_cont]), "", ![pu_cont])
        Text2.Text = IIf(IsNull(![qtc_cont]), "", ![qtc_cont])
    End With
    call Listview_delete
End Sub
Quand j'exécute et que je fais Double Click sur Listview, il me donne un débogage 'Objet requis' sur (Indexitem = Item.Index)
svp pourriez-vous m'aider ?