'判斷一個字段是否在表中
function blnfield(stblname as string, sfldname as string) as boolean

'stblname　源表名
'要查找的字段名

dim fld as field
dim rs as dao.recordset

blnfield = false
set rs = currentdb.openrecordset(stblname)
rs.fields.refresh
for each fld in rs.fields
if fld.name = sfldname then
blnfield = true
exit for
end if
next
rs.close
set rs = nothing
set fld = nothing
end function

private sub 命令0_click()
'返回true則有此字段，false則無
msgbox blnfield("tbl1", "id")
end sub