ListBox

[Alex-jpa 0]

Galera preciso de uma ajuda

 

 

Eu fiz um listbox que exibia 10 dados, ao colocar mais uma coluna (dado) deu um erro de VALOR DE PROPRIEDADE INVÀLIDO. Sendo que o dado que coloquei está certo, parece que ele não está aceitando mais de 10 colunas.

 

Veja o código

 

 

Private Sub PesquisarCodigos()

Dim DB As Database

Dim RS As Recordset

Dim i, J

i = 0

J = 1

Set DB = OpenDatabase(ThisWorkbook.Path & "\controle de Estoque.xls", False, False, "Excel 8.0")

Me.ListBox1.Clear

Set RS = DB.OpenRecordset("SELECT * FROM [MOVIMENTO$] WHERE [DATA] LIKE '" & UCase(Me.TextBox6) & "*' ORDER BY CODIGO, DISCRIMINAÇÃO", dbOpenSnapshot)

 

Do Until RS.EOF

 

ListBox1.AddItem

ListBox1.List(i, 0) = RS("DATA")

ListBox1.List(i, 1) = RS("CODIGO")

ListBox1.List(i, 2) = RS("DISCRIMINAÇÃO")

ListBox1.List(i, 3) = RS("QUANTIDADE")

ListBox1.List(i, 4) = RS("DESTINO")

ListBox1.List(i, 5) = Format(RS("UNITARIO"), "#,##0.00")

ListBox1.List(i, 6) = RS("ESTANTE")

ListBox1.List(i, 7) = RS("PRATELEIRA")

ListBox1.List(i, 8) = RS("STATUS")

ListBox1.List(i, 9) = RS("LANÇAMENTO")

ListBox1.List(i, 10) = RS("UNIDADE")

 

 

 

i = i + 1

 

RS.MoveNext

Loop

Me.ListBox1.TextColumn = 11

DB.Close

End Sub

 

 

 

Obrigado

 

 

Alex

[Luizgrs 0]

Ele funciona nas 10 primeiras voltas do loop?Estranho...a propriedade list só aceita um parâmentro que é o index do item na lista, deve ser esse o erro...E que propriedade é essa TextColumn?