如何判断一个字段是否在表中的函数:
'判断一个字段是否在表中
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
相关视频
相关阅读 我的世界手机版js函数表大全Excel如何绘制函数图像sqlsever函数集合 数学函数,系统函数利用Authorware函数制作钟表xhEditor编辑器的API函数接口列表PlaySound函数在VC++6.0中如何播放音乐及声音?用Excel函数实现分栏打印Windows平台内核级文件访问
热门文章 没有查询到任何记录。
最新文章
Access 2010 的十大优
Access2000如何创建索引Access数据库的存储上限ADO连接Access的几种规范做法Access通用-自动替换数据库中的字符串
人气排行 详解MDB与XLS文件互相转换方法C# Access 读取多级分类 dataset操作Access数据库过大问题的几种解决方案Access 2010 的十大优势如何使用c#操作ACCESS数据库Access数据库支持多少用户同时在线使用MD5加密数据库中的用户密码(一)SQL查找Access中某表是否存在方法
查看所有0条评论>>