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

【Access自定义函数】“记录是否存在”的函数

时 间:2021-12-11 09:04:32
作 者:ligy118   ID:81743  城市:洛阳
摘 要:自定义个“记录是否存在”函数。
正 文:

     需要频繁判断记录在表中是否存在,可以自定义一个“记录是否存在”函数,减少工作量。


单条件记录在表中是否存在,用下面自定义函数:

Function RecordExists1(sTbName1 As String, SFdName1 As String, sRecordValue1 As String) As Boolean
    'sTbName1 要查找的表名
    'SFdName1 要查找的字段名
    'sRecordValue1 要查找的记录值


    RecordExists1 = False
    SFdName1 = "[" & SFdName1 & "]"
    sRecordValue1 = "'" & sRecordValue1 & "'"
    If DCount(SFdName1, sTbName1, SFdName1 & " = " & sRecordValue1) > 0 Then
        RecordExists1 = True
    End If
End Function


两个条件的记录在表中是否存在,用下面自定义函数:

Function RecordExists2(sTbName1 As String, SFdName1 As String, SFdName2 As String, sRecordValue1 As String, sRecordValue2 As String) As Boolean
    'sTbName1 要查找的表名
    'SFdName1 要查找的字段名1
    'SFdName2 要查找的字段名2
    'sRecordValue1 要查找的记录值1
    'sRecordValue2 要查找的记录值2
    
    RecordExists2 = False
    SFdName1 = "[" & SFdName1 & "]"
    SFdName2 = "[" & SFdName2 & "]"
    sRecordValue1 = "'" & sRecordValue1 & "'"
    sRecordValue2 = "'" & sRecordValue2 & "'"
    If DCount(SFdName1, sTbName1, SFdName1 & " = " & sRecordValue1 & "AND" & SFdName2 & " = " & sRecordValue2) > 0 Then
        RecordExists2 = True
    End If
End Function



应用示例:

点击下载此附件


图   示:

点击图片查看大图

点击图片查看大图

点击图片查看大图



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

常见问答:

技术分类:

相关资源:

专栏作家

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