OpenForm传递变量时窗体Open事件未触发及SQL使用问题

一、修复Open事件未触发的问题 #

你的目标窗体Open事件未执行，核心原因是事件过程的写法不符合Access的事件模型规范：

• Access中窗体的Open事件过程必须固定命名为Form_Open，且必须包含Cancel As Integer参数，否则Access无法识别这是Open事件的处理程序。
• 你定义的dataObject是普通Variant变量，不能直接用.Value赋值，需改为实际的存储载体（比如窗体控件或模块级变量）。

修正后的目标窗体Open事件代码：

Private Sub Form_Open(Cancel As Integer)
    Debug.Print "A"
    Dim dataId As String
    
    If Not IsNull(Me.OpenArgs) Then
        ' 方式1：将值存入窗体控件（假设窗体有个名为txtDataID的文本框）
        Me.txtDataID.Value = Me.OpenArgs
        
        ' 方式2：存入模块级变量（需在窗体模块顶部先声明：Private m_dataId As String）
        ' m_dataId = Me.OpenArgs
    End If
End Sub

二、在SQL语句中使用传递的变量 #

有两种常用实现方式，根据场景选择：

1. 直接拼接SQL语句（适合简单场景） #

注意根据变量的数据类型调整格式：

• 字符串类型：变量前后需加单引号
• 数字/日期类型：直接拼接无需引号

示例代码：

Private Sub Form_Open(Cancel As Integer)
    Dim strSQL As String
    
    If Not IsNull(Me.OpenArgs) Then
        ' 假设dataId是字符串类型，查询表名为YourTable，字段名为DataID
        strSQL = "SELECT * FROM YourTable WHERE DataID = '" & Me.OpenArgs & "'"
        
        ' 如果是数字类型，去掉单引号：
        ' strSQL = "SELECT * FROM YourTable WHERE DataID = " & Me.OpenArgs
        
        ' 将拼接后的SQL设为窗体记录源
        Me.RecordSource = strSQL
    End If
End Sub

2. 使用参数查询（更安全，避免SQL注入） #

先创建一个带参数的查询（比如命名为qryProcessData），查询SQL示例：

SELECT * FROM YourTable WHERE DataID = [prmDataID]

然后在窗体Open事件中给参数赋值：

Private Sub Form_Open(Cancel As Integer)
    Dim qdf As QueryDef
    
    If Not IsNull(Me.OpenArgs) Then
        Set qdf = CurrentDb.QueryDefs("qryProcessData")
        qdf.Parameters("prmDataID") = Me.OpenArgs
        
        ' 将查询结果设为窗体记录集
        Set Me.Recordset = qdf.OpenRecordset(dbOpenDynaset)
        Set qdf = Nothing
    End If
End Sub

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