我怎么会做这在访问

Question

我试图让该搜索中的所有数据库中的表值的形式搜索数据库中的所有表中值的形式（有超过1个表）。结果将显示为出现的表格的名称。如果有人能帮助我，那将会很好。

总之，我有一个文本框和按钮的形式。我输入搜索字符串（例如183939）并单击按钮。它搜索数据库中表中所有字段内的值（183939），如果找到该值，则会显示出现的表的名称。感谢您的帮助。

Answer 1

我认为这是一个坏主意，因为它可能需要很长的时间，并提供由于还搜索系统表混乱的结果......但是下面的函数将返回所有的表名的包含搜索词的数组或如果没有找到，就没有任何问题调用示例如下：theTables = containingTable("hello")其中表是变体。一个限制是，这将失败的多值字段。

Function containingTables(term As String) 
    Dim db As Database 
    Dim tds As TableDefs 
    Dim td As TableDef 
    Set db = CurrentDb 
    Set tds = db.TableDefs 
    For Each td In tds 
     For Each f In td.Fields 
      On Error Resume Next 
      If DCount("[" & f.Name & "]", "[" & td.Name & "]", "[" & f.Name & "] LIKE '*" & term & "*'") Then 
       If Err.Number <> 0 Then 
        Debug.Print Err.Number, Err.Description 
        Err.Clear 
        On Error GoTo 0 
       Else 
        containingTables = containingTables & td.Name & "," 
        Exit For 
       End If 
      End If 
     Next 
    Next 
    Set tds = Nothing 
    Set db = Nothing 
    'Alternate Version 
    if Len(containgingTables) then containingTables = Left(containingTables, Len(containingTables) - 1) 
    'Original Version 
    'if Len(containgingTables) then containingTables = Split(Left(containingTables, Len(containingTables) - 1), ",") 
End Function 

要显示与另一个版本的结果，只需使用：Msgbox(containingTables(searchTerm))其中searchTerm是无论你正在寻找。

Answer 2

我以及我不知道你为什么会想要做这样的事情......

我想发表丹尼尔·库克的解决方案是正确的，我只花了稍微不同的方法。你需要像我一样匹配确切的价值吗？总之，这里是我的代码：

Function searchTables(term as String) 
    Dim T As TableDef 
    Dim Rs As Recordset 
    Dim Result() As String 
    Dim Counter 

    Counter = 0 
    For Each T In CurrentDb.TableDefs 
    If (Left(T.Name, 4) <> "USys") And (T.Attributes = 0) Then 

     Set Rs = T.OpenRecordset 
     While Not Rs.EOF 
     For Each Field In Rs.Fields 
      If Rs(Field.Name) = term Then 
      Counter = Counter + 1 
      ReDim Preserve Result(Counter) 
      Result(Counter) = T.Name & "," & Field.Name 
      End If 
     Next 
     Rs.MoveNext 
     Wend 
     Rs.Close 

    End If 
    Next 
    If Counter = 0 Then 
    searchTables = Null 
    Else 
    searchTables = Result 
    End If 
End Function 

你应该过滤掉重复的值，如果函数多次在同一个表提交的同相匹配。