access Estoque

tabela Pedido

campo Clientes

Fiz esta rotina para pegar as lojas direto do banco de dados

Do While Not Pedido.EOF
Combo1.AddItem Pedido("Cl")
Pedido.MoveNext
Loop

 

A rotina esta funcionando bem, mas se o bd tiver dois clientes com o nome Vbweb, aparece duas vezes no combo

Como eu faco para aparecer apenas um , quando repitir 

 

dim rst as recordset

set rst = vgdb.openrecordset("select distinct clientes form pedido"

Do While Not rst.EOF
Combo1.AddItem Pedido("clientes")
rst.MoveNext
Loop

 

Matini, nao deu certo ate coloquei ")" no final

Fica amarelo a linha

assim funciona:

 

Dim vgdb As Database

Private Sub Form_Load()
  Set vgdb = OpenDatabase("C:Documentos_AndréTempBancoDeDados.mdb")
  Dim rst As Recordset
  Combo1.Clear
  Set rst = vgdb.OpenRecordset("SELECT DISTINCT Pedidos.[Codigo do cliente] From Pedidos ORDER BY Pedidos.[Codigo do cliente];")
  Do While Not rst.EOF
    Combo1.AddItem rst![Codigo do cliente]
    rst.MoveNext
  Loop
  If Not rst Is Nothing Then
    rst.Close
    Set rst = Nothing
  End If
End Sub

do jeito q a galera falou funciona.

 

eu também uso o distinct e funciona.

 

qualquer dúvida posta ae.