MS Access中用VBA设置ComboBox值遇2465运行时错误求助

核心问题：窗体加载时机与控件引用可靠性不足 #

运行时错误2465的直接原因是Form_Load事件触发时，窗体控件尚未完成初始化，或是通过Screen.ActiveForm获取窗体的方式不可靠，导致代码无法正确定位到MyCombo控件。

具体问题点 #

1. Form_Load时机过早：窗体Load事件仅完成框架加载，内部控件还未初始化完成，此时直接引用控件会导致Access无法识别目标控件。
2. Screen.ActiveForm不可靠：在Form_Load执行期间，窗体可能还未成为当前活动窗体，Screen.ActiveForm.Name可能获取到错误名称甚至空值，后续控件引用自然失效。
3. 间接引用易出错：通过窗体名称字符串间接引用控件，比直接传递窗体对象的容错性低，尤其在窗体加载阶段。

修复步骤 #

步骤1：修改函数，直接传递窗体对象

将模块函数改为接收窗体对象作为参数，彻底摆脱对Screen.ActiveForm的依赖：

Public Function getSetRefNo(targetForm As Form) As String
    Dim rs1 As DAO.Recordset
    Dim docidrefnoquery As String
    Dim dociddefaultvalue As String
      
    ' 直接通过传入的窗体对象引用控件
    Set rs1 = CurrentDb.OpenRecordset("SELECT DISTINCT ColA FROM TblA WHERE ColC = " & targetForm![Combo25])
    
    Do Until rs1.EOF = True
        docidrefnoquery = rs1(0)
        rs1.MoveNext
    Loop
    rs1.Close
    Set rs1 = Nothing

    dociddefaultvalue = DLookup("RefNo", docidrefnoquery) ' 确认docidrefnoquery是有效查询/表名
    
    ' 直接通过窗体对象设置控件值
    targetForm![MyCombo] = dociddefaultvalue
    Debug.Print docidrefnoquery & " - " & dociddefaultvalue
End Function

步骤2：更换窗体事件，延后执行时机

将原Form_Load事件改为Form_Current（窗体加载完成并显示时触发），确保控件已初始化：

Private Sub Form_Current()
    ' 传递当前窗体对象Me
    Call getSetRefNo(Me)
End Sub

若需在窗体打开时执行，也可改用Form_Open事件：

Private Sub Form_Open(Cancel As Integer)
    Call getSetRefNo(Me)
End Sub

步骤3：基础验证

• 确认目标窗体中存在名为MyCombo的组合框，检查名称拼写（Access不区分大小写，但避免特殊字符）。
• 确保窗体AllowEdits属性设为Yes，否则无法修改控件值。

额外注意事项 #

• 检查DLookup参数：确认从TblA.ColA获取的docidrefnoquery是Access中存在的查询或表名称，避免引发新错误。
• 可增加空值判断，提升代码稳定性：

If Not IsNull(dociddefaultvalue) Then
    targetForm![MyCombo] = dociddefaultvalue
End If

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