源码

热门下载

最新下载

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

当前位置：首页 > 源码 > 模块/函数/VBA/API/系统 > 内置函数/模块
内置函数/模块

Access判断表字段是否存在

  • 更新时间2015-02-10 16:16:13
  • 文件下载 点击下载
  • 文件类型rar
  • 文件版本Access2003
  • 简要说明下面的函数就是检测表中某字段是否存在的函数。

详细描述

有的时候，我们需要动态添加表字段，那么就需要判断某表中字段是否存在了。如果不存在，即添加；想反，存在，即不添加等等情况，我们都需要先判断某表的字段是否存在

下面的函数就是判断表中某字段是否存在的函数。

 

用途:检测某表中是否存在某个字段

'输入参数： sTableName 必需的,表名称。

'                 sFieldName  必需的,检测的字段名称
'返 回  值： true或者false
'使用示例： IsExistField("订单表","名称")

 

 

Public Function IsExistField(ByVal sTableName As String, _

                             ByVal sFieldName As String) As Booleanler
    Dim fld As Field
    Dim rs As DAO.Recordset
    IsExistField = False
    Set rs = CurrentDb.OpenRecordset(sTableName)
    For Each fld In rs.Fields
        If fld.Name = sFieldName Then
            IsExistField = True
            Exit For
        End If
    Next
    rs.Close
    Set rs = Nothing
    Set fld = Nothing
    
ExitHere:
    Set rs = Nothing
    Set fld = Nothing
    Exit Function
    
ErrorHandler:
    MsgBox Err.Description, vbInformation, "提示"
    Resume ExitHere
End Function
 
access数据库

标签:  access,表,字段,判断,存在
发布人:zstmtony  
分享到：
点击次数：  更新时间：2015-02-10 16:16:13  【打印此页】  【关闭】
上一条：Access固定资产管理系统（精简版）  下一条：Access命令按钮控制组合框的选值

相关下载

热门下载

热门产品