none
Coluna listbox RRS feed

  • Pergunta

  • 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.

    sexta-feira, 2 de setembro de 2016 16:56

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
    segunda-feira, 5 de setembro de 2016 03: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

    .


    domingo, 11 de setembro de 2016 16:42
  • 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.

    domingo, 11 de setembro de 2016 17:33
  • domingo, 11 de setembro de 2016 17:42
  • esse é um erro. O outro é que esse comando .List não existe na relação de comandos do vba access 


    domingo, 11 de setembro de 2016 17:44
  • domingo, 11 de setembro de 2016 17:50
  • 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

    domingo, 11 de setembro de 2016 17:52
  • Sim, meu office é a ultima versão do office 365 64 bits.
    domingo, 11 de setembro de 2016 17:56
  • 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

    domingo, 11 de setembro de 2016 18:05
  • se eu fizer em office 32 bits mas for implantar em um cliente que o office é 64 bits?
    domingo, 11 de setembro de 2016 18:08
  • 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

    domingo, 11 de setembro de 2016 18:37
  • Muito obrigado pela ajuda de todos vocês..
    domingo, 11 de setembro de 2016 18:40
  • 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.

    segunda-feira, 12 de setembro de 2016 01:39
  • 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

    segunda-feira, 12 de setembro de 2016 14:45