[Resolvido]Agrupar e Ordenar Combobox com o método AddItem

Caros amigos,

Estou criando uma rotina para preencher a listbox e

as combobox de um formulário não acoplado.

As combobox que carrego são da Tab_Lctos, portanto as mesmas tem valores repetidos.

Gostaria de saber se é possível agrupar e ordenar as combobox com o método abaixo:

Private Sub Preenche_Combos()
Dim rs As Recordset
Dim caminho As String
caminho = "G:\BD_MMATRIZ.mdb"
Set dbBanco = OpenDatabase(caminho)
Set rs = dbBanco.OpenRecordset("SELECT TOP 100 * FROM Tab_Lctos order by CÓD DESC")
Do While Not rs.EOF
Lista_Lcto.AddItem rs!CÓD & ";" & rs!DATA & ";" & rs!CTRC & ";" & rs!VIAGEM & _
";" & rs!FATURAMENTO & ";" & rs!PLACA & ";" & rs!MOTORISTA & ";" & Format(rs!VALOR_CTRC, "currency") & ";" & rs!PASTA
Loc_Reg.AddItem rs!CÓD
Nome_Cliente.AddItem rs!Nome_Cliente
Unidade.AddItem rs!FATURAMENTO, ListRows
Tipo.AddItem rs!tipo_de_frete
Coleta.AddItem rs!Coleta
Destino.AddItem rs!ENTREGA
Nome_Motorista.AddItem rs!MOTORISTA
Placa_Veiculo.AddItem rs!PLACA
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
dbBanco.Close
Set dbBanco = Nothing

End Sub

Desde já agradeço,

Sds,

Charles Sestrem

Boa tarde,

Agrupe no código SQL
Set rs = dbBanco.OpenRecordset("SELECT TOP 100 * FROM Tab_Lctos GROUP BY ...")

Bom dia Alexandre,

Obrigado pela resposta, é que eu estava tentanto uma solução para carregar

a listbox e as combos com apenas um recordset, mas não ficou viável.

Vou carregar apenas a listbox, e quanto as combos, vou procurar a melhor forma de fazer.

Sds,

Charles Sestrem

Bom dia Charles;

Você pode carregar a sua combo pelo RowSource, não sei se ajuda;

Me.SuaCombo.Value = ""
Me.SuaCombo.RowSource = ("SELECT TOP 100 * FROM Tab_Lctos GROUP BY ...")
With Me
.SuaCombo.Requery
.SuaCombo.SetFocus
.SuaCombo.Dropdown
End With

Bom dia JPaulo,

Valeu mesmo.

Só não to conseguindo acertar a syntaxe do Like no final:

Vc pode me dar uma força? É porque tem campos em branco na

lista.

rs.Combo.RowSource =("SELECT Campo FROM Tabela GROUP BY Campo Like '" * "'; ")

Sds,

Charles Sestrem

Amigão não testei, mas se não estou errado é assim;

rs.Combo.RowSource = ("SELECT Campo FROM Tabela WHERE Tabela.Campo Like '*' GROUP BY Campo ")

Valeu JPaulo,

Obrigadão mais uma vez.

Era somente aspas simples.

Não sei por que no VBA a sintaxe do sql muda, e a gente acaba

se confundindo.

Valeu mesmo, até a próxima...rssss

Sds,

Charles Sestrem

Valew pelo retorno, o fórum agradece.

Caro chsestrem,

Sou iniciante e como todos, erro por não ter conhecimento... mas depois que inventaram os foruns e o google, ficou mais facil um pouquinho, rsrs.
depois de muita pesquisa algo que parece bobo mas que pra mim era problema se resolveu...

no inicio deste post, no exemplo que colocou estava a minha solução: como colocar mais de uma coluna numa combo... basta concatenar o ponto e virgula
muito obrigado...

Código:

sql = "SELECT " & CodigoCampo & ", " & DescricaoCampo & " FROM " & Tabela
Call fncConexao
'abre o recorddset com os dados retornados
Set rs = db.OpenRecordset(sql, dbOpenForwardOnly)
With rs
Do Until .EOF 'percorre o recordset ate o fim
          'inclui os itens correspondentes
          Controle.AddItem rs(DescricaoCampo) [b]& ";" &[/b] rs(CodigoCampo)
          .MoveNext
          Loop
          'fecha o recordset
          .Close
End With