Access VBA ListBox_Click事件：ItemsSelected无法识别选中项

核心问题原因 #

Access的ListBox控件Click事件触发时机过早——用户点击项时，控件的选中状态还没完成更新，此时ItemsSelected集合还没捕获到新的选中项，导致Count为0，循环被跳过。

解决方案 #

1. 改用AfterUpdate事件（首选） #

将原有的Click事件替换为AfterUpdate事件，该事件会在控件选中状态完全更新后触发，能正确获取ItemsSelected集合。

2. 优化代码逻辑 #

结合单选/多选场景调整代码，同时规范变量声明：

单选模式（默认场景）

Option Explicit '模块顶部添加，强制变量声明

Private Sub lstPositionID_AfterUpdate()
    Dim PositionID As Integer
    Dim ctrl As ListBox
    
    Set ctrl = Me!lstPositionID '用Me指代当前窗体，无需硬编码窗体名称
    
    '判断是否有选中项
    If Not IsNull(ctrl.Value) Then
        PositionID = ctrl.Column(0) '获取选中项第一列的值
        '在这里添加后续处理逻辑，比如赋值给其他控件或执行查询
        '示例：Me!txtPositionID = PositionID
    End If
End Sub

多选模式（若控件设置为允许多选）

Option Explicit

Private Sub lstPositionID_AfterUpdate()
    Dim PositionID As Integer
    Dim ctrl As ListBox
    Dim varItm As Variant
    
    Set ctrl = Me!lstPositionID
    
    '遍历所有选中项
    For Each varItm In ctrl.ItemsSelected
        PositionID = ctrl.Column(0, varItm)
        '处理每个选中项的逻辑
        '示例：Debug.Print "选中的PositionID：" & PositionID
    Next varItm
End Sub

额外注意事项 #

• 始终在模块顶部添加Option Explicit，避免因隐式声明变量导致的潜在错误。
• 用Me!控件名代替Forms![窗体名]!控件名，代码更简洁且适配窗体名称变更。

内容的提问来源于stack exchange，提问作者scmings