Select ComboBox Item

[Zephaneas]

I'm loading a combo box like this

Private Sub LoadProjectInfos()
    
    Set projectInfos = GetProjectInfosForChangeOrder()

    For Each projectInfo In projectInfos

        cboProject.AddItem CStr(projectInfo.ProjectID) & ";" & _
                           projectInfo.Project & ";" & _
                           projectInfo.Company & ";" & _
                           projectInfo.City

    Next

End Sub

I've tried a few different ways to select the combo box item using the project Id but I can't get it to work. Sometimes it errors, sometimes nothing happens.

What's the right way to do this?

[fafalone]

cboProject.ListIndex = x
where x is the 0-based index of the item you want selected

You can't set it like that using the contents of the item. When you're adding the items to the list, check for the one you want selected then save the index for after the loop.
Or, you can add a .index field, fill it in as you add them to the list, then search each member later when you want to set it.

If the user is going to be modifying things, you might just have to do a search, but that's the least efficient way of doing things.

[Eduardo-]

I'm loading a combo box like this

Private Sub LoadProjectInfos()
    
    Set projectInfos = GetProjectInfosForChangeOrder()

    For Each projectInfo In projectInfos

        cboProject.AddItem CStr(projectInfo.ProjectID) & ";" & _
                           projectInfo.Project & ";" & _
                           projectInfo.Company & ";" & _
                           projectInfo.City

    Next

End Sub

I've tried a few different ways to select the combo box item using the project Id but I can't get it to work. Sometimes it errors, sometimes nothing happens.

What's the right way to do this?

For Each projectInfo In projectInfos

    cboProject.AddItem...
    cboProject.ItemData (cboProject.NewIndex) = projectInfo.ProjectID
Next

And to select a item by Project ID:

Private Sub Command1_Click()
    Dim iPpprojectID as Long

    iProjectID = Clng(InputBox ("Enter the project ID:")
    If not SelectInComboByItemData(iProjectID) Then
        Msgbox "Not Found"
    End If
End Sub

Private Function SelectInComboByItemData(nCombo As ComboBox, nItemData As Long) As Boolean
    Dim c As Long
    
    SelectInComboByItemData = True
    For c = 0 To nCombo.ListCount - 1
        If nCombo.ItemData(c) = nItemData Then
            nCombo.ListIndex = c
            Exit Function
        End If
    Next c
    SelectInComboByItemData = False
End Function

[LaVolpe]

The string being added looks like MS Access combobox. Is that the case?

[Zephaneas]

OK, so I tried what you gave me

LoadPhases
For C = 0 To cboPhases.ListCount - 1
    If cboPhases.ItemData(C) = selectedChangeOrder.JobID Then
        cboPhases.ListIndex = C
        Exit For
    End If
Next

On the "cboPhases.ListIndex = C" line I get the error "You've used the ListIndex property incorrectly".

I tried this

cboPhases.selected(C) = True

and it runs, but the item is not selected.

[SamOscarBrown]

To "select" that item in the combobox, use:

cboPhases.SelLength = Len(cboPhases.Text)