Updating multi-select list box when paging through records

[mookie0001]

Hi,

I have a multi-select list box on a form populated by one of my tables. On each load of the form, a VB script is run to select each item in the list box that is present in my table. This works great for the first record. The code I use is --Private Sub Form_Load()-- to launch the script initially.

My problem arrives when I press the next record button to cycle through each page (the default Access buttons at the bottom). I can not figure out how to fire off the script with each page update. Your help is greatly appreciated.

Thanks,
-Chris

 

[pdldavis]

Hi,
Your listbox after update property should contain something like this, which finds the record that matches your listbox.

Private Sub YourListbox_AfterUpdate()
' This finds the record that matches your listbox selection.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[yourfield] = '" & Me![YourListBox] & "'"
Me.Bookmark = rs.Bookmark
End Sub

You also need the contents of the list box to match the current record you are viewing on your form. Place something like this in the form's Current properties:

Private Sub Form_Current()
YourListbox = [yourfield]

Hope that helps.

 

[mookie0001]

That solved my problem. Thank you so much!

-Chris