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

Question

在此处输入图像描述我需要检查单个表上两个字段中的重复值。我需要检查特定雇主的 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

Answer 1

您的问题是，日期标准必须正确格式化。此外，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