Hi,

Nice to see everything is back up and running!! Looks great!!!

Does anyone now if it is possible to highlight rows in a listbox depending on certain critiria of an integer field?????

Many Thanks




Tim

__________________
Tim

Hi,

set the property MultiSelect to simple for your listbox [in access 97] and try something like this. The name of the listbox is List1

    Dim iCount As Integer

    For iCount = 0 To list1.ListCount - 1
        If **whatever test you want to do*** Then
            list1.Selected(iCount) = True
        End If
    Next iCount

You can use the Selected property in VB to determine if an item in a list box is selected.

I hope this will help you.

Psychadelic,

Thanks for the piece of code!! It works fine!!!!! BUT, before I decided to put this "Highlight" facility in users were able to click on any item in the list box and a subform would be displayed showing the full record details corresponding with their selection. Now that the List box is set to MultiSelect it breaks on the item double-click event.

The following code is behind the double click event :

Private Sub List23_DblClick(Cancel As Integer)

            Me.RecordsetClone.FindFirst "[ID] = " & Me!List23.Value
            Me.Bookmark = Me.RecordsetClone.Bookmark
            Me.Page12.SetFocus
            DoCmd.OpenQuery "Open Requests, acViewNormal"
            DoCmd.Close acQuery, "Open Requests"

End Sub

I thought about trying to chang the MultiSelect property to 0 as the first line of the Sub but not sure how to get it working. Any advice would be greatly appreciated!!

Many thanks


Tim

Hi again timmaher,

and I'm sure glad to help. When there are multiple selections in a list box, the value of the list box control will always be Null and you can't set the MultiSelect in run time mode...

But you can try this one when a user double click on the listbox :

   If list1.ListIndex <> -1 Then
       ' debug.print list1.ItemData(list1.ListIndex)
       ' put any code you want here and use list1.ItemData(list1.ListIndex) instead of list1.value
   End If

psychadelic

Thanks again for you help,

Im a bit wet behind the ears when it comes to VBA, Is ther any way you could combine the suggestion you wrote :

If list1.ListIndex <> -1 Then
' debug.print list1.ItemData(list1.ListIndex)
' put any code you want here and use list1.ItemData(list1.ListIndex) instead of list1.value
End If

with the double click event i already have as im totally confused:

Private Sub List23_DblClick(Cancel As Integer)

Me.RecordsetClone.FindFirst "[ID] = " & Me!List23.Value
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.Page12.SetFocus
DoCmd.OpenQuery "Open Requests, acViewNormal"
DoCmd.Close acQuery, "Open Requests"

End Sub


many thanks again



Tim

Hello,

Sorry for the delay I was off this week-end. I tried part of your code in a form bound to a table. On the double click event just add the following:
You can now use the MultiSelect with this double click event.

Have a nice day,

psychadelic

Thanks again for helping me out!!!!!!! REALLY appreciate your help with this.

Your code works great!1 Cant thank you enough!!!!!

:D

thanks again!!!

Tim