Combo Box

[Guest - Rodrigo -]

Gostaria de saber como eu coloco os dados do meu combo em ordem alfabetica...

Obrigado!

[jntk]

Tente algo como:

'declarando as variáveis'
Dim db As Database
Dim sql As String
Dim dyn As Dynaset

'indicar o banco de dados
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Data\database.mdb", False, False)
'indicar o sql
sql = "select * from controle order by campo"
Set dyn = db.CreateDynaset(sql)

'carregar no combo
Do While Not dyn.EOF
combo.AddItem dyn.Fields("campo")
dyn.MoveNext
Loop

O item "campo", é o campo de sua tabela que você quer ordenar em ordem alfabética.

Abraço,

[mariozneto]

Use:

Combo1.Sorted = True

Falow... T+