Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Compare Database
- Public Sub SearchTables(SearchString As String)
- Dim tdf As DAO.TableDef
- Dim sTable As String
- Dim sField As String
- Dim sMsg As String
- sMsg = ""
- For Each tdf In CurrentDb.TableDefs
- sTable = tdf.Name
- sField = SearchTable(sTable, SearchString)
- If sField <> vbNullString Then
- sMsg = sMsg & vbCrLf & "Table = " & sTable & " Field = " & sField
- End If
- Next
- Forms!Search!Text21 = sMsg
- End Sub
- Public Function SearchTable(Tablename As String, SearchString As String)
- Dim rs As DAO.Recordset
- Dim i As Integer
- Dim sReturn As String
- Set rs = CurrentDb.OpenRecordset(Tablename, dbOpenDynaset, dbOpenDynamic)
- Do Until rs.EOF
- For i = 0 To rs.Fields.Count - 1
- If rs.Fields(i).Type = dbText Then
- If InStr(1, rs.Fields(i).Value, SearchString) > 0 Then
- sReturn = rs.Fields(i).Name
- Exit Do
- End If
- End If
- Next
- rs.MoveNext
- Loop
- SearchTable = sReturn
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement