access和excel中带有标签计数项目的列表框答案

【问题标题】：listbox with label count items in access and excelaccess和excel中带有标签计数项目的列表框
【发布时间】：2019-08-09 18:06:00
【问题描述】：

在 Excel 中，我正在更新一个标签，该标签对列表框的选定项目进行计数。每次我取消选择一个时，标签都会倒数。我使用此代码：

将 intIndex 调暗为整数将 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

我正在尝试在访问中做同样的事情，但它不起作用。

【问题讨论】：

标签： excel vba ms-access-2010

【解决方案1】：

为了回答您的问题，我们可能需要额外的信息。 - 你收到错误信息吗？ - label1 和 listbox6 在哪里？ - 什么触发代码？您（尝试）使用哪个事件？

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

您也可以尝试一个 for each 循环；

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

【讨论】：

listbox 和 label1 在 Excel 工作表上。在那里它工作正常。
但我正试图让它在 MS-Access 表单中工作。我有一个竞争对手列表（查询）和一个标签。这在 MS-Access 中是否可行？
我尝试了循环，但我收到一个关于 dim li as listitem 的错误。
竞争对手列表是一个组合框，当它打开时，所有竞争对手都会被选中。每次我取消选择一个标签时，标签都应该倒计时。
您可以尝试将 li 调暗为 var 而不是 listitem，但组合框是否具有多选属性？我认为您需要制作自己的组合框才能有效地完成这项工作。添加一个面板或组框，并在此面板中填充每个项目的标签。现在您可以轻松计算分组框中的控件数量，并向标签添加事件以触发代码，使另一个标签显示剩余的标签数量。