Hola necesitaria un codigo para que no se repitan los elementos en un combo al cargar los datos desde una base de datos..

este es el codigo de como los cargo:

P1AdoRemitos.Recordset.MoveFirst
Do While Not P1AdoRemitos.Recordset.EOF
P2CmbCliente.AddItem P1AdoRemitos.Recordset("Cliente")
P1AdoRemitos.Recordset.MoveNext
Loop

muchas gracias!

Hola yoprobaria lo siguiente

Si en el momento de cargar los datos enel combo, el combo no tiene datos. Directamente traeria los datos sinduplicados al recordset mediante sql

Si el combo ya tiene datos, cargaria todo en el combo, con elementos repetidos, y cuando terminaste de pasar el recordset al combo, ahi elimino los duplicados

te paso una funciónde esto último

Verificalo por que lo hice en base a un ejemplo pero para un listview ( creo que está bien )

Código:

Option Explicit
Private Function Eliminar_Item_Listview(ListBox As ListBox) As Long
Dim x As Integer, k As Integer, ret As Long
 For k = 0 To ListBox.ListCount - 1
 For x = k + 1 To ListBox.ListCount - 1
 If ListBox.List(k) = ListBox.List(x) Then
 ListBox.RemoveItem x
 x = x - 1
 ret = ret + 1
 End If
 If x = ListBox.ListCount - 1 Then
 Exit For
 End If
 Next
 If k = ListBox.ListCount - 1 Then
 Eliminar_Item_Listview = ret
 Exit Function
 End If
 Next
End Function
Private Sub Command1_Click()
 MsgBox Eliminar_Item_Listview(ListBox1), , "Repetidos "
End Sub
Private Sub Form_Load()
 Dim i As Integer
 'Agrega
 For i = 0 To 10
 ListBox1.AddItem i
 Next
 ' añade duplicados
 For i = 0 To 10
 ListBox1.AddItem i
 Next
End Sub

Hola,mira hace mucho preguntaron lo mismo y respondi con esta funcion:

Código:

Public Sub Duplicados(Combo1 As ComboBox)
Dim Search1 As Long
Dim Search2 As Long
Dim KillDupe As Long
KillDupe = 0
For Search1& = 0 To Combo1.ListCount - 1
For Search2& = Search1& + 1 To Combo1.ListCount - 1
KillDupe = KillDupe + 1
If Combo1.List(Search1&) = Combo1.List(Search2&) Then
Combo1.RemoveItem Search2&
Search2& = Search2& - 1
End If
Next Search2&
Next Search1&
End Sub

y lo llamas asi, por ejemplo:

Private Sub Form_Load()
Duplicados Combo1
End Sub

saludos.

Infinitas gracias Seba. Hace un tiempo que estaba renegando con este tema. Había hecho una función pero demoraba bastante. despues de ver tu ejemplo se me aclararon muchas cosas. Gracias nuevamente