[Finally Resolved]Combo Box Issue

[vasanth2979]

I have 2 combo box(cmbsource, cmbdestination) with names of cities in the list,

Goods transfer happen from Source(cmbsource) to Destination(cmbdestination)

Now what i need to know is how to stop the user from picking up the same city in source and destination?

[Shuja Ali]

If the data present is same in both the comboboxes and both of them are sorted, then you can use ListIndex property of the combobox to check if the user has selected the same city in both the comboboxes.

[Mark Gambo]

I have 2 combo box(cmbsource, cmbdestination) with names of cities in the list,

Goods transfer happen from Source(cmbsource) to Destination(cmbdestination)

Now what i need to know is how to stop the user from picking up the same city in source and destination?

Why not dynamically load the second Combobox after the user selects the Source City and omitting the selected city from the second combobox when it is loaded.

[shakti5385]

I have 2 combo box(cmbsource, cmbdestination) with names of cities in the list,

Goods transfer happen from Source(cmbsource) to Destination(cmbdestination)

Now what i need to know is how to stop the user from picking up the same city in source and destination?

For this you have to check the conbo box fro the data... if it is found the you can use your condition... you can use the ListCount Property for it

[MartinLiss]

Private Sub cmbdestination_Click()
 
    If cmbdestination.Text = cmbsource.Text Then
        MsgBox "Sorry, the destimation can not be the same as the source"
        cmbdestination.ListIndex = -1
    End If
    
End Sub

[vasanth2979]

Guys,

I have done the same code what Martinliss has given me.What Im asking is, Is there any way i can make the city selected in combo1 not appear in combo2?.

[vasanth2979]

Mark,

How do i dynamically load a combo box???

Got any links that can help me?


Thanx

[Hack]

If the cities are stored in database tables (source table - destination table) then you would need to create a "link" between the two tables which would match source with destination. Some like a destination code.

When a person selects a source, you would query the destination table and load the other combo with cities that match the source cities destination code.

Make sense?

[vasanth2979]

Hack,

I use only one table to load both the combo

[GMKK]

In the first combo box's click event you can list out the items of second one.While listing out the second combo box's list just skip the selected item of first combo.

[Shuja Ali]

HOw about something like this

Private Sub ComboBox1_Click()
    ComboBox2.List = ComboBox1.List
    ComboBox2.RemoveItem ComboBox1.ListIndex
End Sub

[vasanth2979]

Thank You Shuja Ali,

I will try your code and inform you of the result.

[vasanth2979]

The code required some modification so wrote the following code.

Private Sub CmbSource_Click()
   CmbDestination = CmbSource
   CmbDestination.RemoveItem Cmbsource.ListIndex
End Sub

This code works fine if the first item is selected in Combo1(It is removed from Combo2) but if i select any other item "Invalid Procedure call or arguement" Error is generated.

What may be the Reason?

[chemicalNova]

This code:

CmbDestination = CmbSource

Will not add the contents of the first combobox. When you try and remove anything greater than the first index, this error occurs, because there isn't more than 1 item in the CmbDestination Combobox.

chem

[vasanth2979]

You are Right Chemical Nova,

I did correct the code to

CmbDestination.List = CmbSource.List

But now i get a error saying 'Arguement not optional'

[chemicalNova]

You have to manually add them beforehand:

Dim i As Integer
For i = 0 To Combo1.ListCount - 1
Combo2.AddItem Combo1.List(i)
Next i

chem

[vasanth2979]

Ok Chem,

Will try it and thank you

[vasanth2979]

Chem,

I did write the following code

Private Sub CmbSource_Click()
Dim i as integer
 For i = 0 to CmbSource.ListCount - 1
    CmbDestination.AddItem CmbSource.list(i)
 Next i
CmbDestination.RemoveItem CmbSource.ListIndex
End Sub

Combo Box 2 doesnot have Combo1 value but the other values repeat themselves twice!! Any Clue what is happening?

Im stuck with this problem for last two days!!!

[kows]

Actually, the values only repeat themselves if you select an item from cmbSource, and then select another after that. Simple fix, clear the second ComboBox before copying the stuff over.

Private Sub cmbSource_Click()
  Dim i As Integer
  cmbDestination.Clear  'added this line
  For i = 0 To cmbSource.ListCount - 1
    cmbDestination.AddItem cmbSource.List(i)
  Next i
  cmbDestination.RemoveItem cmbSource.ListIndex
End Sub

[vasanth2979]

Thank you Kows, It worked finally