MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Quantidade de Ítens suportados em ListBox adicionado valores (Value List)

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2878
    Registrado : 21/04/2011

    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) Empty Quantidade de Ítens suportados em ListBox adicionado valores (Value List)

    Mensagem  Marcelo David em 19/9/2013, 16:20

    Olá amigos.
    Trabalho com formulários desacoplados a algum tempo. Tenho tido bastante êxito em meus projetos (apesar da demora que demanda em se trabalhar assim).
    Pois bem, uso casualmente ListView ou formulários no modo folha de dados acoplado a tabelas temporárias no Front-End. Criar, popular tabelas, acoplálas em tempo de execusão, gasta bastante tempo de meu serviço.
    Afim de ganhar tempo e desempenho, fiz uns testes usando ListBox (Caixa de Listagem) com o Tipo de origem da linha = Lista de valores (RowSourceType = "Value List").

    A triste conclusão que cheguei é que uma ListBox com 5 colunas, adicionando valores, apenas comporta 538 itens (linhas)... É uma tristeza...
    O pior é que no Access 2010 (salvo outras versões), se minha tabela possuir 5000 registros, e for feito um loop para adicionar os registros,
    tudo é realizado normalmente, não apresenta erro algum, mas apenas serão adicionadas 538 linhas na ListBox...

    Cuidado amigo, para você não estar pensando que seus 5000 registros estão sendo adicionados a sua ListBox (adicionado valores), pois não estão, apesar de não apresentar erro algum...

    Como teste, criei um pequeno aplicativo que simula situações semelhante para você mesmo comprovar.
    Baixe o anexo TesteListBoxValueList.mdb.

    Basicamente o aplicativo trabalha assim:

    Quantidade de Itens: Aqui você informa a quantidade de itens que deseja adicionar. Ponha um valor maior que 538, por exemplo: 1000
    Quantidade de laços: Informa a quantidade de Loops que foi dado para adicionar os ítens. (observe, que ele irá dar todos os laços que você definiu, sem erros.
    Botão Gerar: Inicia a adição de valores a ListBox atraves de um Loop baseado na quantidade que você especificou.
    Botão Limpar: Limpa a ListBox e os resultados.
    Botão Contar: Conta efetivamente quantos itens foram adicionado. Veja o resultado abaixo.


    Espero que ajude.
    Anexos
    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) AttachmentTesteListBoxValueList.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 22 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) Empty Re: Quantidade de Ítens suportados em ListBox adicionado valores (Value List)

    Mensagem  criquio em 20/9/2013, 00:27

    Eu falo sobre isso em uns experimentos para o qual criei um exemplo e está nesse tópico e tambem um vídeo meio fuleiro no youtube, hehehe.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2878
    Registrado : 21/04/2011

    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) Empty Re: Quantidade de Ítens suportados em ListBox adicionado valores (Value List)

    Mensagem  Marcelo David em 20/9/2013, 01:43

    Verdade criquio, acabei que esquecendo do seu exemplo. Embarassed 
    Eu acho que até tenho o seu exemplo no meu baú por aqui...

    Mas é triste termos que recorrer a vínculos para popular eficientenete
    uma caixa de listagem... Tenho que manter ListView e enfrentar alguns
    problemas que os Activex ocasionam...


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3532
    Registrado : 04/04/2010

    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) Empty Re: Quantidade de Ítens suportados em ListBox adicionado valores (Value List)

    Mensagem  Avelino Sampaio em 20/9/2013, 08:28

    O melhor do Access está no trabalho com vínculos.

    Se eu não me engano está limitado em 2048 caracteres.

    Para contornar isso use o recordset para popular a listbox.  Veja exemplo de uma função:

    Public Sub fncCarregaLista(strsql As String, ctl As Control)
    Call fncAbreConexao
    Set rs.ActiveConnection = cnn
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockReadOnly
    rs.Open strsql
    Set ctl.Recordset= rs
    rs.ActiveConnection = Nothing
    End Sub


    Segue arquivo exemplo.

    Sucesso!
    Anexos
    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) AttachmentMarcelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 31 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2878
    Registrado : 21/04/2011

    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) Empty Re: Quantidade de Ítens suportados em ListBox adicionado valores (Value List)

    Mensagem  Marcelo David em 20/9/2013, 12:44

    Muito bom Avelino! Achei interessante a maneira como usou para
    popular o ListBox. Mais uma alternativa para meu trabalho!Very Happy 


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) Empty Re: Quantidade de Ítens suportados em ListBox adicionado valores (Value List)

    Mensagem  HARYSOHN em 21/9/2013, 03:09

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2878
    Registrado : 21/04/2011

    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) Empty Re: Quantidade de Ítens suportados em ListBox adicionado valores (Value List)

    Mensagem  Marcelo David em 21/9/2013, 05:37

    Que por sinal é uma ótima contribuição PILOTO! Dessa forma poderemos
    padronizar o carregamento das ListBox em uma função
    já pronta!

    Obrigado por compartilhar!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    Quantidade de Ítens suportados em ListBox adicionado valores (Value List) Empty Re: Quantidade de Ítens suportados em ListBox adicionado valores (Value List)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/11/2019, 03:46