Using Access97 I am trying to run the following code from the On Click
property of a list box. The problem is even I have selected an item in
the list box the code tells me none were selected.  Help.

Set ctlLst = Forms!frmResults!lstMsgs
For Each item In ctlLst.ItemsSelected
     OldFile = ctlLst.ItemData(item)
Next item

My name is Joseph Moore.  Thank you for using the Microsoft Access
Newsgroups.

What is the exact error message that you are receiving?  Also, please send
your code again and include the variable dimensions.  Thanks!

I hope this helps!  If you have additional questions on this topic, please
respond back to this posting.

Regards,

Joseph Moore
Microsoft Access Engineer

This posting is provided 'AS IS' with no warranties, and confers no rights.
You assume all risk for your use. ? 2001 Microsoft Corporation. All rights
reserved.