后期绑定用户窗体函数

我有2个用户表单：

Userform1 Userform2 

它们都有UpdateFields函数，每个函数UpdateFields不同的实现。 我有第三个函数作为input用户窗体，并尝试调用UpdateField函数：

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

有谁知道这可以做到吗？

Answer 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 

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

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

输出：窗体1更新窗体2更新