MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

3 participantes

    [Resolvido]Quantidade de Registros Listbox desvinculado

    avatar
    wal97
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 30/06/2021

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty [Resolvido]Quantidade de Registros Listbox desvinculado

    Mensagem  wal97 31/8/2021, 20:17

    Evil or Very Mad
    Prezados, boa tarde,
    Estou tentando listar cerca de 1.400 registros em uma listbox desvinculada, mas só me trás uma média de 30%, como poderia mudar o código para ver todos.
    Até porque no meu caso essa quantidade não vai variar, para todo registro adicionado um vai ser deletado. Segue parte do código. Quando aciono duplo clique no registro, me abre um outro formulário com informações detalhada
    do veículo, tudo isso está 100%, só preciso mudar o código abaixo para popular a listbox (ListaVeiculos) com todos os registros da tabela tbl_veiculos.

    Option Compare Database

    Private Sub subCrgListaVeiculos()
       Dim strSQL As String
       Dim rs As DAO.Recordset
       
       strSQL = "select Identificação, SECOES, LOCALIZAÇÃO, CLASSIFICAÇÃO,MARCA_MODELO, PLACA, ANO_FABRICAÇÃO, POTENCIA, AC, DH, VE, TE, AB, BS, COMBUSTIVEL, CONSERVACAO, VALOR_ATUAL_MERCADO,ATUALIZADO_EM, EMPENHO, UNIDADE_RESPONSAVEL, OBSERVACOES, STATUS from tbl_Veiculos order by SECOES"
       
       Set rs = CurrentDb.OpenRecordset(strSQL, , 4)
       
       Me.Lista_veiculos.RowSource = ""
       
       Me.Lista_veiculos.AddItem ";SECOES; Marca - Modelo; PLACA; ANO; VALOR"
       
       Do Until rs.EOF
       
       Me.Lista_veiculos.AddItem rs!Identificação & ";" & rs!SECOES & ";" & rs!MARCA_MODELO & ";" & rs!PLACA & ";" & rs!ANO_FABRICAÇÃO & ";" & rs!VALOR_ATUAL_MERCADO
       
       rs.MoveNext
       
       Loop
       rs.Close
       Set rs = Nothing
       
    End Sub

    Private Sub Form_Open(Cancel As Integer)
       Call subCrgListaVeiculos
    End Sub
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2683
    Registrado : 13/12/2016

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Re: [Resolvido]Quantidade de Registros Listbox desvinculado

    Mensagem  Alexandre Fim 31/8/2021, 20:36

    Boa tarde Waldemar,

    Seja bem-vindo ao fórum !!!

    Existe um limite de linhas para ser carregado na listbox e, no seu caso, listar 1400 registros não é muito funcional, até porque o usuário tem que percorrer linha por linha para encontrar o registro desejado.

    A forma mais correta pra carregar uma listbox é através de um filtro antes de carregá-la (seria uma considção na tua instrução SQL, ou seja, um "WHERE"), e desta forma o nro de registro vai diminuir consideravelmente e facilitando a busca do registro.

    Por gentileza, nos envie uma cópia do seu banco de dados (somente os objetos envolvidos: tabelas, consultas, relatórios, modulos e etc) pertinentes à sua dúvida, para análise e solução.

    Veja no link abaixo como postar arquivos no fórum.
    https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

    É isso

    Att,

    Alexandre Fim



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Quantidade de Registros Listbox desvinculado Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    wal97
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 30/06/2021

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Banco zipado

    Mensagem  wal97 31/8/2021, 20:55

    Boa tarde, Alexandre,
    Segue banco anexo.
    Agradeço desde já a ajuda.
    Anexos
    [Resolvido]Quantidade de Registros Listbox desvinculado AttachmentBCVEICULOS2.zip
    Tabela e formulários
    Você não tem permissão para fazer download dos arquivos anexados.
    (661 Kb) Baixado 17 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2683
    Registrado : 13/12/2016

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Re: [Resolvido]Quantidade de Registros Listbox desvinculado

    Mensagem  Alexandre Fim 31/8/2021, 21:23

    Valeu Waldemar,

    Ja baixei seu exemplo e vou fazer os devidos ajustes.

    Aguarde.

    Att,

    FIM



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Quantidade de Registros Listbox desvinculado Setinf11
    Sistemas e Tecnologia Ltda
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Re: [Resolvido]Quantidade de Registros Listbox desvinculado

    Mensagem  Avelino Sampaio 31/8/2021, 22:00

    Olá!

    Só a título de conhecimento, uma listbox desacoplada suporta até 2048 caracteres.  

    Sucesso!



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    wal97 gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2683
    Registrado : 13/12/2016

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Re: [Resolvido]Quantidade de Registros Listbox desvinculado

    Mensagem  Alexandre Fim 31/8/2021, 22:39

    Waldemar,

    Ao invés de carregar todos os veiculos na listbox, o sistema vai carregá-la em branco e ai você faz o filtro, selecionando o campo desejado e informando qualquer texto a ser pesquisado.

    Neste caso, a rotina de pesquisa usa o operador LIKE, onde ele busca qualquer registro que contem o texto digitado.

    O formulário ficou assim:

    [Resolvido]Quantidade de Registros Listbox desvinculado Pesqve10


    É isso.

    Segue versão atualizada.

    Espero ter ajudado.

    Boa sorte.

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Quantidade de Registros Listbox desvinculado Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    wal97
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 30/06/2021

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty BCveículos

    Mensagem  wal97 31/8/2021, 22:47

    Nossa ficou muito bom, bem mais profissional. Muitíssimo obrigado.
    Abs.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2683
    Registrado : 13/12/2016

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Re: [Resolvido]Quantidade de Registros Listbox desvinculado

    Mensagem  Alexandre Fim 31/8/2021, 22:57

    Valeu Waldemar, fórum agradece!!!

    DICA: Os formulários precisam de alguns ajustes no tamanho/altura dos campos e no tamanho da fonte tmb.

    Boa sorte.

    []'s


    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Quantidade de Registros Listbox desvinculado Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    wal97
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 30/06/2021

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Listbox desvinculada

    Mensagem  wal97 1/9/2021, 12:27

    Alexandre, sem querer abusar, só mais um detalhe. Para finalizar e entregar o projeto, necessito incluir o valor total da coluna valor, nos mesmos moldes que você inseriu o contador (iCount). Tentei alguns códigos usando "Sum", mas sempre apresenta erro, se puder me passa mais essa dica aí.

    Obrigado.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2683
    Registrado : 13/12/2016

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Re: [Resolvido]Quantidade de Registros Listbox desvinculado

    Mensagem  Alexandre Fim 1/9/2021, 12:41

    Waldemar,

    Quais são os valores que vc quer somar?


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Quantidade de Registros Listbox desvinculado Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    wal97
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 30/06/2021

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Valores

    Mensagem  wal97 1/9/2021, 16:41

    Boa tarde! São os valores da coluna VALOR_ATUAL_MERCADO, quando baixados para lista_veiculos.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2683
    Registrado : 13/12/2016

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Re: [Resolvido]Quantidade de Registros Listbox desvinculado

    Mensagem  Alexandre Fim 1/9/2021, 17:52

    Ok...
    Viu ajustar o teu projeto e depois te mando nova versão.

    Aguarde.

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Quantidade de Registros Listbox desvinculado Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 28/11/2022, 15:25