listview compileer fout

[harolda1980]

in de onderstaande code krijg ik kan gegevenslid of methode niet vinden.
Terwijl ik de juiste bibliotheken heb gekoppeld zoals ik vaker gebruik!

Iemand een idee hoe ik dit kan verhelpen?

De fout melding zit in:

lslocaties.ListItems.ListSubItems.Add , , rstrLoad!lc_naam

Complete code

Private Sub locaties_inladen()
Dim rstrLoad As ADODB.Recordset
Dim Strsql As String
Dim lv_item As Long
Dim code As String
    listviewini
        lv_item = 1
        Strsql = "SELECT tbl_loc.lcid, tbl_loc.lc_naam, tbl_bu.bun, tbl_loc.lc_dt FROM tbl_bu INNER JOIN tbl_loc ON tbl_bu.buid = tbl_loc.lc_bu;"
        
        Set rstrLoad = New ADODB.Recordset
        rstrLoad.Open Strsql, cnn_system, adOpenForwardOnly, adLockReadOnly
        
            lslocaties.ListItems.Clear
            Do While Not rstrLoad.EOF
                lslocaties.ListItems.Add , , rstrLoad!lcid
                lslocaties.ListItems.ListSubItems.Add , , rstrLoad!lc_naam
                lv_item = lv_item + 1
                rstrLoad.MoveNext
            Loop
        rstrLoad.Close
        Set rstrLoad = Nothing
End Sub

 

[harolda1980]

Even goed doorgezocht nog. Blijkt gewoon de verwijzing naar je kolommen niet meer te werken! "ListSubItems" En geken dat ik toch wel dezelfde bibliotheek gebruik en het besturingselement!

 

[Warme bakkertje]

Probeer het zo eens

Private Sub locaties_inladen()
Dim rstrLoad As ADODB.Recordset
Dim Strsql As String
Dim lv_item As Long
Dim code As String
    listviewini
        lv_item = 1
        Strsql = "SELECT tbl_loc.lcid, tbl_loc.lc_naam, tbl_bu.bun, tbl_loc.lc_dt FROM tbl_bu INNER JOIN tbl_loc ON tbl_bu.buid = tbl_loc.lc_bu;"
        
        Set rstrLoad = New ADODB.Recordset
        rstrLoad.Open Strsql, cnn_system, adOpenForwardOnly, adLockReadOnly
        
            lslocaties.ListItems.Clear
            Do While Not rstrLoad.EOF
                lslocaties.ListItems.Add , , rstrLoad!lcid
                lslocaties.ListItems[COLOR="red"](lv_item).[/COLOR]ListSubItems.Add , , rstrLoad!lc_naam
                lv_item = lv_item + 1
                rstrLoad.MoveNext
            Loop
        rstrLoad.Close
        Set rstrLoad = Nothing
End Sub