p'tit Probleme en affchage de Données apartir d'un selectionnement dans Listview

**r.mehdi** · 01/06/2008, 16h31

bjr je travail avec vb6 j'ai un p'tit soucis durant affichage des données apartir du Listview par exemple
si je selectionne un enregistrement situé dans listview il doit M'affiché les données le Probleme c'est qu'il Me donne un deboguage dans la

(pas d'enregistrement au courant,erreur '3021') a chaque fois que je selectionne un enregistrement dans listview
voila 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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Private Sub Form_Load()
Ouverture 'Ouverture Du B.D.D
Call Comboload1

ListView1.ListItems.Clear
With ListView1.ColumnHeaders 'Conception L'entête du Listview1
.Clear
.Add , , "Compte", (ListView1.Width * (2 / 22)), lvwColumnLeft
.Add , , "Nom Client", (ListView1.Width * (2 / 9)), lvwColumnLeft
.Add , , "Téléphone", (ListView1.Width * (2 / 15)), lvwColumnLeft
.Add , , "Fax", (ListView1.Width * (2 / 15)), lvwColumnLeft
.Add , , "Adresse Client", (ListView1.Width * (2 / 7)), lvwColumnLeft
.Add , , "Ville", (ListView1.Width * (2 / 14)), lvwColumnLeft

End With
ListView1.View = 3
Call List  
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub List()
Dim l As ListItem

ListView1.ListItems.Clear   'M.A.J du Listview
sql1 = "select * from client"
Set E_sql = base.OpenRecordset(sql1)
With E_sql
If Not .EOF Then .MoveFirst
While Not .EOF

If .RecordCount <> 0 Then
Set l = ListView1.ListItems.Add(, , !Compt_clt)
l.SubItems(1) = !nom_clt
l.SubItems(2) = !tel_clt
l.SubItems(3) = !fax_clt
l.SubItems(4) = !adr_clt
l.SubItems(5) = !ville_clt
.MoveNext     'enregistrement Suivant
End If
Wend
End With
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim Indexcol As Integer  'variable qui contiendra le N°index de la colonne

Indexcol = ColumnHeader.Index 'Affectation du Index a la variable

'Instruction suivant la Colonne cliquée par l'utilisateur
'Trier en Ascendant
With E_client
Select Case Indexcol
Case Is = 1
.Sort = "Compte Client ASC"
Case Is = 2
.Sort = "Nom Client ASC"
Case Is = 3
.Sort = "Téléphone ASC"
Case Is = 4
.Sort = "Fax ASC"
Case Is = 5
.Sort = "Adresse Client ASC"
Case Is = 6
.Sort = "Ville ASC"
End Select
Call List  'Mise a jour du Listview
End With
End Sub
''''''''''''''''''''''''''''''''la Ou il me sort deboguage'''''''''''''''''''''''''''''''''''''''''
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim Indexitem As Long  'Variable qui va contenir L'index de L'enregistrement
With E_client
If Not .EOF Then .MoveFirst 'Pour se palcer au Premier Enregistrement Sinon Erreur
Indexitem = Item.Index 'Affectation du index a la variable
If Not .EOF Then .Move (Indexitem - 1)  'Positionement sur l'Enregistrement Selectionner
Combo2 = !Compt_clt 'Mon deboguage est ici
Combo3 = !nom_clt
MaskEdBox3 = !tel_clt
MaskEdBox2 = !fax_clt
Text3 = !adr_clt
Combo1 = !ville_clt
End With
end Sub
End sub

Pourrez_vous M'aidez svp

**ProgElecT** · 01/06/2008, 19h28

MoveFirst, passe au premier enregistrement.
Indexitem = Item.Index, donc prend la valeur du premier enregistrement.
If Not .EOF Then .Move (Indexitem - 1), donc demande de branchement à l'enregistrement premier - 1

Ce brancher sur un enregistrement qui n'existe pas, est-ce bien resonnable, de fait, que peut retourner la demande de la valeur d'un champ pour un enregistrement n'existant pas ==> pas d'enregistrement courant, erreur '3021'