ListView

[cla80]

AIUTO LISTVIEW!

l'errore mi da al punto desc= e mi segnala LIMITI ESAURITI PER INDICE
ERRORE RUN-TIM 35600

Sub Salva()
Dim i As Integer
Dim a As String
Dim desc As String
Dim itmx3 As ListItem
Dim db7 As DAO.Database
Dim rs9 As DAO.Recordset
Dim SQL, SQL1 As String
Set db7 = OpenDatabase("c:\newcs\newcs.mdb")
For i = 1 To LvNewCS2.ListItems.Count
a = LvNewCS2.ListItems(i).Text
desc = LvNewCS2.ListItems(i).ListSubItems(i).Text
SQL = "INSERT INTO Corpo(CodArt, Descrizione) VALUES ('" & a & "', '" & desc & "')"
db7.Execute (SQL)
Next i
End Sub

AIUTO.

[sebamix]

LvNewCS2.ListItems(i).ListSubItems(i).Text

si vede che ListItems(i) non esiste o quasi sicuramente ListSubItems(i)

Prova LvNewCS2.ListItems(i).ListSubItems(y).Text
dove al posto di y puoi mettere 0,1,2,...

[totti240282]

Dim db7 As DAO.Database
Dim rs9 As DAO.Recordset
co questo setti le variabili come database e recordset cioe ????????????

[Gigi84]

non è che gli indici devi farli nadare da 0 a count-1??