国产黄色免费网站,人人干人人干人人干,免费大黄网站在线看,国产情侣一区二区三区,99精品国产福利免费一区二区,国产亚洲成归v人片在线观看,伊人88

　　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