如何在选项卡中动态打开表单？答案

【问题标题】：How to dynamically open a form within a tab?如何在选项卡中动态打开表单？
【发布时间】：2019-12-20 22:14:29
【问题描述】：

我有一个带有选项卡控件的父表单。选项卡显示子表单。父表单中显示的数据是有关住宅物业的一般详细信息，例如地址等。在选项卡中，子表单显示特定于县的详尽数据，例如车库面积等。

有 6 个带有静态子表单的选项卡，即该选项卡始终显示相同的子表单。我希望第 7 个选项卡根据属性所在的县动态打开子表单。也就是说，根据控件的值 (Me.Form.County)，使用相应的子表单填充第 7 个选项卡以获取高度具体的详细信息为那个县。

（不，制作一个可以呈现任何县的数据的子表单是不可取的；相对而言，它会很大。每个县需要一个表单。）

如果有一种方法可以对单击第 7 个选项卡的事件采取行动，然后打开特定于县的子表单，那就太好了，尽管我没有看到 OnClick 的选项卡。如果有一种方法对用户来说接近那么简单，那也很好。

【问题讨论】：

标签： vba forms ms-access tabs

【解决方案1】：

您可以使用 Subform.SourceObject 属性来更改在 Subform 控件中显示的表单。 https://docs.microsoft.com/en-us/office/vba/api/access.subform.sourceobject

您可以使用选项卡控件的 Change 事件来响应用户切换选项卡并在用户查看所需选项卡时显示正确的子表单。

Private Sub tabCounty_Change()

    If tabCounty.Pages(tabCounty.Value).Caption = "County Info" Then
        subCountyInfo.SourceObject = "frmCounty" & Me.Form.County
    End If
    subCountyInfo.Form.Requery

End Sub

【讨论】：