前段时间,有网友问我,如何在平台以外的数据库中判断数据重复输入。其实可以利用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