我想使用Dlookup函数检查单个表中两个字段的重复值

问题描述

enter image description here我需要检查单个表中两个字段中的重复值。我需要检查特定雇主的EMPNo（雇主编号）和EMPDATE（雇主出勤日期）的重复条目。

我使用了以下代码，但它给出了"Data type mismatch error"

我现有的DLookup函数如下；

Private Sub Command41_Click()
Dim EMP As String
EMP = DLookup("[EMPNO]","[tbl_LEAVE]","[EMPNO] = '" & Me.txtEMPNO & "' And LEAVEDATE= " & Me.txtDate)

End Sub

解决方法

您的问题是，日期条件必须正确设置格式。此外，找不到时DLookup返回 Null ，并且不能将 Null 分配给字符串。因此，应用 Nz ：

Private Sub Command41_Click()

    Dim EMP As String

    EMP = Nz(DLookup("[EMPNO]","[tbl_LEAVE]","[EMPNO] = '" & Me.txtEMPNO & "' And LEAVEDATE = #" & Format(Me.txtDate,"yyyy\/mm\/dd") & "#"))

End Sub