Error 381 Invalid property array index Visual Basic 6

Question

Bonjour,

J'obtiens le message suivant:

 Error 381: Invalid property array index
Voici le code:

mobjrec.SQL = "select * from PANOURI where IdPanou=" & IDPanou.Text
    mobjrec.RSOpen
    With rst
        .Fields!codpanou = "" & codpanou.Text
        .Fields!Judet = 0 + Combo5.ItemData(Combo5.ListIndex)
        .Fields!Localitate = 0 + Combo7.ItemData(Combo7.ListIndex)
        .Fields!adresa = "" & adresa.Text
        .Fields!Zona = "" & Text2.Text
        .Fields![Detalii locatie] = "" & Text3.Text
        .Fields!Tip = 0 + Combo1.ItemData(Combo1.ListIndex)
        .Fields!Dimensiuni = "" & Text1.Text
        .Fields!Iluminat = 0 + Combo3.ItemData(Combo3.ListIndex)
        .Fields!Construit = 0 + Combo4.ItemData(Combo4.ListIndex)
        .Fields!Poza = pic
        .Fields!Poza2 = pic2
        .Fields!Poza3 = pic3
        .Update
    End With
    mobjrec.Class_Terminate

Merci!

cs_Jack · Answer

Salut
Que contiennent les items de tes Combo5 et Combo7 ? (texte ou chiffre ? avec ou sans décimale ?)
Que vallent Combo5.ListIndex et Combo7.ListIndex au moment de l'erreur ?
A mon avis, -1 parce que tu n'as pas sélectionén d'item ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Error 381 Invalid property array index Visual Basic 6

1 réponse

Votre réponse

Discussions similaires