Update Unbound List Box from Form

[Peter Noneley]

Hello,

I have Form with a Unbound List box that I use to find records on the
same Form.

It works great.

[My Question]
When I move through records on the actaul Form, (such as with PageUp /
PageDown), how do I get the List to highlight the same record?

[What I Tried]
I tried tinkering with the Bookmarks, but could not see what to do.
I tried Refreshing the List, but that does not do it.
I tried looking at an On Key Press event on the Form.
I think I am in the right area, I just cant see how to put it
together.

Thanks for even the briefest of help.

Thanks.

[This is is List code.]
Private Sub List26_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[PersonID] = " & Str(Nz(Me![List26], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

 

[NG]

Hi peter:

try in the Oncurrent event of the form

me.List26= me.PersonID

 

[Peter Noneley]

Hi peter:

try in the Oncurrent event of the form

me.List26= me.PersonID

--
Kind regards
Noëlla

Hello,

I have Form with a Unbound List box that I use to find records on the
same Form.

It works great.

[My Question]
When I move through records on the actaul Form, (such as with PageUp /
PageDown), how do I get the List to highlight the same record?

[What I Tried]
I tried tinkering with the Bookmarks, but could not see what to do.
I tried Refreshing the List, but that does not do it.
I tried looking at an On Key Press event on the Form.
I think I am in the right area, I just cant see how to put it
together.

Thanks for even the briefest of help.

Thanks.

[This is is List code.]
Private Sub List26_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[PersonID] = " & Str(Nz(Me![List26], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub- Hide quoted text -

- Show quoted text -

Me.Happy=Noella.Thankyou !