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

来源： 作者： 出处：巧巧读书 2005-12-03 进入讨论组

• 关 键 词：

　　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本文：http://www.qqread.com/access/p382125505.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：远程数据库的访问

较新的文章：如何确定有多少人登陆数据库