database - 知道列名就找表？

Question

我在 Access 中有一个数据库，其中包含大量的表。不幸的是，创建者使用了非常非描述性的名称，因此基本上不可能仅通过查看名称来猜测表格的用途。我急需找到一个包含某些数据的表，而且我很确定我知道其中某些列的名称，或者至少知道列名称中包含的单词。基本上，我需要的是某种“在整个数据库中的每个表中按列名搜索”，它显示包含特定列名的所有表。

在我像猴子一样开始一个接一个之前，有什么办法可以做到这一点吗？

Answer 1

此过程将列出其名称中包含您提供的文本的任何列的表名和列名。结果打印在立即窗口中(使用 Ctrl+g)

Public Sub ListTablesWithColumnNamesContaining(ByVal pText As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
For Each tdf In db.TableDefs
    For Each fld In tdf.Fields
        If InStr(1, fld.Name, pText, vbTextCompare) > 0 Then
            Debug.Print tdf.Name & ":", fld.Name
        End If
    Next fld
Next tdf
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
End Sub