访问 VBA 以打开/激活数据库表

Posted

技术标签:

【中文标题】访问 VBA 以打开/激活数据库表【英文标题】:Access VBA to open/activate a database table 【发布时间】:2020-05-29 15:56:34 【问题描述】:

我有一个开放的 MS Access 数据库,左侧显示了 20 个表,并且打开了两个选项卡,显示了两个表的内容。我正在尝试编写 vba 代码以 1)选择/激活已打开的选项卡之一,以及 2)为左侧尚未打开的表之一打开一个新选项卡。

我查看了许多示例,但它们都在谈论表单,而不是我想在主 Access 表显示中使用的选项卡控件/选项卡。到目前为止,这是我的代码 - 我可以获得表的名称,但我不知道如何在 Access 显示中打开和激活表的选项卡。

Sub ActivateCommandsTable()
 ' activate or open a tab for the Commands table
 Dim tbl As AccessObject, db As Object
 Set db = Application.CurrentData

 ' Search for open AccessObject objects in AllTables collection.
 For Each tbl In db.AllTables

 If tbl.IsLoaded = True Then
    ' Print name of the table
    Debug.Print tbl.name
    If tbl.name = "Commands" Then

        ' I need some code here to activate/open the table tab

        Exit Sub
    End If
 End If

 Next tbl
End Sub

【问题讨论】:

【参考方案1】:

只需使用DoCmd.OpenTable

DoCmd.OpenTable tbl.Name

【讨论】:

以上是关于访问 VBA 以打开/激活数据库表的主要内容,如果未能解决你的问题,请参考以下文章

将excel工作表数据从excel vba传输到访问表给出错误

使用 VBA 激活打开的 MS Access 文件以发送密钥

访问数据项目在VBA中导入CSV文件

访问 VBA 代码以删除表(如果存在)

检查 csv 文件是不是从 vba 打开

在 Excel 2016 中,当宏与工作表关联时,VBA 不会激活备用工作表