访问无法计算所有选定的列表框项目答案

【问题标题】：Access Unable to Count all Selected Listbox Items访问无法计算所有选定的列表框项目
【发布时间】：2020-07-14 04:27:11
【问题描述】：

我正在使用多选（扩展）来选择列表框中的项目。将焦点放在列表框上，在我使用 Shift+DownArrowKey 选择多个项目后，所选项目的计数永远不会包括所选列表中的最后一个。我正在使用箭头键的 On Key Up 和 Down 触发器来执行计数（对于 Me.List40.ItemsSelected 中的每个 ItemIndex）。

虽然焦点位于列表框上，但此过程似乎不会更新列表以包含最后的选择。有没有办法解决这个问题？

【问题讨论】：

标签： vba ms-access

【解决方案1】：

如果您只想获取所选项目的数量，您可以使用ItemsSelected 集合的Count 属性：

List40.ItemsSelected.Count

【讨论】：

我正在使用 count 属性 - 自己尝试一下，您会发现最后一个选择的将不包括在内。
让我澄清一下 - 你的建议确实有效。但是，我需要针对关联表记录中的特定值测试每个选定项目，然后在测试成功时增加一个计数变量。出于某种原因，ItemIndex 不包括最后一项。
进一步澄清 - 离开列表框的焦点后，我得到正确的计数没有问题。当我尝试留在列表框中（以继续选择多个项目）并使用 itemindex 时会出现问题。索引未更新以包含最后选择的项目。 lisbox 更新前后不能解决这个问题 - 选择每个项目后会触发什么，我可以使用它吗？
经过挖掘，我找到了我的问题的答案。我不应该使用 On Key Down 来处理列表 - 结果是 On Key Up 程序在完成程序之前处理列表更改，愚蠢的错误，但我感谢你的努力。