能否通过VBA代码在运行时设置MS Access的Display Document Tabs？

Access的「Display Document Tabs」设置存储在Windows注册表中，可通过VBA直接修改注册表并刷新界面，无需重启数据库即可生效，具体实现如下：

核心代码 #

Option Compare Database
Option Explicit

Sub ToggleDocumentTabs()
    Dim regKey As String
    Dim currentValue As Integer
    
    ' 动态生成当前数据库的注册表配置路径
    regKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & _
             Application.Version & "\Access\Settings\" & _
             Replace(CurrentDb.Name, "\", "\\") & "\"
    
    ' 获取当前设置（0=重叠窗口，1=选项卡）
    currentValue = GetSetting("Microsoft Access", regKey, "DisplayDocumentTabs", 0)
    
    ' 切换状态
    currentValue = Abs(currentValue - 1)
    
    ' 写入注册表
    SaveSetting "Microsoft Access", regKey, "DisplayDocumentTabs", currentValue
    
    ' 刷新界面使设置立即生效
    Application.RefreshDatabaseWindow
    Application.SetOption "Show Document Tabs", currentValue
End Sub

关键说明 #

• 注册表路径：通过Application.Version和CurrentDb.Name动态适配不同Office版本和数据库路径，无需手动修改。
• 取值定义：DisplayDocumentTabs值为1时显示选项卡，0时切换为重叠窗口模式。
• 即时生效：修改注册表后调用RefreshDatabaseWindow和SetOption刷新Access界面，无需重启程序。

注意事项 #

• 运行代码需要当前用户具备修改注册表的权限。
• 数据库路径中的反斜杠会被转义为双反斜杠，确保注册表项被正确识别。

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