Coluna listbox

Question

Boa tarde!

Meu nome é Gustavo e gostaria de ajuda..

lstConsulta.Column (1, 1) = "teste"

aparece mensagem de erro. Objeto é obrigatório..

Estou usando esse comando para colocar um dado em uma parte específica da listbox.

Answer 1

Boa noite Gustavo.

Você renomeou seu ListBox para "lstConsulta"? Ou ainda, está chamando esta instrução de "dentro" o formulário que contém este ListBox? Para o segundo caso experimente inserir o nome do formulário ou simplesmente teste:

Me.lstConsulta.Column (1, 1) = "teste"

Caso não dê certo experimente o "List" ao invés de "Column".

Obs.: lembre que o primeiro índice é "0" e não "1" para a referência.

Aguardo seus testes.

---

Filipe Magno

Answer 2

renomeei para lstConsulta.

Já tentei usar a propriedade list de varias maneiras, com o with por exemplo, mas da erro...

A propriedade list não existe na relação de propriedades do access vba

.

Answer 3

Gustavo, boa tarde.

Como o André disse o primeiro índice é 0, mas além disso antes de tentar inserir um valor na listbox use o método AddItem, para acrescentar uma linha ao listbox.

With Me.lstConsulta
     .AddItem
     .List(0,0) = "teste"
End With

Nós dê um retorno do seu teste!

Abraços.

Answer 4

Answer 5

esse é um erro. O outro é que esse comando .List não existe na relação de comandos do vba access 

Answer 6

Answer 7

Gustavo,

uma pergunta: seu Office por acaso é 64 bits? Creio que se for o caso a única solução seja desinstalá-lo e instalar a versão 32 bits (x86).

Seria isto?

Abraço.

---

Filipe Magno

Answer 8

Sim, meu office é a ultima versão do office 365 64 bits.

Answer 9

Creio que seja o que eu lhe disse então:

https://support.office.com/pt-br/article/Escolha-uma-vers%C3%A3o-de-64-bits-ou-de-32-bits-do-Microsoft-Office-2016-2dee7807-8f95-4d0c-b5fe-6c6f49b8d261

Por incrível que possa parecer, Não há suporte para vários controles na versão 64 bits do Office (Mscomctl.ocx, comctl.ocx são apenas para a versão de 32 bits), além de outras limitações, como a forma de declarar variáveis!

Minha sugestão seria utilizar o x64 com VBA apenas se estritamente necessário, por alguma limitação importante do x86.

Abraço.

---

Filipe Magno

Answer 10

se eu fizer em office 32 bits mas for implantar em um cliente que o office é 64 bits?

Answer 11

Gustavo,

creio que há uma grande chance de problema: o resultado será o mesmo que está tendo. Na minha opinião a versão 64 do Office só serve para dar dor de cabeça: bibliotecas inexistentes, declarações de variáveis diferentes, Chamadas de API diferentes, etc.

No seu caso, se pretende disponibilizar um produto para um usuário que você não pode determinar a versão do Office, o mais recomendado seria você construir o arquivo na versão 64, considerando todas as limitações (como ausência de controles) e elaborar o código de forma compatível.

Espero ter ajudado.

---

Filipe Magno

Answer 12

Muito obrigado pela ajuda de todos vocês..

Answer 13

Não é querendo desanimar vocês mas, eu instalei a versão 32 bits do office 365 e esse comando .List também não apareceu. 

Acho que ele deixou de existir na microsoft só pode ser. Já estou ficando revoltado com essa merda de .List

Esse .List deve ser coisa do office 97...

O que eu cheguei mais perto foi  esse codigo:

comando = "select quantidade from tblEstoque where codigo_produto like '" & lstCupons.Column(0, i) & "'"

esse funcionou mas ele serve para leitura do campo na listbox. Mas quando eu quero INCLUIR algo é que esta aparecendo o problema.

já tentei lstCupons.Column(0, i) = "teste" mas nada de funcionar.

Answer 14

Gustavo,

tem algumas explicações aqui: http://logicavba.blogspot.com.br/2013/10/como-ativar-o-controle-listview-no.html

Pode ser necessário registrar manualmente a biblioteca "MSCOMCTL.OCX" ou adicionar a Referência "Microsoft Forms" (Ferramentas >> Referências).

Antes de tentar registrar, verifique se a referência está ativa.

Espero que ajude.

---

Filipe Magno