如何通过Microsoft Access表单实现带用户输入参数的传递查询？

下面提供三种实用方案，解决主表单向子表单传递员工ID、动态调用SQL Server存储过程的需求：

方案1：动态修改传递查询的SQL语句 #

适合简单场景，直接通过VBA更新传递查询的执行语句，替换硬编码参数：

1. 确保你的传递查询已配置好SQL Server连接（ODBC/DSN-less），硬编码参数时可正常运行（例如原SQL为 EXEC GetCommunicationLogs 123）。
2. 在主表单的搜索按钮点击事件中添加VBA代码：

Private Sub cmdSearch_Click()
    Dim qdf As QueryDef
    Dim empID As Variant
    
    ' 获取主表单输入的员工ID（假设文本框名为txtEmpID）
    empID = Me.txtEmpID.Value
    If IsNull(empID) Then
        MsgBox "请输入员工ID", vbExclamation
        Me.txtEmpID.SetFocus
        Exit Sub
    End If
    
    ' 处理字符串类型的员工ID（需转义单引号避免SQL语法错误）
    If VarType(empID) = vbString Then
        empID = Replace(empID, "'", "''")
        empID = "'" & empID & "'"
    End If
    
    ' 更新传递查询的SQL语句
    Set qdf = CurrentDb.QueryDefs("你的传递查询名称")
    qdf.SQL = "EXEC GetCommunicationLogs " & empID
    
    ' 刷新子表单展示结果
    Me.子表单控件名称.Requery
    
    Set qdf = Nothing
End Sub

方案2：传递查询参数绑定（更安全） #

避免SQL拼接的注入风险，通过Access查询的参数定义实现动态传参：

1. 打开传递查询的设计视图，右键选择「参数」，添加参数@EmpID，设置对应SQL Server存储过程的参数类型（例如整数/文本）。
2. 修改传递查询的SQL为：EXEC GetCommunicationLogs @EmpID。
3. 在搜索按钮的VBA事件中赋值参数并刷新子表单：

Private Sub cmdSearch_Click()
    Dim qdf As QueryDef
    Dim empID As Variant
    
    empID = Me.txtEmpID.Value
    If IsNull(empID) Then
        MsgBox "请输入员工ID", vbExclamation
        Me.txtEmpID.SetFocus
        Exit Sub
    End If
    
    Set qdf = CurrentDb.QueryDefs("你的传递查询名称")
    qdf.Parameters("@EmpID") = empID
    Me.子表单控件名称.Requery
    
    Set qdf = Nothing
End Sub

方案3：ADODB直接调用存储过程（最灵活） #

不依赖Access传递查询，直接通过VBA建立SQL Server连接，执行存储过程后将结果集绑定到子表单：

1. 在VBA编辑器中，通过「工具→引用」勾选「Microsoft ActiveX Data Objects x.x Library」。
2. 编写按钮点击事件代码：

Private Sub cmdSearch_Click()
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    Dim empID As Variant
    
    empID = Me.txtEmpID.Value
    If IsNull(empID) Then
        MsgBox "请输入员工ID", vbExclamation
        Me.txtEmpID.SetFocus
        Exit Sub
    End If
    
    ' 建立SQL Server连接（替换为你的服务器/数据库/账号信息）
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=你的SQL服务器地址;Initial Catalog=你的数据库名;User ID=用户名;Password=密码;"
    conn.Open
    
    ' 配置存储过程调用
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "GetCommunicationLogs"
    
    ' 添加参数（类型需与存储过程参数匹配：adInteger对应整数，adVarChar对应字符串）
    cmd.Parameters.Append cmd.CreateParameter("@EmpID", adInteger, adParamInput, , empID)
    
    ' 执行并获取结果集
    Set rs = cmd.Execute
    
    ' 将结果集绑定到子表单
    Set Me.子表单控件名称.Form.Recordset = rs
    
    ' 清理资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set cmd = Nothing
    Set conn = Nothing
End Sub

关键说明 #

主表单与子表单数据源不同不影响传参，因为所有方案都是通过VBA主动获取主表单的员工ID，再传递给SQL Server存储过程，无需依赖Access的内置关联机制。

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