欧美久久天天综合香蕉伊,h片在线免费观看,九九欧美,欧美1区2区3区,日本在线不卡一区,国产视频久久久,91久久久久久久

　　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則有此字段，F(xiàn)alse則無

　　MsgBox BlnField("tbl1", "ID")

　　End Sub