cs_PDT
Messages postés56Date d'inscriptionsamedi 7 décembre 2002StatutMembreDernière intervention 7 août 2003
-
13 déc. 2002 à 11:16
cs_PDT
Messages postés56Date d'inscriptionsamedi 7 décembre 2002StatutMembreDernière intervention 7 août 2003
-
13 déc. 2002 à 12:14
Set db = OpenDatabase("base.mdb")reqlist "select champ1, champ2 from table where (champ3 1)"
Set tri = db.OpenRecordset(reqlist)
If tri.RecordCount > 0 Then
Liste.ColumnCount = 2
tri.MoveFirst
i = 0
While Not tri.EOF
If tri![INTITULE] > 0 Then
Liste.List(i, 0) = tri![champ1]
If tri![DESCRIPTIF 1] > 0 Then
Liste.List(i, 1) = tri![champ2]
End If
i = i + 1
End If
tri.MoveNext
Wend
End If
db.Close
le code plante sur la ligne
Liste.List(i, 0) = tri![champ1]
le message est
erreur d'execution '381':
impossible de definir la propriete list. index de table de propriete non valide.