E
Eric
This code doesn't seem to work; I'm expecting my list to look empty after
runnign it but it doesn't.
Dim iCount As Long
' clear it out first
If aTargetLst.ListCount > 0 Then
For iCount = 0 To aTargetLst.ListCount
If Not IsNull(aTargetLst.ItemData(iCount)) Then
aTargetLst.RemoveItem (iCount)
End If
Next iCount
aTargetLst.Requery
End If
TIA,
Eric
runnign it but it doesn't.
Dim iCount As Long
' clear it out first
If aTargetLst.ListCount > 0 Then
For iCount = 0 To aTargetLst.ListCount
If Not IsNull(aTargetLst.ItemData(iCount)) Then
aTargetLst.RemoveItem (iCount)
End If
Next iCount
aTargetLst.Requery
End If
TIA,
Eric