子窗体里物料重复的问题

在品名输入后，立刻用Dlookup函数在当前子窗体源表中搜索是否存在单号=当前单号，并且品名=当前品名的记录，如果有则提出提醒并擦除记录。

只要在品名的更新前事件中放入下面（红色）代码即可

Private Sub 品名_BeforeUpdate(Cancel As Integer)
cf = DLookup("品名", "扩展表", "单号 = '" & Me![单号] & "'and 品名 = '" & Me![品名] & "'")
If IsNull(cf) = False Then
MsgBox "您输入的品名在本单号中重复！"
Me.Undo
End If
End Sub

点击下载此附件