使用CallByName实现Access窗体间通信的类型问题求助

问题原因 #

当你把调用窗体保存为Access.Form类型时，这个类型仅包含Access所有窗体内置的公共成员（比如OpenArgs、Visible等），你在主窗体定义的ReturnFunction属于自定义公共成员，不在Access.Form的标准接口中。CallByName会基于变量的声明类型查找成员，因此用通用Access.Form类型时，它找不到自定义函数，抛出2465错误（找不到对象的方法或属性）。而用具体的Form_frmBaseForm类型时，该类型包含了你定义的所有自定义成员，所以CallByName能正常执行。这是VBA后期绑定的设计特性，既不是Bug也不是操作错误。

简单解决办法 #

方案1：改用Object类型存储调用窗体 #

将弹出窗体里的frmRet声明为Object类型，Object是无类型变体，完全依赖后期绑定查找成员，不管调用窗体是什么具体类型，只要存在指定函数就能执行：

修改Form_frmPopupForm代码：

Option Compare Database

Private frm As Access.Form

' 改用Object类型支持后期绑定
Private frmRet As Object
Private fnRet As String

Public Sub Init(frmReturn As Object, fnReturn As String)
    Set frm = Me.Form
    Set frmRet = frmReturn
    fnRet = fnReturn
End Sub

Private Sub cmdCloseForm_Click()
    Me.Visible = False
    If Not frmRet Is Nothing Then
        ' 现在可以正常执行
        CallByName frmRet, fnRet, VbMethod
    Else
        MsgBox "原调用窗体已关闭"
    End If
End Sub

主窗体调用时，直接传Me即可：frmNew.Init Me, "ReturnFunction"。

方案2：使用Application.Run替代CallByName #

Application.Run可以直接通过字符串指定窗体的公共函数，无需依赖变量类型：

修改弹出窗体的cmdCloseForm_Click事件：

Private Sub cmdCloseForm_Click()
    Me.Visible = False
    If Not frmRet Is Nothing Then
        ' 格式：[窗体名称].[函数名称]
        Application.Run "[" & frmRet.Name & "]." & fnRet
    Else
        MsgBox "原调用窗体已关闭"
    End If
End Sub

这个方法更简洁，只要窗体存在且函数为公共就能执行。

更优通用通信方案：接口实现 #

如果需要强类型校验（避免传错函数名）同时保持通用性，可以定义标准模块接口，让所有调用弹出窗体的主窗体实现该接口：

1. 新建标准模块ICallBackForm：

Option Explicit

Public Sub ReturnFunction()
    ' 接口方法，由具体窗体实现
End Sub

2. 主窗体Form_frmBaseForm实现接口：

Option Compare Database
Implements ICallBackForm

Private Sub cmdOpenForm_Click()
    Dim frmNew As Form_frmPopupForm
    Set frmNew = New Form_frmPopupForm
    ' 传实现了接口的窗体对象
    frmNew.Init Me
    frmNew.Visible = True
    Set frmNew = Nothing
    MsgBox "主窗体代码执行完毕"
End Sub

' 实现接口的方法
Private Sub ICallBackForm_ReturnFunction()
    MsgBox "弹出窗体已关闭，触发回调！"
End Sub

3. 弹出窗体改用接口类型保存引用：

Option Compare Database

Private frm As Access.Form
Private callbackForm As ICallBackForm

Public Sub Init(frmReturn As ICallBackForm)
    Set frm = Me.Form
    Set callbackForm = frmReturn
End Sub

Private Sub cmdCloseForm_Click()
    Me.Visible = False
    If Not callbackForm Is Nothing Then
        ' 直接调用接口方法，强类型安全
        callbackForm.ReturnFunction
    Else
        MsgBox "原调用窗体已关闭"
    End If
End Sub

该方案编译时就能检查是否实现接口方法，避免运行时错误，同时所有实现接口的窗体都能通用调用弹出窗体，兼顾通用性与类型安全。

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