将对象变量设置为子窗体路径时出现错误 438

Question

大家好，我正在尝试设置一个对象变量以传递到模块中。我在下面的第一种情况下收到运行时间错误 438，但在第二种情况下没有。谁能说说为什么？

Private Sub OpGenericText_AfterUpdate()
    Dim obCurrentForm As Object
    Set obCurrentForm = Forms.AssemblyProcesses.APSectionsSubForm.APStepsSubForm
    Call UpdateStepText(obCurrentForm)
End Sub

以下作品

Private Sub OpGenericText_AfterUpdate()
    Dim obCurrentForm As Object
    Set obCurrentForm = Forms.StepsWhereUsedWithDetail
    Call UpdateStepText(obCurrentForm)
End Sub

Answer 1

它应该看起来像你有嵌套的子表单：

Private Sub OpGenericText_AfterUpdate()
    Dim obCurrentForm As Form
    Set obCurrentForm = Forms!AssemblyProcesses!NameOfFirstSubformControl.Form!NameOfSecondSubformControl.Form
    Call UpdateStepText(obCurrentForm)
End Sub

将对象变量设置为子窗体路径时出现错误 438

Error 438 when setting an object variable to a subform path

vba

runtime-error

ms-access-2010