WHY are there 100 tables? this seems wrong.
youd need to program a routine the go thru each table to produce a query to load the results to the tResult table.
a form would have the search item: txtFind
then the code would query all the tables
either use a list of the tables,
or
cycle thru the table names to get only Bom tables (my example)
put all results into the tResult table
Code:
dim tdf as tabledef
dim db as database
dim sSql as string
Code:
docmd.Setwarnings false
set db = currentdb
for each tdf in db.tabledefs
'get the Bom tbl
if instr(tdf.name ,"Bom")>0 then
sSql = "Insert into tResults Select * from " & tdf.name & " where [name] = '" & me.txtFind & "'"
docmd.runSql sSql
next
docmd.Setwarnings true
docmd.Opentable "tResults"