Boa tarde

 

Tenho uma tabela clientes com um campo chamado cidade onde armazeno o nome da cidade do cliente , gostaria de preencher uma combo com todas as cidades dos clientes cadastrados , mas sem duplicá-los na combo .

Obrigado pela ajuda

 

select distinct cidade from clientes order by cidade

coloque isso no seu form

 

Sub Carrega_Cbo_Cidade(FORMU As Form)
axsql = "SELECT Cidade AS A FROM Tabela"
Set MSS = New ADODB.Recordset
MSS.Open axsql, con
While Not MSS.EOF
FORMU.combo1.AddItem MSS("A")
MSS.MoveNext
Wend
End Sub

 

ai no seu form load coloca 

Carrega_Cbo_Cidade Form1

 

falow um abraço

mauricio eu uso este comando com o Dao, carrego no meu caso no form_load

 

set tb = db.openrecordset("SELECT Cidade FROM Clientes")

if not tb.eof then tb.moveMax ' se não uso isto o meu recordcount não atualiza

if not tb.bof then tb.moveMin

for x = 1 to tb.recordcount

   combo.additem tb("Cidade")

   tb.movenext

next x

tb.close

set tb = nothing

 

onde esta moveMax troque por "M o v e L A S T" sem o espaço e sem aspas

onde esta moveMin troque por "M o v e F I R S T" sem o espaço e sem aspas

comigo funciona bem

espero ter ajudado

 

Mineirop

Combo(n).clear - tentou isto?