如何通过VBA读取Access关联表控件值以同步至CATIA？

我来帮你搞定这个Access和CATIA集成的问题——你遇到的核心问题是在VBA里直接引用Body.A、Part.A这种关联表参数时，因为没走对关联数据的访问路径，所以没法正常读取值。下面分两种常见场景给你针对性的解决方案：

场景1：装配体表单基于包含关联表的联合查询 #

如果你的装配体表单记录源是整合了Assembly、Body、Part三张表的查询，且Body.A是查询里定义的字段别名（比如查询语句类似SELECT Body.A AS [Body.A], Part.A AS [Part.A], ... FROM Assembly INNER JOIN Body ON Assembly.BodyID = Body.ID INNER JOIN Part ON Assembly.PartID = Part.ID），直接写Body.A会被VBA误解为对象成员，得用以下方式访问：

方式1：通过表单Recordset读取字段值 #

' 读取Body表的A参数值
length3.Value = Me.Recordset.Fields("[Body.A]").Value

' 读取Part表的A参数值
length4.Value = Me.Recordset.Fields("[Part.A]").Value

方式2：通过绑定控件读取值 #

如果表单上已经有绑定到[Body.A]字段的控件（控件名称可能是Body_A或者直接是Body.A，取决于你创建控件时的设置），可以直接引用控件名称：

length3.Value = Me.Controls("[Body.A]").Value

场景2：Body/Part是装配体表单的子表单 #

如果Body和Part是嵌入在装配体表单里的子表单控件（比如你在装配体表单中插入了两个子表单，控件名称分别为frmBodySub和frmPartSub），那得通过子表单的Form对象来访问内部参数值：

' 读取Body子表单中的A参数值
length3.Value = Me.frmBodySub.Form.Controls("A").Value

' 读取Part子表单中的A参数值
length4.Value = Me.frmPartSub.Form.Controls("A").Value

关键注意事项 #

• 子表单控件名称≠子表单源对象名称：要确认子表单控件的实际名称（在表单设计视图选中子表单，查看属性面板的「名称」项），别把子表单的源对象（比如frmBody）和表单上的控件名称搞混。
• 带点号的字段/控件名必须用方括号包裹：VBA会把点号当成对象成员的分隔符，所以像Body.A这种名称必须用[Body.A]包裹才能正确识别。
• 测试验证：可以先用Debug.Print语句在立即窗口输出值，确认读取是否正确，比如：

  Debug.Print Me.Recordset.Fields("[Body.A]").Value
  

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