2021中国心血管内科专家50强
全世界各行各业联合起来,internet一定要实现!

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

2004-02-11 eNet&Ciweek

  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

相关频道: eNews

您对本文或本站有任何意见,请在下方提交,谢谢!

投稿信箱:tougao@enet16.com