MS Access SQL Server传递查询引用窗体参数的正确语法

传递查询无法直接识别Access窗体控件的引用，必须通过VBA动态修改查询的SQL语句来实现参数替换，具体步骤如下：

1. 基础传递查询模板 #

保留你的原有传递查询结构，仅将固定值替换为后续要动态填充的逻辑，原查询示例：

SELECT * FROM YourSQLServerTable WHERE AssignedAgent = 2;

2. 编写VBA动态更新代码 #

在Access的VBA编辑器中创建如下过程，用于将窗体中的用户ID值替换到传递查询的SQL里：

Sub UpdateAgentPassThroughQuery()
    Dim qdf As QueryDef
    Dim targetSQL As String
    Dim currentUserID As Variant
    
    ' 获取主菜单窗体的当前用户ID
    currentUserID = Forms!mainmenuf!UserIDtxt.Value
    
    ' 拼接最终SQL语句（根据用户ID的数据类型选择对应写法）
    ' 数字类型用这句：
    targetSQL = "SELECT * FROM YourSQLServerTable WHERE AssignedAgent = " & currentUserID
    ' 文本类型替换为：
    ' targetSQL = "SELECT * FROM YourSQLServerTable WHERE AssignedAgent = '" & currentUserID & "'"
    
    ' 定位到你的传递查询对象
    Set qdf = CurrentDb.QueryDefs("你的传递查询名称")
    
    ' 更新查询的SQL语句
    qdf.SQL = targetSQL
    
    ' 释放对象
    Set qdf = Nothing
End Sub

3. 设置触发时机 #

将上述过程绑定到合适的事件：

• 主菜单窗体的Load事件：确保窗体打开时就更新查询参数
• 使用传递查询的按钮Click事件：每次使用前更新参数

注意事项 #

• 确保传递查询已正确配置SQL Server的连接属性（ODBC数据源、登录信息等），修改SQL不会影响连接设置
• 如果用户ID可能包含特殊字符（如单引号），文本类型的参数需要做转义处理，比如：

currentUserID = Replace(Forms!mainmenuf!UserIDtxt.Value, "'", "''")

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