Combobox Sem Dados Duplicados

[melissa_ff]

Como exibir dados não duplicados em um combobox.Tenho um campo data que desejo mostrar no combo, mas sem repeticao.Tentei o distinct do select e não consegui.

[Bruno Krebs]

Não ficou muito claro o problema, as datas são adicionadas automaticamente? e fora de ordem? Bom porque você não tenta um laço de repetição que leia a primeira data e veja se nenhuma abaixo é igual, e o mesmo com a segunda terceira, e assim por diante.

[melissa_ff]

É o seguinte:

Tenho um formulario chamado relatorio onde eu preciso imprimir o relatorio correspondente a data selecionada no combo.So que no banco há , em um so dia, varios registros com a mesma data.Quero mostrar no combo a data e , ao selecionar-la, o relatorio é gerado com todos os registros daquela data. Mas so consigo mostrar as datas repetidas.Pensei que o distinct resolveria...mas não.

É isso.

[Joaozava]

Quando você for fazer a busca na base de dados pra preencher a combo use uma instrução sql usando "GROUP BY".

sql = "Select  NomeCampo From Tabela GROUP BY NomeCAmpo"

Entendeu??

[melissa_ff]

Eu coloco essa instrucao antes de adicionar o campo na combo?E em qual evento? FormLoad?

[Joaozava]

Essa instrução é que vai buscar os dados no banco de dados pra preencher a combo, qual evento você estava usando pra preencher a combo??

acredito que você pode colocar no mesmo evento que estava usando ...

como você estava fazendo a pesquisa pra buscar as datas no banco de dados??

[melissa_ff]

Estou fazendo assim:

Private Sub Form_Load()

frmReld.Height = 1665

Set Data1.Recordset = db.OpenRecordset("SELECT distinct dat FROM AgendaSemanal")

Data1.Refresh

cmbdia.AddItem Data1.Recordset!Dat

End Sub

[Joaozava]

Private Sub Form_Load()

Dim rs as Recordset

 set rs = db.OpenRecordset ("Select  Dat From AgendaSemanal GROUP BY Dat")

While not rs.EOF 
    cmbdia.AddItem rs!Dat
    rs.MoveNext
wend

End Sub

Tente fazer assim.... se não errei nada acredito que de certo

[melissa_ff]

Maravilha!

Valeu amigo!

Mel

[William Rodrigues]

Qualquer coisa é só dar um toque Mel

Abraços,

William Rodrigues