Access VBA给文本框赋值查询结果时出现“应为函数或变量”编译错误

• 第一种写法误用DoCmd.OpenQuery：这个方法的功能是弹出查询的数据表视图窗口，本身是无返回值的子过程，把它放在赋值语句右侧给Text5赋值，VBA会判定你误把过程调用当成可取值的变量/函数，直接触发“应为函数或变量”的编译报错。
• 第二种写法误用DoCmd.RunSQL：这个方法的设计用途是执行动作查询（INSERT/UPDATE/DELETE/表结构操作），执行纯SELECT语句不仅无法返回查询结果，同样因为是无返回值的子过程，放在赋值语句右侧会触发完全相同的编译错误。

要从Access的表/已存查询中取单个聚合值赋值给窗体文本框，无需硬套DoCmd的方法，两种可直接运行的写法如下：

简便写法：直接用域聚合函数取值 #

不需要写额外的记录集逻辑，直接在单击事件中内置取值函数：

Private Sub Text5_Click()
    ' 直接取SYNC002_ACCESS表中pluquo字段的最大值，和原始SQL的计算逻辑完全一致
    Me.Text5.Value = DMax("pluquo", "SYNC002_ACCESS")
End Sub

适配已有存查询的写法 #

如果已经在Access中保存了名为MAX_PLUQUO的聚合查询，就通过DAO记录集读取结果，不要直接打开查询窗口：

Private Sub Text5_Click()
    Dim rs As DAO.Recordset
    ' 打开已保存的查询记录集
    Set rs = CurrentDb.OpenRecordset("MAX_PLUQUO")
    ' 读取唯一返回的最大值字段
    If Not rs.EOF Then
        Me.Text5.Value = rs.Fields("Expr1")
    End If
    ' 释放占用的资源
    rs.Close
    Set rs = Nothing
End Sub

额外提示：如果不需要单击文本框才触发取值，完全可以不写任何VBA代码——直接把文本框的「控件来源」属性设置为 =DMax("pluquo","SYNC002_ACCESS")，窗体打开时就会自动加载计算结果，流程更简单。

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