Searching multiple tables for a field

[OpIv37]

I need to find a password field in a db of hundreds of tables. Is there any way to globally search all of the tables to find which one contains the field?

Thanks in advance-

 

[mhartman1]

Hello

The below code cycles through each field in a table called tblStaff and displays in a message box the field name.

Dim db As Database
Dim rs As DAO.Recordset
Dim fld As Field
'
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblStaff")
'
For Each fld In rs.Fields
msgbox fld.Name
Next fld
rs.Close
CurrentDb.Close



Regards
Mark

 

[PHV]

A starting point:

Sub Determine_If_A_Field_Exist(strFieldName As String)
Dim Dbs As Database
Dim Table_Definition As TableDef
Dim fldLoop As DAO.Field

Set Dbs = CurrentDb
For Each Table_Definition In Dbs.TableDefs
  For Each fldLoop In Table_Definition.Fields
    If fldLoop.Name = strFieldName Then
      Debug.Print strFieldName & " exists in " & Table_Definition.Name
      Exit For
    End If
  Next
Next
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886