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

2023信創(chuàng)獨(dú)角獸企業(yè)100強(qiáng)
全世界各行各業(yè)聯(lián)合起來(lái),internet一定要實(shí)現(xiàn)!

判斷一個(gè)字段是否在表中的函數(shù)

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

  MsgBox BlnField("tbl1", "ID")

  End Sub

相關(guān)頻道: eNews

您對(duì)本文或本站有任何意見(jiàn),請(qǐng)?jiān)谙路教峤唬x謝!

投稿信箱:tougao@enet16.com