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

Posted 2023-03-29

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

【英文标题】：I want to check duplicate values of two field in single table using Dlookup function

【发布时间】：2020-09-10 15:36:56

【问题描述】：

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

【问题讨论】：

向网络询问“ms access dlookup 数据类型不匹配错误”，会在几秒钟内显示答案。下一个问题将是“ms 访问 dlookup 标准”，因为实际标准不会找到任何匹配项（即使它们存在）。

不。它给出了同样的错误。 “运行时错误 3464

我在描述部分附上了屏幕截图。

不显示文字图片！复制并粘贴文本（将代码放入代码块中，就像我在编辑时所做的那样），所以我们也可以复制和粘贴！！您向网络询问“ms 访问 dlookup 标准”？

【参考方案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