Setting focus to an ID in a LISTBOX

[sarcher]

I have a Listbox that I would like to set focus to a specific RECORD_ID.
I have a process to where i bring up a form to add a new item to the Listbox an upon returning I would like for the Listbox to go to that specific record so I don't have to scroll down.

This is what I tried to use (on close button)

Private Sub Command4_Click()

Dim P_num As Integer

P_num = Me.ID_Project

DoCmd.Close

Forms![Finance Project Tracking]!List6.Requery 'Requeries the listbox

Forms![Finance Project Tracking]!List6.Selected(P_num) = True

End Sub

Probably need a SetFocus or something

Thanks
Stephen

[Gicu]

I think you want to use ItemData, have a look at the code below:

Public Sub ListboxSelectString(lstListbox As ListBox, strToSelect As String, Optional SelectDeselect As Boolean = True)
    Dim i As Integer
    For i = 0 To lstListbox.ListCount - 1
        If lstListbox.ItemData(i) = strToSelect Then
            lstListbox.Selected(i) = SelectDeselect
        End If
    Next i
End Sub

Cheers,