【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

应用示例:

点击下载此附件

图   示: