如何通过VBA可靠启用/禁用MS Access窗体数据表总计行？

核心思路 #

由于官方VBA API未直接暴露窗体总计行的控制属性，我们可以结合内置命令触发、未公开属性判断，同步切换窗体的记录集类型（Dynaset/Snapshot），实现查看总计用高速Snapshot+开启总计行、编辑用可修改Dynaset+关闭总计行的需求。

实现步骤 #

1. 通用切换函数 #

编写函数统一处理记录集类型切换与总计行状态同步：

Sub ToggleFormTotalsAndRecordset(frm As Form, enableTotals As Boolean)
    ' 仅在数据表视图下执行操作
    If frm.View <> acFormDatasheet Then Exit Sub
    
    Dim bmk As Variant
    ' 记录当前书签，切换后恢复位置
    bmk = frm.Bookmark
    
    If enableTotals Then
        ' 切换为Snapshot类型以提升总计行性能
        frm.RecordsetType = dbOpenSnapshot
        ' 确保总计行处于开启状态
        If Not IsTotalsRowVisible(frm) Then
            Application.CommandBars.ExecuteMso "RecordsTotals"
        End If
    Else
        ' 切换回Dynaset类型支持编辑
        frm.RecordsetType = dbOpenDynaset
        ' 确保总计行处于关闭状态
        If IsTotalsRowVisible(frm) Then
            Application.CommandBars.ExecuteMso "RecordsTotals"
        End If
    End If
    
    ' 恢复记录位置
    frm.Bookmark = bmk
End Sub

2. 可靠判断总计行状态 #

利用窗体的未公开属性直接获取总计行状态，替代之前尝试的不可靠方法：

Function IsTotalsRowVisible(frm As Form) As Boolean
    On Error Resume Next
    ' 读取窗体未公开的TotalsRow属性
    IsTotalsRowVisible = frm.Properties("TotalsRow")
    ' 若属性未创建（首次开启总计行前），默认返回False
    If Err.Number <> 0 Then
        IsTotalsRowVisible = False
        Err.Clear
    End If
    On Error GoTo 0
End Function

3. 按钮调用示例 #

给窗体添加两个功能按钮，绑定点击事件：

' 查看总计模式按钮
Private Sub btnViewTotals_Click()
    ToggleFormTotalsAndRecordset Me, True
End Sub

' 切换编辑模式按钮
Private Sub btnEditMode_Click()
    ToggleFormTotalsAndRecordset Me, False
End Sub

注意事项 #

• Application.CommandBars.ExecuteMso "RecordsTotals"依赖系统内置命令，需确保窗体处于数据表视图，否则命令无效
• 未公开属性TotalsRow需手动开启过一次总计行后才会被创建，首次调用判断函数时若返回False，可手动触发一次总计行切换让属性生效
• 切换记录集类型会重置窗体记录位置，通过书签（Bookmark）可保留用户当前查看的记录

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