MS-Access子表格参考兔子孔

时间:2014-08-18 14:15:50

标签: ms-access access-vba

我有一个隐藏在多个级别的子表单,但我很难引用它。

如果我们调用此子表单我正试图访问 CourseSubForm2 ,它位于选项卡控件的第二页 CourseTabControlPage2 ,选项卡控件位于子表单< strong> CourseSubForm1 然后该子表单位于主表单 EnrolMainForm

或者,作为一棵树:

EnrolMainForm
 - CourseSubForm1
    - CourseTabControlPage2 (<- this is the name of the tab page, not the whole tab control)
       - CourseSubForm2

我基本上试图记录 CourseSubForm2 中当前显示的内容,然后将其放在控件选项卡第二页的.Caption属性中。

我的尝试::

Public Sub EnrolCompAims()

    Dim EnrolCompAims As String

    EnrolCompAims = Trim(Forms![EnrolMainForm]![CourseSubForm1].Form![CourseSubForm2].Form.RecordsetClone.RecordCount)

    Forms![EnrolMainForm]![CourseSubForm1].Form![CourseTabControlPage2].Caption = "Component Aims (" & EnrolCompAims & ")"

End Sub

上述尝试没有发生错误,但EnrolCompAims等于0.我正在测试的记录在子表单中有4条记录,RecordCount正在应用。

1 个答案:

答案 0 :(得分:2)

固定。

我的引用很好,但我从主表单的当前事件中调用了EnrolComAims()子例程。我想这个事件发生在 CourseSubForm2 子表单中加载记录之前。

我从 CourseSubForm2 的当前事件中调用EnrolComAims(),现在它可以正常工作。