根据青苹所提供的附件出现的问题，给予的解决方法．

首先要建立好和表1有关的查询，在这，做了二个（如附件）．

然后，再在窗体的保存按钮的单击事件代码中写：

Private Sub CmdSave_Click()
 Dim A
 Me.Refresh
  If DLookup("count([物料编号])", "表1 查询") > 1 Then   '  

 MsgBox "物料编号重复,请重新输入"
  Me.Undo
 End If ' Else

If DLookup("count([物料规格])", "表1查询") > 1 Then
MsgBox "物料规格重复,请重新输入"
Me.Undo
    End If
End Sub

点击下载此附件