判断一个字段是否在表中的函数
确定某个字段是否在表
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
0条评论