Anyone used listview control in Access

[Middlemarch]

Hi, trying to set up a unbound listview control in Access but running into a few problems and
can't get much info via Google. A lot of stuff my apply only to another platform (VB Net ?)


code

Private Sub Form_Load()
    Dim thelistview As ListItem
    Dim i As Integer
    With ListView0


   .ListItems.Clear
        .ColumnHeaders.Clear
    '.items.Clear()   >>>>  Error
    .ColumnHeaders.Add , , , 300
    .ColumnHeaders.Add , , "Field2", 1000
    .ColumnHeaders.Add , , "s", 300
    .ColumnHeaders.Add , , "Field3", 4500
    .View = lvwReport
    .GridLines = True
    .FullRowSelect = True
    .Checkboxes = True


   '.SortOrder = lvwAscending


    For i = 1 To 30
        Set thelistview = .ListItems.Add
        
        thelistview.SubItems(2) = "Test " & i
        thelistview.SubItems(3) = "5"
        thelistview.SubItems(4) = "3rd Column"
    Next
 
 End With
 
End Sub

Main problem is the .Clear instructions are failing, each time the Form opens the listview gets more columns.


The other things may be related to that, can anyone help me with that first? Thanks

[davegri]

I learned a bit about ActiveX controls while working on an Access app for the Windows Media Player. It might be helpful here.
You must have a VERY good reason to go thru this torture instead of using a native Access listbox.

ListView-davegri-v01.zip

End result:


Don't know if you're aware, but adding the ActiveX control to the form exposes these methods:


You need this reference:

[Middlemarch]

Thanks Davegri, I will devour all that. I like the checkbox functionality -and the column resize, but you're right it is torture!
I managed to make it behave after adding
.ListItems.Clear .ColumnHeaders.Clear
And I have the reference.
Cheers