Clearing a simple multiselect listbox

[MikiH]

Hi all

I've got a multiselect listbox which is set to simple. The user selects certain records then presses a command button to print the records. This works no problem.

What I want to do is clear the listbox after printing the report.

I know if I set it to extended I can requery the listbox to clear it but I would perfer to keep set as simple.


Thanks
Miki

 

[MartinCurrie]

Add this code after the code which opens your report.

Dim intCount As Integer
For intCount = 0 To MyList.ListCount - 1
If MyList.Selected(intCount) = True Then
MyList.Selected(intCount) = False
End If
Next

 

[MikiH]

Hi

So simple when you know how. Works great.

Thanks a lot.

Miki.