Неправильное использование пустого списка доступа

Question

Я пытаюсь вычислить сумму значений, выбранных в столбце списка со множественным выбором, и поместить его в текстовое поле формы. Я попробовал фрагмент кода, показанный ниже, но я получаю сообщение об ошибке «Invalid Use of Null»

Private Sub SelectTreatment_Click()

Dim i As Integer
Dim sumduration As Integer
sumduration = 0

For i = 0 To Me.SelectTreatment.ListCount - 1

    If Me.SelectTreatment.ItemsSelected(i) Then
         sumduration = sumduration + Me.SelectTreatment.Column(4, i)
    End If

Next i


End Sub

Может кто-нибудь сказать мне, что не так с этим кодом или лучшим решением?

Answer 1

Я немного изменил ваш код. Это должно сделать свое дело. Просто убедитесь, что у вас есть числовые значения в 5-м столбце (индекс № 4).

Private Sub SelectTreatment_Click()
Dim i As Integer
Dim sumduration As Integer
sumduration = 0
Dim frm As Form, ctl As Control, varItm As Variant

    Set frm = Forms!YourFormName
    Set ctl = frm!SelectTreatment
    For Each varItm In ctl.ItemsSelected
        sumduration = sumduration + ctl.Column(4, varItm)
    Next varItm
    Debug.Print sumduration
End Sub