Listbox Access com duas colunas

Question

Caros,

Estou fazendo uma consulta na tabela PRODUTOS via vba.

Pretendo retornar o resultado em um listbox como: Código|Descrição.

Porém, só consigo incluir os dados na primeira coluna.

Alguém sabe como inserir os dados na segunda coluna?

Grato

Answer 1

Separe por ";" (ponto-vírgula) a String a ser inserida que cada parte dela vai automaticamente para uma coluna.

Por exemplo se eu tenho uma ListBox de duas colunas chamada "Lista11", a inserção dos dados na primeira e segunda coluna respectivamente ficaria assim:

Lista11.AddItem ("AAAAAAA;BBB")

"AAAAAAA" vai para primeira coluna.

"BBB" vai para segunda coluna.

Answer 2

Isso eu já fiz...

Estou usando o código abaixo para preencher o listbox, mas só consigo acrescentar dados na primeira coluna...

Alguém pode me ajudar?

Code:

SQL = "Select * from Produtos where Descricao like '*" & txtBuscaDescricao & "*' order by Descricao"

Set RS = DB.OpenRecordset(SQL)

Do While Not RS.EOF

listResultado.AddItem RS.Fields(0) '1º Coluna

listResultado.AddItem RS.Fields(1) '2º Coluna - Qual o código corrreto?

RS.MoveNext

Grato

Answer 3

Configure a propriedade de qtde. de colunas para 2 no modo estrutura do formulário, na janela de propriedades da listbox.

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br