Access VBA：使用变量指定字段名获取字段值失败求助

我懂你遇到的这个问题——直接硬编码字段名（比如MsgBox ([M1SS Emp Nbr])）能正常拿到值，但通过变量拼接字段名时，却只返回字符串本身，这在Access表单开发里是个典型的动态引用问题。核心原因是你当前只是把字段的名称存成了字符串变量，没有告诉程序要去读取这个名称对应的实际字段值。

下面给你两种可靠的解决思路：

方法一：用Eval动态计算字段引用 #

Eval函数可以解析并执行字符串形式的Access表达式，刚好适合你这种动态拼接字段名的场景。关键是要把完整的字段引用写成合法的表达式字符串：

Dim strCurrent_Company_Name As String
Dim strFieldName As String
Dim fieldValue As Variant

' 第一步：从标签获取公司名称（替换成你实际的标签引用逻辑）
strCurrent_Company_Name = Eval("Forms!StartUp.Label_Company_1.Caption") ' 假设这里能正确拿到"M1SS"

' 第二步：拼接完整的字段名
strFieldName = strCurrent_Company_Name & " Emp Nbr"

' 第三步：用Eval获取字段的实际值（注意用方括号包裹带空格的字段名）
fieldValue = Eval("Forms!StartUp![" & strFieldName & "]")

' 测试输出
MsgBox fieldValue

这里要注意：如果字段名包含空格或特殊字符，必须用[]包裹，否则Eval会报错。

方法二：直接操作表单的记录集 #

如果表单的RecordSource是合法查询，你也可以直接通过表单的RecordsetClone来读取字段值，这种方式更稳定，尤其适合复杂字段名的场景：

Dim rs As DAO.Recordset
Dim strCurrent_Company_Name As String
Dim strFieldName As String
Dim fieldValue As Variant

' 获取公司名称
strCurrent_Company_Name = Forms!StartUp.Label_Company_1.Caption
strFieldName = strCurrent_Company_Name & " Emp Nbr"

' 同步到表单当前记录的数据集
Set rs = Forms!StartUp.RecordsetClone
rs.Bookmark = Forms!StartUp.Bookmark ' 确保读取的是当前显示的记录

' 读取字段值
fieldValue = rs(strFieldName).Value

' 测试输出
MsgBox fieldValue

' 清理资源
rs.Close
Set rs = Nothing

关键注意点 #

• 确保拼接后的strFieldName完全匹配查询中的字段名，大小写不敏感，但空格和特殊字符必须完全一致
• 如果使用Eval，一定要检查拼接后的表达式字符串是否合法（可以先MsgBox输出表达式字符串验证）
• 若表单未绑定（虽然你说RecordSource是正常查询，但还是要确认），第二种方法可能不生效

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