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

mulinsen

鄙人遇到一个这样的问题：在一个输入的窗口中一个文本框为送货单号，我想输入一个单号的时候就会把对应的表中的跟单号一样的记录所有的字段显示在窗口上。假如对应的表中没有相应的记录则保存。

[此贴子已经被作者于2006-3-20 11:21:17编辑过]

mulinsen

问题还是没有表述清楚。表中有这两条记录，字段送货单号分别为：100   200

现在在一个输入的窗口，输入送货单号为100 的时候就去核对表中是否已有一条记录为100，有则显示。在输入300时判断没有，则增加。

mulinsen

上传了，就是送货单窗体，当新增输入送货单的时候

mulinsen

fan0217在马

mulinsen

谢谢一点通的帮助。但问题不是像你的那样，不想用对话框提示，而是此时不是把内同用对话框是显示在窗体上。

mulinsen

谢谢一点通的帮助。但问题不是像你的那样，不想用对话框提示，而是此时不是把内同用对话框是显示在窗体上。

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了。这个修改怎么样来做。