Hi All,

I want to do a simple things in VB. Just populate one combo box where empID, and empName will store, and click on any selected list the empID will catch up.

To make it short I used dummy code, here it is below:

====================CODE=========================
Private Sub Form_Load()
    Dim iLoop As Long

    iLoop = 1
    For iLoop = 1 To 2
        If iLoop = 1 Then
            Form1.Combo1.ItemData(iLoop) = iLoop
            Form1.Combo1.AddItem ("Account")
        Else
            Form1.Combo1.ItemData(iLoop) = iLoop
            Form1.Combo1.AddItem ("Sales")
        End If
    Next
End Sub
=================================================

But it shows error, and do not able to get empID.

Any idea.:(

Thanks a lot.

Populate

Thanks!
Populate

Hi,
There is an error in your code. Just change the code as follows and it will work.
-------------------------------------
Private Sub Form_Load()
    Dim iLoop As Long

    iLoop = 1
    For iLoop = 1 To 2
        If iLoop = 1 Then
            Form1.Combo1.AddItem "Account", iLoop
            Form1.Combo1.ItemData(iLoop) = iLoop

        Else
            Form1.Combo1.AddItem "Sales", iLoop
            Form1.Combo1.ItemData(iLoop) = iLoop
        End If
    Next
End Sub


Software proffesional from Bangalore,INDIA