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

1 个答案: