Sub SearchField()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
Dim strField As String
Dim boolExists As Boolean
Set db = CurrentDb
Set tbl = db.TableDefs(InputBox("Please enter table name:", "Table To Be Searched"))
strField = InputBox("Please enter the field name you...