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 : 18
    Registrado : 30/06/2021

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

    Mensagem  wal97 31/8/2021, 16: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 : 1781
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 31/8/2021, 16: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

    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Banco zipado

    Mensagem  wal97 31/8/2021, 16: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 13 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

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

    Valeu Waldemar,

    Ja baixei seu exemplo e vou fazer os devidos ajustes.

    Aguarde.

    Att,

    FIM

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 31/8/2021, 18: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 : 1781
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 31/8/2021, 18: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
    Anexos
    [Resolvido]Quantidade de Registros Listbox desvinculado AttachmentBCVEICULOS2_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (646 Kb) Baixado 11 vez(es)
    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  wal97 31/8/2021, 18: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 : 1781
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 31/8/2021, 18: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
    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Listbox desvinculada

    Mensagem  wal97 1/9/2021, 08: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 : 1781
    Registrado : 13/12/2016

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

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

    Waldemar,

    Quais são os valores que vc quer somar?
    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Quantidade de Registros Listbox desvinculado Empty Valores

    Mensagem  wal97 1/9/2021, 12: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 : 1781
    Registrado : 13/12/2016

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

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

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

    Aguarde.

    []'s

    FIM

      Data/hora atual: 22/9/2021, 20:49