Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

自定义函数判断表中某个字段是否有重复值(第二版)

时 间:2014-07-19 13:33:41
作 者:善解人衣   ID:29924  城市:文山
摘 要:自定义函数判断表中某个字段是否有重复值
正 文:

在模块中自定义函数:ExistDuplicateRecords(Expr As String, Domain As String) As Boolean

调用时第一个参数是要查重复值的字段名,第二个参数是表或查询名称。有重复值时返回True。

'函数名称:ExistDuplicateRecords(参数1,参数2)

'函数功能:检查一个表中某字段是否有重复值

'参数:函数有两个参数,参数1为想要检查的字段名,参数2为要查询的表名或查询名称

'返回值:如果字段(参数1)在表(参数2)中有重复值,函数返回True,否则返回False

Public Function ExistDuplicateRecords(Expr As String, Domain As String) As Boolean
    On Error Resume Next
    Dim cnn As Object           'ADODB.Connection
    Dim rst As Object          'ADODB.Recordset
    Dim strSQL As String


    Set cnn = CurrentProject.Connection


    strSQL = "Select * FROM " & Domain & _
             " Where " & Expr & _
             " In (Select " & Expr & _
             " From  " & Domain & _
             " Group By " & Expr & _
             " Having Count(*)>1);"
    Set rst = OpenADORecordset(strSQL, , cnn)
    If rst.recordCount > 0 Then
        ExistDuplicateRecords = True
    End If
    rst.Close
    Set cnn = Nothing
    Set rst = Nothing
End Function


Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助