список со списком элементов в доступе и превосходстве - PullRequest
Новая
       16

список со списком элементов в доступе и превосходстве

0 голосов
/ 19 марта 2019

В Excel я обновляю метку, которая считает выбранные элементы списка.Каждый раз, когда я отменяю выбор, лейбл считает один вниз.Я использую этот код:

Dim intIndex как целое число Dim intCount как целое число 

With ListBox6
    For intIndex = 0 To .ListCount - 1
        If .Selected(intIndex) Then intCount = intCount + 1
    Next
End With
Label1.Caption = "Deelnemers: " & intCount & " op " & ListBox6.ListCount

Я пытаюсь сделать то же самое в доступе, но это не работает.

1 Ответ

1 голос
/ 19 марта 2019

Чтобы ответить на ваш вопрос, нам может потребоваться дополнительная информация. - Вы получаете сообщение об ошибке? - Где находится label1 и listbox6? - Что вызывает код? Какое событие вы пытаетесь использовать? 

Dim intIndex As Integer 
Dim intCount As Integer
intcount = 0
With **Form1.**ListBox6
    For intIndex = 0 To .ListCount - 1
        If .Selected(intIndex) Then 
              intCount = intCount + 1
        End if
    Next
    **Me.**Label1.Caption = "Deelnemers: " & intCount & " op " & .ListCount
End With

Вы также можете попробовать для каждого цикла; 

Dim Li as listitem
dim seleciontcount as integer
selectioncount = 0
For each li in listbox6.items
    if li.selected then
         selectioncount = selectioncount + 1
    end if
next
...