Selecting the first Record in a Query

[MadTom]

I have a search form (frmSearch) that returns records from a strSql code in VBA. I would like to select the first record in the unbound list box (lstSearch) after I do a search. I tried to use Me![lstSearch].SetFocus but only underlines the first record and

DoCmd.GoToRecord , , acFirst doesn't work

. I would like to have the first record selected as if I clicked on it after I do a search, which would be highlighted. Been searching for code to do this. RowSource is a Select Query and changes with RowSource = strSql statement.


Thanks!
Tom

[pbaldy]

Try

Me.lstSearch= Me.lstSearch.ItemData(0)

[MadTom]

Thanks, that's it. After hours of searching for one line. But why doesn't the pgup and pgdn keys work? Would like the End, PgUp, PgDn keys to work.

Tom

[MadTom]

OK, if I use

Me![lstSearch].SetFocus the PgUp and PgDn work, but End doesn't work?

[pbaldy]

Never tried it, but it doesn't appear to work for me in a listbox that has focus anyway.

[MadTom]

Thanks! I added buttons and used

Me.lstSearch= Me.lstSearch.ItemData(0)
Now I have what I needed and learned something new.

Private Sub btnFirstRecord_Click()
    On Error Resume Next
    Me.lstSearch = Me.lstSearch.ItemData(0)
End Sub


Private Sub btnLastRecord_Click()
    On Error Resume Next
    Dim LastRow As Integer
    LastRow = Me.lstSearch.ListCount - 1
    Me.lstSearch = Me.lstSearch.ItemData(LastRow)
End Sub

[pbaldy]

Happy to help!