[Resolvido]Quantidade de Registros Listbox desvinculado

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

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

Boa tarde, Alexandre,
Segue banco anexo.
Agradeço desde já a ajuda.

Valeu Waldemar,

Ja baixei seu exemplo e vou fazer os devidos ajustes.

Aguarde.

Att,

FIM

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:




É isso.

Segue versão atualizada.

Espero ter ajudado.

Boa sorte.

[]'s

FIM

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

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

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.

Waldemar,

Quais são os valores que vc quer somar?

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

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

Aguarde.

[]'s

FIM