Vba Access无法统计所有选定的列表框项目

我正在使用Multiselect Extended来选择列表框中的项目。将焦点放在列表框上，在使用Shift+DownArrow键选择多个项目后，所选项目的计数从不包括所选列表中的最后一个项目。 我正在使用箭头键的On键向上和向下触发器对Me.List40.ItemsSelected中的每个ItemIndex执行计数

---

当焦点在列表框上时，此过程似乎不会更新列表以包含最后的选择。是否有办法解决此问题？

如果您只想获取选定项目的计数，可以使用ItemsSelected集合的count属性：

List40.ItemsSelected.Count

---

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