[Resolvido]Popular ListBox em Form.desvinculado

Comecei agora a trabalhar com Form.Desvinculados das Tabelas, e logo no início já me enrosquei.

Como popular uma ListBox com os dados da tabela, sem que a tabela fique vinculada ???

Agradeço se alguem puder dar uma ajuda.

Abraços.

ListBox descoplado

Vá para as propriedades e na aba Dados:

Troque o Tipo de Origem da linha para Lista de Valores
e na Origem da Linha coloque os cabeçalhos EX:

COD;Nome;Email


Na aba Formato:

Numero de colunas - 3
Cabeçalhos da Colunas - Sim
Larguras das Colunas - 1cm;2cm;2cm

Sua listbox esta pronta para receber os dados.

Agora no evento Ao Carregar do formulario:

Na declaração Geral

Dim rs as DAO.Recordset

Private Sub Form_Load()
CarregaLista
End Sub

Private Sub CarregaLista()
Set rs = CurrentDb.OpenRecordset("SELECT COD, Nome, Email FROM SuaTabela")
MinhaLista = ""
Do While Not rs.EOF
MinhaLista.AddItem rs!COD & ";" & rs!Nome & ";" & rs!Email
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub

chsestrem,

Entendi, só uma dúvida: Lista de valores - qual é o limite de caracteres para o campo Origem da linha ?

Pesquisei mas não consegui achar essa informação.

Fico muito agradecido pela ajuda.

Abraços,

No Campo Origem da Linha se vc quiser mostrar 10 campos por exemplo é só adicioná-los neste campo, mas tem que adicionar o numero de colunas e a largura das mesmas como já te expliquei.

Ai na Sql vc tem que adicionar os campos também. E na linha do AddItem vá acrescentando os campos.

Só tem um problema. Se a tabela tiver muitos dados a listbox vai dar erro.

Quando eu uso uma listbox assim, geralmente faço a sql com os ultimos 100 registros, no meu caso basta, mas se vc tiver que mostrar todos os registros o caminho é diferente.

Vai ter que usar o método RowSource.

chsestrem,

Eu já usava o RowSource, mas aí o Backend fica aberto.

Minha pergunta quanto ao limite de caracteres que o campo Origem da Linha aceita, foi justamente por isso, testei com uma tabela Cadastro de Pessoal, com 3600 registros, aí não funcionou, sendo que com poucos registro funciona que é uma maravilha.
Então terei que limitar a quantia de caracteres, só não sei quantos o campo vai aceitar.

Mas já deu um avanço no meu aplicativo.

Abraços,

Ops, esqueci do resolvido

Wano/chsestream/Jpaulo,

Estou mudando tambem para os forms desvinculados e me deparei com o dito problema . tenho uma tabela de mais de 3.000 clientes e preciso mostrar em uma combobox (ou similar) com duas colunas (codigo e Identificação) .

ja consegui via codigo, faze-la funcionar, observando os casos que vcs ja viram por aí... o detalhe é justamente oa limitação de tamanho. a minha combo está mostrando apenas um terço dos registro (cerca de 1000). que solução eu tenho para o caso?

Eu não Gostaria de voltar a vincular à tabela, pelos mesmos motivos ja vistos aqui .

hoje o codigo esta montado assim:


Public Sub CarregaControle(ByVal Controle As Object, Tabela As String, CodigoCampo, DescricaoCampo As String)

Dim rs As Recordset
Dim SQL As String
Dim varExcluido As String
Dim lListIndex As Long

'limpa o controle
With Controle 'Change to your combobox name
.SetFocus
For lListIndex = .ListCount - 1 To 0 Step -1
.RemoveItem (lListIndex)
Next lListIndex
End With

SQL = ""
varExcluido = "EXCLUIDO"
SQL = "SELECT " & CodigoCampo & ", " & DescricaoCampo & " FROM " & Tabela & " WHERE STATUS = 'ATIVO' ORDER BY [" & DescricaoCampo & "] ASC"

Call fncConexao

Set rs = db.OpenRecordset(SQL, dbOpenForwardOnly)

Controle.AddItem "Descrição;Código"
With rs
Do Until .EOF
Controle.AddItem rs(DescricaoCampo) & ";" & rs(CodigoCampo)
.MoveNext
Loop
.Close
End With

Set rs = Nothing
Exit Sub

SDS
PauloRW

Paulo,

Veja este post
http://maximoaccess.forumeiros.com/t5434-jornada-em-desvinculossala-de-situacao-carregamento-de-combobox