Access 97子窗体控件显示值但即时窗口返回Null问题求助

针对你遇到的这个偶发且设备特定的问题，结合你已经做的排查动作，我再补充几个实用的方向：

• 聚焦窗体加载与交互时序差异：Win10平板的触控逻辑和Win7键鼠操作存在差异，可能导致子窗体的加载/绑定时机滞后。可以试试在主窗体的Load事件里加入DoEvents后再访问子窗体控件，或者设置一个短定时器（比如500ms）延迟取值逻辑，确保子窗体完全完成数据绑定。另外，检查子窗体的DataEntry属性是否被意外启用——这个属性会让窗体只显示空记录，虽然你说有预设值，但特殊场景下可能出现视觉显示和实际绑定状态不一致的情况。

• 验证控件绑定与记录集的同步性：UI显示值不代表控件和数据源完全同步，你可以在即时窗口执行? Forms![Form]![Subform].Form.Recordset.Fields("你的字段名").Value，对比记录集的实际值和控件返回值。如果记录集有值但控件返回Null，说明是控件绑定临时故障，试试在子窗体的Current事件里单独刷新控件：Me.你的控件名.Refresh，而不是只刷新整个窗体。

• 深挖Win10与Access 97的兼容性坑：你计划换设备测试的思路很对，除此之外还可以试试这些：

  • 让用户把Access程序和后端数据库所在文件夹加入Windows Defender排除项，避免实时保护干扰数据库读写；
  • 右键以管理员身份运行Access，排除UAC权限限制导致的文件访问问题；
  • 调整Access程序的兼容性设置：右键属性→兼容性→勾选“替代高DPI缩放行为”，选择“系统”或“系统（增强）”——高DPI缩放可能导致Access控件内部状态异常。

• 检查后端数据库完整性：你本地修改值后问题消失，可能是目标记录存在隐性损坏。让用户备份数据库后，运行Access 97的压缩和修复数据库工具（路径：工具→数据库实用工具→压缩和修复数据库），修复后再测试。另外，检查子窗体的数据源查询是否包含参数，Win10的区域设置（比如日期格式）可能和Win7不同，导致参数解析异常，进而影响控件绑定的字段值。

• 添加日志捕获现场状态：因为问题在特定设备上必现，可以给子窗体加简单的日志记录，方便定位根因。比如在子窗体的Current事件中写入控件值、记录集字段值到日志表：

Private Sub Form_Current()
    Dim rs As Recordset
    Set rs = Me.RecordsetClone
    rs.Bookmark = Me.Bookmark
    
    ' 假设日志表为tbl_ControlLog，包含LogTime、ControlVal、FieldVal字段
    CurrentDb.Execute "INSERT INTO tbl_ControlLog (LogTime, ControlVal, FieldVal) " & _
                      "VALUES (#" & Now() & "#, '" & Nz(Me.你的控件名, "Null") & "', '" & Nz(rs!你的字段名, "Null") & "')"
    
    Set rs = Nothing
End Sub

这样用户操作时就能捕获到问题发生时的具体状态，判断是控件没取到值，还是记录集本身的问题。

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