Listbox Error with only 5 columns (Could not set list property. Invalid property error)

[RawlinsCross]

Good day,

I have two userforms - the first has a listbox with the column count set at 5, the second a combination of textboxes, labels, and comboboxes that the user selects. When selection is complete and a button is clicked, the listbox on the first userform is updated with the choices - pretty simple right? Well, the listbox is updated correctly the first 4 of the 5 columns and I can't understand why it won't accept the last column.

Here's the code - I wonder if someone could lend some visibility here.

Private Sub iSubmit_CLick()

Dim frm As Object

For Each frm In VBA.UserForms
    If frm.Name = "WorkOrderGUI" Then
            With frm.lbAttachments
                .AddItem
                'Checking for column count
                MsgBox .ColumnCount 'Returns 5 so all good there
                .List(.ListCount - 1, 0) = Me.lblItem
                .List(.ListCount - 1, 1) = Me.cbDocType
                .List(.ListCount - 1, 2) = Me.tbDescription
                .List(.ListCount - 1, 3) = Me.tbPath
                .List(.ListCount - 1, 4) = Me.cbJobTask  'Fails here (Invalid property value)
                .BackColor = vbGreen
            End With
    End If
Next frm

End Sub

 

[Anthony47]

Maybe you have tio use

 .List(.ListCount - 1, 4) = Me.cbJobTask.Value  'Fails here (Invalid property value)

?

 

[RawlinsCross]

Hi Anthony47,

Yeah, tried that but to know avail - for the life of me I can't figure out why the indexes 0-3 work and the 4 index does not. Very odd. I even put "Me.cbJobTask" in the index 3 position and Me.tbPath in the index 4 position, the listbox accepted Me.cbJobTask in index 3 but again failed at index 4.

 

[Anthony47]

What happens if you reverse the position?

                .List(.ListCount - 1, 4) = Me.tbPath
                .List(.ListCount - 1, 3) = Me.cbJobTask  'Fails here (Invalid property value)

 

[RawlinsCross]

It continues to fail at index 4 no matter what order I place it in.

 

[Anthony47]

Indeed you had already given an answer, in your message #3

I suggest that you insert a new Listbox, with the same properties of your current lbAttachments; then delete the current one an rename the new one as lbAttachments; maybe that object got corrupted. If you try, do that on a copy of your original workbook

Bye

 

[dmt32]

It continues to fail at index 4 no matter what order I place it in.

Try adding line shown in bold & see if resolves your issue

Private Sub iSubmit_CLick()

Dim frm As Object

Me.cbJobTask.MatchRequired = False

For Each frm In VBA.UserForms
    If frm.Name = "WorkOrderGUI" Then
            With frm.lbAttachments
                .AddItem
                'Checking for column count
                MsgBox .ColumnCount 'Returns 5 so all good there
                .List(.ListCount - 1, 0) = Me.lblItem
                .List(.ListCount - 1, 1) = Me.cbDocType
                .List(.ListCount - 1, 2) = Me.tbDescription
                .List(.ListCount - 1, 3) = Me.tbPath
                .List(.ListCount - 1, 4) = Me.cbJobTask  'Fails here (Invalid property value)
                .BackColor = vbGreen
            End With
    End If
Next frm

End Sub

Dave

 

[RawlinsCross]

So mystery solved (I think). Originally I had 4 columns in the listbox and two items already in the listbox. Requirements changed and I had to add a 5th column. When I tried to add a third item, it would give me the error, so when I removed the two and added all three again, there was no problem.

Thanks for your suggestions and taking the time to provide them.