ms-access - 如何通过 VBA 设置 Access 选项卡控制页面名称

Question

我在 MS Access 中有一个带有选项卡控件的表单(称为 TabCtrl )。该控件有多个页面，每个页面都有一个子窗体。

上 Form_Open ，我想查询记录总数的子表单并将该数字放在选项卡的名称中。例如，名为 MyTab 的选项卡应变为 MyTab (2):

Private Sub SetTabName_MyTab()
    Dim i As Integer
    i = CurrentDb.OpenRecordset("Select count(*) from [MyQry];").Fields(0).Value
    TabCtrl.Pages("MyTab").Name = "MyTab (" & i & ")"
End Sub

但是，当我运行它时，最后一行返回 运行时错误 2136“要设置此属性，请在设计 View 中打开窗体或报表” .这是否意味着我不能在代码中做到这一点？我应该使用另一个事件吗？

Answer 1

您正在尝试更改 internal控件的名称，而不是 caption在标签页控件上。

尝试:

ATabcontrol.Pages("MyTab").Caption = "MyTab(" & i & ")"

Note: I have done this before and found issues with the text not changing till the tabcontrol was manipulated.