一个很简单但又难以解释的问题。

mulinsen

看了你的帮助，我还是不能实现我要的结果。

Private Sub 送货单号_BeforeUpdate(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone

If Not IsNull(DLookup("[类别ID] & [送货单号]", "[送货单表]", "[类别ID]=form.[类别ID] and [送货单号]=Form.[送货单号]")) Then
       MsgBox ("送货单重复!!!")
       Me.Combo6 = DLookup("[车牌号]", "送货单表", "[类别ID]=form.[类别ID] and [送货单号]=Form.[送货单号]")   '这里提示出了问题
      
End If
End Sub
这要怎么样做。

  

mulinsen

看了，但还是有问题。

一点通

mulinsen

谢谢 一点通。一个问题解决又出现另外的一个问题，那就是重复就在当前窗口显示，但怎么样来重新做修改呢？ 比如以前的单据日期是2006-03-24  现在要修改为2006-03-25了。这个修改怎么样来做。

一点通

应多创建一个修改窗体,当有相同参数时弹出这个窗体来修改