Run time Error 380, despite the value being calculated correctly.

[vbaNumpty]

Encountered a weird issue today as I added editing features to my UserForm. The fourth ComboBox is giving me a property value error when I try to populate it, despite the previous three working and the VBA editor calculating the value correctly.

The right side is returning a value, but the left side is giving me the invalid property. Code is as follows:

Private Sub EditButton_Click()

    If Selected_List = 0 Then
        
        MsgBox "No selection.", vbOKOnly + vbInformation, "Edit"
        Exit Sub
        
    End If
    
    Dim cSelect As Variant
    Dim oSelect As Variant
    Dim uSelect As Variant
    Dim ctSelect As Variant
    Dim iSelect As Variant
    Dim sSelect As Variant
        
    'code to update the value to the respective fields
    Me.txtRowNumber.Value = Selected_List + 1
    
    Me.ProductBox.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
    Me.PID.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
    Me.CaseQty.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
    Me.PackSizeBox.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
    Me.StageBox.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)
    Me.AssBox.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)
    Me.ColourBox.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 6)
    
    cSelect = Me.ListBox1.List(Me.ListBox1.ListIndex, 7)
    If cSelect = "" Then
        Me.CoverSelect.Value = False
    Else
        Me.CoverSelect.Value = True And Me.CoverBox.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 7)
    End If
    
    oSelect = Me.ListBox1.List(Me.ListBox1.ListIndex, 8)
    If oSelect = "" Then
        Me.OrnamentSelect.Value = False
    Else
        Me.OrnamentSelect.Value = True And Me.OrnamentBox.Value = IIf(oSelect = "Yes", Me.OrnamentBox.Value = "", Me.OrnamentBox.Value = oSelect)
    End If
    
    uSelect = Me.ListBox1.List(Me.ListBox1.ListIndex, 9)
    If uSelect = "" Then
        Me.UPCSelect.Value = False
    Else
        Me.UPCSelect.Value = True And Me.UPCBox.Value = IIf(uSelect = "Yes", Me.UPCBox.Value = "", Me.UPCBox.Value = oSelect)
    End If
    
    ctSelect = Me.ListBox1.List(Me.ListBox1.ListIndex, 10)
    If ctSelect = "" Then
        Me.CareTagSelect.Value = False
    Else
        Me.CareTagSelect.Value = True
    End If
    
    iSelect = Me.ListBox1.List(Me.ListBox1.ListIndex, 11)
    If iSelect = "" Then
        Me.InsulationSelect.Value = False
    Else
        Me.InsulationSelect.Value = True
    End If
    
    sSelect = Me.ListBox1.List(Me.ListBox1.ListIndex, 12)
    If sSelect = "" Then
        Me.SleeveSelect.Value = False
    Else
        Me.SleeveSelect.Value = True
    End If
    
    Me.NotesBox.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 13)
    
    MsgBox "Please make necessary changes and click on 'Add' to save changes.", vbOKOnly + vbInformation, "Edit"

End Sub

 

[diddi]

what type of object/control is PackSizeBox

 

[vbaNumpty]

what type of object/control is PackSizeBox

It is a combobox, similar to other three above it CaseQty, PID, and ProductBox. I have tried to assign the value of PackSizeBox to a variant and then replace the left side of the equation with the name of the variant and I no longer get the error. The problem now is that it is the only value of the seven items listed that does not populate the combobox with the calculated value.

 

[RoryA]

Does the value you are putting in the combobox appear in its current list of values?

 

[vbaNumpty]

Does the value you are putting in the combobox appear in its current list of values?

When I select the drop down, the values are present yes. It may be an issue of order perhaps?

 

[vbaNumpty]

When I select the drop down, the values are present yes. It may be an issue of order perhaps?

Just to update, I have tried putting it as the last possible argument in the block of code and it still won't populate the combobox with the correct value.

In the code the value is now being calculated and assigned properly but the combobox refuses to populate. It's driving me mad!

 

[RoryA]

Any chance you can put the file somewhere?

 

[vbaNumpty]

Any chance you can put the file somewhere?

Link to google drive file:

MacroFile1.xlsm

drive.google.com

The code is on the userform under the edit button click code.

You can launch the userform and select any entry in the list box and click edit, you will see that the pack size number will not populate in the proper combobox.

 

[RoryA]

Change the Style property of the control to fmStyeDropDownCombo and that should fix it.

 

[vbaNumpty]

Change the Style property of the control to fmStyeDropDownCombo and that should fix it.

I made the style change, but it still won't populate