Access 2019 runtime环境下表单表达式字段偶发不显示问题求助

该问题是Access 2010及后续版本迁移2003及更早版本表单的已知渲染兼容性问题：高负载场景下Access UI线程优先级调整时，表达式控件的Repaint事件不会被自动触发，仅在控件获得焦点时强制重绘才显示内容，与你观察到的现象完全匹配。

以下方案均不需要逐个修改150+个现有表单，可按实施成本从低到高尝试：

方案1：全局运行时参数调整（零代码，优先尝试） #

• 打开Access 2019对应的注册表配置路径：HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Settings
• 新建2个DWORD类型配置项：
  • DisableUIDelay 赋值为1：关闭UI渲染延迟优化，强制所有控件优先重绘
  • AllowArbitraryXMLSupport 赋值为1：解决老版本表单控件解析兼容性问题
• 同时在数据库启动选项中，勾选「执行所有计算前刷新控件」选项，强制表达式控件加载时即时计算

终端服务器环境下可直接配置用户组注册表模板，批量对所有终端用户生效

方案2：全局VBA事件钩子（仅需新增1个模块，无侵入修改现有表单） #

新增一个全局标准模块，粘贴以下代码，利用Access全局应用事件钩子，自动捕获所有窗体的加载、记录切换事件，批量触发控件重绘：

Option Compare Database
Option Explicit

' 声明全局应用事件钩子
Private WithEvents app As Access.Application

Private Sub InitGlobalHook()
    Set app = Application
End Sub

' 所有窗体加载完成后自动触发
Private Sub app_FormLoad(ByVal Form As Object)
    Form.Repaint
End Sub

' 所有窗体切换记录后自动触发，支持连续窗体、数据表窗体
Private Sub app_FormCurrent(ByVal Form As Object)
    Form.Repaint
End Sub

• 只需在数据库启动宏/默认启动窗体的OnLoad事件中调用一次InitGlobalHook即可全局生效

方案3：批量修改表达式控件属性（运行一次脚本自动处理所有表单） #

如果前两种方案仍有个别场景失效，可运行以下VBA脚本，批量遍历所有表单的控件，给表达式外层套Eval()函数强制Access即时计算：

Sub BatchFixExpressionControls()
    Dim frm As Object
    Dim ctl As Control
    For Each frm In CurrentProject.AllForms
        DoCmd.OpenForm frm.Name, acDesign, , , , acHidden
        For Each ctl In Forms(frm.Name).Controls
            ' 筛选带表达式的文本框、标签控件
            If (ctl.ControlType = acTextBox Or ctl.ControlType = acLabel) And _
                Left(Nz(ctl.ControlSource, ""), 1) = "=" Then
                ctl.ControlSource = "=Eval(""" & Mid(ctl.ControlSource, 2) & """)"
            End If
        Next ctl
        DoCmd.Close acForm, frm.Name, acSaveYes
    Next frm
    MsgBox "批量处理完成，共覆盖" & CurrentProject.AllForms.Count & "个表单"
End Sub

脚本运行一次即可完成所有表单的修改，不需要手动逐个调整

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