Inquiridor
Coluna listbox

Pergunta
-
Todas as Respostas
-
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
- Sugerido como Resposta André Santo segunda-feira, 5 de setembro de 2016 13:09
-
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
.
- Editado Gustavo Milsoni domingo, 11 de setembro de 2016 16:43
-
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.
-
-
esse é um erro. O outro é que esse comando .List não existe na relação de comandos do vba access
- Editado Gustavo Milsoni domingo, 11 de setembro de 2016 17:47
-
-
-
-
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
-
-
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
-
-
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.
-
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