Access VBA问题：切换窗体页脚可见性导致列表框选中项清空

这个问题我之前在处理Access 365窗体时也碰到过，本质是控件可见性变化触发窗体重绘时，多选列表框的选中状态被意外重置了。给你几个可行的解决方案，按推荐程度排序：

方案1：手动保存并恢复选中状态 #

这是最稳妥的方法，先把列表框的选中项存下来，切换页脚可见性后再恢复，完全绕过重绘导致的状态丢失。

首先，在窗体模块里添加这三个过程（记得把lstYourMultiSelectList替换成你实际的列表框名称）：

Private Sub btn_options_Click()
    ' 先保存当前选中项
    Dim selectedStates As Variant
    selectedStates = SaveListBoxSelections(Me.lstYourMultiSelectList)
    
    ' 切换页脚可见性
    Me.frmOptions.Visible = Not Me.frmOptions.Visible
    
    ' 恢复之前的选中状态
    RestoreListBoxSelections Me.lstYourMultiSelectList, selectedStates
End Sub

' 辅助函数：保存多选列表框的选中索引
Private Function SaveListBoxSelections(lst As ListBox) As Variant
    Dim i As Integer
    Dim selected() As Boolean
    ReDim selected(0 To lst.ListCount - 1)
    
    For i = 0 To lst.ListCount - 1
        selected(i) = lst.Selected(i)
    Next i
    
    SaveListBoxSelections = selected
End Function

' 辅助函数：恢复多选列表框的选中状态
Private Sub RestoreListBoxSelections(lst As ListBox, selected As Variant)
    Dim i As Integer
    
    If IsArray(selected) Then
        For i = 0 To lst.ListCount - 1
            If i <= UBound(selected) Then
                lst.Selected(i) = selected(i)
            End If
        Next i
    End If
End Sub

方案2：关闭窗体重绘再切换可见性 #

Access在切换控件可见性时会自动触发窗体重绘，关闭Painting属性可以阻止这个行为，避免列表框状态被重置：

Private Sub btn_options_Click()
    ' 临时关闭窗体重绘
    Me.Painting = False
    
    ' 切换页脚可见性
    Me.frmOptions.Visible = Not Me.frmOptions.Visible
    
    ' 恢复重绘并刷新界面
    Me.Painting = True
    Me.Repaint
End Sub

这个方法代码更简洁，但少数情况下可能会导致界面闪烁，不过大部分场景下都能正常工作。

方案3：检查列表框行来源是否动态 #

如果你的列表框行来源是动态查询（比如直接绑定到SELECT语句），切换页脚时可能会触发查询重新执行，导致列表框重新加载数据、清空选中项。这种情况下，可以在窗体加载时手动填充列表框：

Private Sub Form_Load()
    ' 替换成你列表框的实际查询语句
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT ID, DisplayText FROM YourTable")
    
    ' 清空原有行来源，手动添加项
    Me.lstYourMultiSelectList.RowSource = ""
    Me.lstYourMultiSelectList.ColumnCount = 2 ' 根据你的列数调整
    
    Do While Not rs.EOF
        ' 用分号分隔多列内容
        Me.lstYourMultiSelectList.AddItem rs!ID & ";" & rs!DisplayText
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
End Sub

额外检查点 #

• 确认列表框的MultiSelect属性设置为Extended或Simple（你应该已经设置了，但再核实下）
• 检查页脚frmOptions里有没有绑定到数据源的控件，这些控件可能会间接触发窗体更新，导致列表框刷新

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