久久―日本道色综合久久,亚洲欧美精品在线,狼狼色丁香久久婷婷综合五月,香蕉人人超,日本网站黄,国产在线观看不卡免费高清,无遮挡的毛片免费

　　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