后期绑定 UserForm 函数答案

【问题标题】：Late Binding UserForm Functions后期绑定 UserForm 函数
【发布时间】：2014-05-18 20:50:55
【问题描述】：

我有 2 个用户表单：

Userform1
Userform2

它们都具有UpdateFields 函数，每个函数的实现方式不同。我有第三个函数，它将用户表单作为输入并尝试调用 UpdateField 函数：

Public Sub ThirdFunction(Byref objForm as Form)
   'trying to do this
    objForm.UpdateFields
End Sub

有谁知道如何做到这一点？

【问题讨论】：

【解决方案1】：

以下内容对我有用。你表示它不适合你。你能解释一下我下面的粗略设置有什么不同吗？这将有助于缩小问题范围。

在标准模块中：

Sub UpdateBoth()
    FrmUpdate Form_Table1
    FrmUpdate [Form_Copy Of Table1]
End Sub

Sub FrmUpdate(frm As Object)
    frm.UpdateFields
End Sub

在表单的代码隐藏（称为 Form_Table1）中：

Public Function UpdateFields()
    Debug.Print "Form 1 Update"
End Function

在另一个表单的代码隐藏中（称为 [Form_Copy of Table1]）：

Public Function UpdateFields()
    Debug.Print "Form 2 Update"
End Function

输出：表格 1 更新表 2 更新

【讨论】：