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