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

时　间:2007-11-12 09:40:42
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:判断一个字段是否在表中的函数
正　文:

　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