当您知道列的名称时查找表格？

Question

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

有没有办法实现这一点,在我开始像猴子一样一个接一个地走？

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