如何用VBA在MS Access中删除TabControl选项卡？报错求助

我尝试用以下两段VBA代码删除MS Access中名为“Tab”的TabControl的所有选项卡，但两段代码均触发语法错误。已引用的组件包括：

• Visual Basic for Applications
• Microsoft Access 16.0 Object Library
• OLE Automation
• Microsoft Office 16.0 Access Database engine Object Library

第一段代码：

Private Sub DeleteAlltabs(frm As Object)

Dim tabCtrl As TabControl

    Set tabCtrl = frm.Controls("Tab")
    
    If Not tabCtrl Is Nothing Then
        For i = tabCtrl.Pages.count - 1 To 0 Step -1
            tabCtrl.Pages(i).Remove
        Next i

    End If
End Sub

第二段代码：

If Not tabCtrl Is Nothing Then
        While tabCtrl.Pages.count > 0            
            tabCtrl.Pages.Remove tabCtrl.Pages(tabCtrl.Pages.count - 1)
        Wend
End If

错误原因分析 #

两段代码的语法错误核心在于TabControl的Pages集合删除页的方式不符合Access VBA规范：

• 不能直接调用Page.Remove方法删除单页；
• Pages.Remove方法的参数仅接受页的索引（Integer）或名称（String），不能传入Page对象本身；
• 第一段代码中循环变量i未显式声明类型，属于隐式变量，可能引发额外问题。

修正后的代码 #

版本1：For循环实现

Private Sub DeleteAlltabs(frm As Object)
    Dim tabCtrl As TabControl
    Dim i As Integer ' 显式声明循环变量类型
    
    Set tabCtrl = frm.Controls("Tab")
    
    If Not tabCtrl Is Nothing Then
        ' 从最后一页向前删除，避免索引偏移导致漏删
        For i = tabCtrl.Pages.Count - 1 To 0 Step -1
            tabCtrl.Pages.Remove i ' 传入页的索引值
        Next i
    End If
End Sub

版本2：While循环实现

' 确保tabCtrl已通过Set语句正确指向目标TabControl
If Not tabCtrl Is Nothing Then
    While tabCtrl.Pages.Count > 0            
        tabCtrl.Pages.Remove tabCtrl.Pages.Count - 1 ' 传入最后一页的索引
    Wend
End If

关键注意事项 #

1. 循环方向：必须从最后一页开始向前删除。如果从第一页开始删，删除后后续页的索引会自动前移，导致循环过程中索引越界或漏删部分页。
2. 变量声明：所有变量都应显式声明（可通过在模块顶部添加Option Explicit强制要求），避免隐式类型转换带来的潜在问题。
3. 参数类型：Pages.Remove的参数仅接受索引或名称，传入Page对象会直接触发语法错误。

内容的提问来源于stack exchange，提问作者Kingsley Obeng