这些表是从哪里来的？访问 VBA答案

【问题标题】：Where are these tables coming from? Access VBA这些表是从哪里来的？访问 VBA
【发布时间】：2020-07-13 22:00:22
【问题描述】：

我创建了一个过程，它将所有表的名称存储在一个数组内的外部数据库中。这样做的原因是，最终，我将使用它作为参考点来确定需要重新链接哪些表。

下面的代码一共返回13张表：

For Each tb In db.TableDefs

    If Left(tb.Name, 4) <> "MSys" Then
        'Store these accepted table names in an array
        astrTableNames(intArryPosition) = tb.Name
        intArryPosition = intArryPosition + 1
    End If

Next tb

并将它们的名称存储在一个数组中。这是我打印数组时的结果列表：

1: DispenseStaging
2: DispenseSummary_All
3: DrugBrand
4: NDC
5: Programs
6: StateCodes
7: StoreInfo
8: tblCompany
9: tblGetProgramDispense
10: Users
11: Users1
12: Version
13: Zipcodes

问题出在 - 当我打开数据库时 - 它只有 4 个表。没有更多 - 没有对链接或任何东西的引用。

那么这些表实际上是从哪里来的呢？这是否意味着它们曾经存在但后来被删除但引用仍然存在？

谢谢

附：这是我用来打印数组的过程：

'Procedure to print the contents of a string array
 Public Sub PrintArrayContents(ArryStrg() As String)

    Dim i As Integer

    For i = LBound(ArryStrg) To UBound(ArryStrg)
        Debug.Print i & ": "; ArryStrg(i)
    Next i

End Sub

【问题讨论】：

标签： ms-access vba ms-access-2007

【解决方案1】：

这些可能是隐藏的表格。

您可以在 Access 2007 中显示它们，方法是转到 Navigation 窗格，然后右键单击 All Access Objects 并选择 Navigation options。

这将打开一个对话框让您显示隐藏的对象。

【讨论】：

接受了这一点 - 还有一个问题，如果您选择“所有访问对象”，为什么会隐藏对象？你会认为他们会出现

【解决方案2】：

这些表可能是垃圾表或在 UI 上不可见的链接表，因为链接已损坏或垃圾表和链接表同时存在。
在数据库上尝试“压缩和修复”（首先备份数据库文件！）并重新执行您的函数以查看是否获得相同的结果集。如果这样做，请阅读表属性以尝试找出表所属的位置以及它们是什么（链接表或基表）。检查 LastUpdated、Updatable、SourceTableName，也许还有 RecordCount 属性以获取有关怪人的一些信息 :)
如果您仍然看不到发生了什么，首先，阅读系统表以找出“额外表”的元数据（例如 MSysObjects 告诉您可以提供帮助的 obj.type），其次，尝试执行查询返回的那些表、值或错误可能会告知您这些人所属的位置。
我怀疑，但有可能（因为它是访问：P）某些表只是“隐藏”的。您可以在导航窗格中打开/关闭“显示隐藏的表格”。

请带着你的发现回来，我对结果很好奇。

【讨论】：

很好的答案 - 我认为非常完整：P
确实如此。我假设你知道访问的“超级功能”:)

【解决方案3】：

只是想我会添加这个答案来涵盖 MS Access 2003。要查看隐藏的对象，请执行以下操作：

工具
选项
选择查看选项卡
在“显示”选项下，选中“隐藏对象”选项

您现在应该可以看到数据库中的隐藏表等。

【讨论】：