how to reset listbox & cb box to first item after clearing

[Peter Bailey]

I have a function courtesy of the newsgroup that clears the list box. I
would like to now set the listbox back to its initial state where you can
see the first item in the list. The same goes for a combo box I am not sure
after clearing how to get it back to show the first item.

Regards
Peter

Function ClearList(lst As ListBox) As Boolean
If lst.MultiSelect = 0 Then
lst = Null
Else
For Each varItem In lst.ItemsSelected
lst.Selected(varItem) = False
Next
End If
End Function

[Larry Linson]

Look in Access VBA Help for ItemData. Without looking it up, I would guess
the code would read...

Me!lstX = Me!lstX.ItemData(0)

Larry Linson
Microsoft Access MVP

"Peter Bailey" <pe*********@andaluz.fsbusiness.co.uk> wrote in message
news:ci**********@newsg3.svr.pol.co.uk...

I have a function courtesy of the newsgroup that clears the list box. I
would like to now set the listbox back to its initial state where you can
see the first item in the list. The same goes for a combo box I am not sure after clearing how to get it back to show the first item.

Regards
Peter

Function ClearList(lst As ListBox) As Boolean
If lst.MultiSelect = 0 Then
lst = Null
Else
For Each varItem In lst.ItemsSelected
lst.Selected(varItem) = False
Next
End If
End Function

[Peter Bailey]

stupid me tried this;
Me!lstX.ItemData(0)

thanks Larry

"Larry Linson" <bo*****@localhost.not> wrote in message
news:2dI4d.9925$Bg5.4815@trnddc07...

Look in Access VBA Help for ItemData. Without looking it up, I would guess
the code would read...

Me!lstX = Me!lstX.ItemData(0)

Larry Linson
Microsoft Access MVP

"Peter Bailey" <pe*********@andaluz.fsbusiness.co.uk> wrote in message
news:ci**********@newsg3.svr.pol.co.uk...

I have a function courtesy of the newsgroup that clears the list box. I
would like to now set the listbox back to its initial state where you can see the first item in the list. The same goes for a combo box I am not

sure

after clearing how to get it back to show the first item.

Regards
Peter

Function ClearList(lst As ListBox) As Boolean
If lst.MultiSelect = 0 Then
lst = Null
Else
For Each varItem In lst.ItemsSelected
lst.Selected(varItem) = False
Next
End If
End Function