判斷一個字段是否在表中的函數

確定某個字段是否在表
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

位律師廻複