Combobox duplicates

• • Reply

  5 years ago

  by bronx

  bronx

  , South Africa

  Joined 11 years ago

  Hi

  How can I remove duplicates that are displayed in a combo box when the user clicks on it.

   

  Thanks 

  Report abuse
• • Reply

  5 years ago

  by anmol gupta

  anmol gupta

  , India

  Joined 5 years ago

   Private Sub Combo1_Click()
      
      Dim sTMP As String
      Dim i As Integer
  
      sTMP = Combo1.Text
  
      For i = Combo1.ListCount - 1 To 0 Step -1
          If Combo1.List(i) = sTMP And Combo1.ListIndex <> i Then Combo1.RemoveItem i
      Next i
  
  End Sub
  
  
  

  Report abuse
• • Reply

  5 years ago

  by bronx

  bronx

  , South Africa

  Joined 11 years ago

  Hi

  This code doesn't seem to be the solution. I need it to clear all the duplicates in a combo box that maybe there in the gotfocus event of the combo box.

   

  Thanks 

   

  Report abuse
• • Reply

  5 years ago

  by anmol gupta

  anmol gupta

  , India

  Joined 5 years ago

  Try this,

  Private Sub Combo1_GotFocus()
   
  Dim i As Integer, n As Integer
  
  For i = 0 To Combo1.ListCount - 1
      For n = Combo1.ListCount - 1 To 0 Step -1
          If i <> n Then
              If Combo1.List(n) = Combo1.List(i) Then Combo1.RemoveItem n
          End If
      Next
  Next
  
  Me.Refresh
  Combo1.Refresh
  
  End Sub
  
   

  Report abuse
• • Reply

  5 years ago

  by bronx

  bronx

  , South Africa

  Joined 11 years ago

  Thanks it works but seems to be slow. Do you perhaps know how I could possibly remove them in the Access database before loading into the combobox?

   

  Thanks 

  Report abuse
• • Reply

  5 years ago

  by chvsudhakar

  Venkata Sudhakar Chitturi

  Hyderabad, India

  Joined 8 years ago

  In SQL Statement use distinct keyword....

   Ex: Suppose you are retreiving StudentTowns from Student Table. Then the SQL Statement will be like this...

  Select distinct StudentTowns from Students.

  Report abuse