如果查找记录中的重复字段

可以利用Dlookup这个函数来实现。代码如下：
 表名称：tbpwzjc;字段名：wzid,主键.wzmc——物资名称。Wzsh－物资型号

If (Not IsNull(DLookup("[wzid]", _
        "tblwzjc", "[wzmc] ='" _
        & Me![wzmc] & "'"))) Then
        MsgBox "此记录已录入"
     Me.rq.SetFocus
     Exit Sub
    
End If

 假如物资名称相同时，不提出提示框，而是物资名称和物资型号完全一样时，才需要出现提示框。这时候也可以用这个函数来实现！代码如下！
If (Not IsNull(DLookup("[wzid]", _
        "tblwzjc", "[wzmc]+[wzsh] ='" _
        & Me![wzmc] + [wzsh] & "'"))) Then
        MsgBox "此记录已录入"
     Me.rq.SetFocus
     Exit Sub
    
    End