Question

我有2个用户表单：

Userform1
Userform2

它们都具有函数UpdateFields，每个函数的实现方式都不同。我有第三个函数，它将用户表单作为输入，并尝试调用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更新