求助！如何检查记录重复录入

dongv　发表于：2020-06-02 14:06:40 　

表 tblJobOrder,在录入数据时，想检查表中三个字段是否有重复记录, 代码如下：

Private Sub JobFinished_AfterUpdate()
    Dim cnn: Set cnn = CurrentProject.Connection 'ADO.Connection()

    Dim strSQL: strSQL = "SELECT [JobNo], [PrintingPass], [JobFinished] FROM [tblJobOrder]" _
                       & " WHERE [JobNo]= '" & Me.JobNo & "' and [PrintingPass]=" & Me.PrintingPass & " and [JobFinished]=" & Me.JobFinished _
                       & " GROUP BY [JobNo], [PrintingPass], [JobFinished]"

    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)

If DLookup([JobFinished], rst, [JobNo] = Me.JobNo & "' and " & [PrintingPass] = Me.PrintingPass) = Me.JobFinished Then
        MsgBox "记录输入重复，请检查！", vbOKOnly + vbExclamation, "提示"
        Me.JobNo.Value = Null
        Me.JobNo.SetFocus
    End If
End Sub

执行完上面的SQL得到的记录如下：

查询1

JobNo	PrintingPass	JobFinished
	0	No
	1	No
00000	1	No
0000001	2	No
001	0	No

录入测试总是报错在 If DLookup那句上

请问该如何修改？

Top

西出阳关无故人发表于：2020-06-02 20:25:25

一般是这样:

dlookup("字段名称","表或查询名称","文本字段名='" & 文本值或文本变量名 & "' and/or 数字字段名=" & 数值或数值变量 & " and/or 日期字段名=#" & 日期值或日期型变量 & "#")

第一,二两个参数也可以用文本型变量代替,但是肯定不能用recordset.

Top

麥田发表于：2020-06-02 22:00:04

    If dcount("*", "表名称", "字段1='" & Me.字段1 & "' and 字段2='" & Me.字段2 & "'") >0 Then
         MsgBox "此数据已录入,请不要重复添加!"
         Exit Sub
     End If

Top

dongv 发表于：2020-06-03 12:40:41

@麥田，换成dcount也是同样的错误

Top

dongv 发表于：2020-06-03 13:45:12

If Not rst.BOF And Not rst.EOF Then
MsgBox "此数据已录入,请不要重复添加!"
Exit Sub
End If

这样可以了

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

求助！如何检查记录重复录入