Access VBA中JOIN查询Recordset的表字段指定方法

先修正你代码里的几个小问题：Currentdb统一写成CurrentDb，srs是笔误应该是rs，还有SQL里的tabelA拼写错误，要改成tableA。

你遇到的rs!tableA.data无法使用的问题，是因为VBA的感叹号字段引用语法不支持带表名的格式，下面给你几个更优雅的解决办法：

方法1：直接用完整字段标识符引用 #

不用修改SQL语句，直接通过[表名.字段名]的格式，配合方括号或者Fields方法来访问字段：

Dim db As DAO.Database
Set db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT tableA.data, tableB.data " & _
                         "FROM tableA INNER JOIN tableB ON tableA.ID = tableB.xyz")

' 方式1：方括号包裹完整标识符
Debug.Print rs![tableA.data]
' 方式2：使用Fields方法指定完整字段名
Debug.Print rs.Fields("tableA.data").Value

这种方法不用改动查询语句，直接适配JOIN后的字段结构，非常直观。

方法2：给表起短别名+简洁字段别名 #

如果觉得完整字段名太长，可以给表起短别名，同时给字段加对应前缀的别名，让SQL和引用都更简洁：

Set rs = db.OpenRecordset("SELECT a.data AS a_data, b.data AS b_data " & _
                         "FROM tableA AS a INNER JOIN tableB AS b ON a.ID = b.xyz")

' 引用时直接用简洁别名
Debug.Print rs!a_data
Debug.Print rs!b_data

这种方式既避免了字段名冲突，又保持了字段来源的可读性，比随意起别名更规范。

方法3：通过字段索引引用（不推荐长期使用） #

如果是临时脚本或者确定字段顺序不会变，可以用字段的索引（从0开始计数）来引用，不过这种方法可读性差，不利于后期维护：

' tableA.data是查询结果的第一个字段（索引0），tableB.data是第二个（索引1）
Debug.Print rs.Fields(0).Value
Debug.Print rs.Fields(1).Value

最推荐的是方法1和方法2，前者无需修改SQL，后者让代码更简洁易读，根据你的实际场景选择即可。

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