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

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

'判断一个字段是否在表中 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

专题文集：Access 函数
引用标题：《如何判断一个字段是否在表中的函数》
来源地址：https://www.sdruilu.cn/index.php/news/tpart-45707.html