MS Access 2016同逻辑代码仅单窗体触发VB运行时错误2467求助

错误核心排查方向及修复步骤： #

• 排查子窗体控件名称匹配问题
  打开主窗体frmCustomerForm的设计视图，选中嵌入的子窗体控件，查看属性表「其他」选项卡下的「名称」字段，确认该控件名称与代码中引用的frmCustomerFormSub完全一致。注意此处的控件名称和子窗体本身的源对象窗体名可能不一致，是最常见的触发原因。
• 修复SQL拼接语法错误
  你提供的SQL代码存在两处语法错误，会导致生成的SQL语句异常，间接引发记录集赋值失败：
  1. 换行常量拼写错误：应为vbCrLf而非vbCfLf
  2. WHERE条件拼接缺失连接符&，同时主窗体字段引用冗余
     修正后的SQL代码如下：

  strSQL = "SELECT CustomerName, CustomerAddress, CustomerCity, CustomerState, CustomerZIP " & vbCrLf & _ 
           "FROM Customers cust " & vbCrLf & _
           "LEFT JOIN REF_STATUS_TYPE st ON cust.STATUS = st.CODE " & vbCrLf & _  
           "WHERE cust.ID = '" & Me!UserID & "' " & vbCrLf & _
           "ORDER by CustomerName DESC"
  

• 调整赋值时机避免子窗体未加载
  如果该段代码写在主窗体Load事件的最顶部，可能出现子窗体还未完成初始化就被赋值的情况，两种修复方案：
  1. 将赋值逻辑转移到主窗体的Current事件中执行
  2. 赋值前增加子窗体存在性判断：

  If Not IsNull(Forms!frmCustomerForm!frmCustomerFormSub) Then
      Set Forms!frmCustomerForm!frmCustomerFormSub.Form.Recordset = GetSQLRst(strSQL, True)
  End If
  

• 验证Recordset返回有效性
  在赋值行前增加调试代码，确认你封装的GetSQLRst返回的是有效打开的记录集：

  Dim tempRst As Object
  Set tempRst = GetSQLRst(strSQL, True)
  ' 记录集状态为1代表已打开，可正常赋值
  Debug.Print "记录集状态：" & tempRst.State
  If tempRst.State = 1 Then
      Set Me.frmCustomerFormSub.Form.Recordset = tempRst
  End If
  

• 改用本地引用降低出错概率
  如果代码写在主窗体的本地模块中，优先用Me关键字引用当前窗体，避免全局Forms集合引用可能出现的上下文错误：

  Set Me.frmCustomerFormSub.Form.Recordset = GetSQLRst(strSQL, True)
  

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