判断一个字段是否在表中的函数

确定某个字段是否在表
Function bln field(stbl name为string，sfldname为string)中为布尔值

要为“sTblName源表名
”查找的字段名称

Dim fld As Field
Dim rs As DAO。记录集

bln field = False
Set RS = CurrentDb。open recordset(stbl name)
RS。rs中每个fld的刷新
。字段
如果是fld。name = SF ldname Then
bln field = True
Exit For
End If
Next
RS。close
Set RS = Nothing
Set fld = Nothing
End函数

Private Sub命令0_Click()
'返回True以拥有此字段，但返回False则没有
msgbox blnfield ("TBL1 "，" ID")
end sub