Office中国论坛/Access中国论坛

标题: 一个很简单但又难以解释的问题。 [打印本页]

作者: mulinsen 时间: 2006-3-20 18:36
标题: 一个很简单但又难以解释的问题。
鄙人遇到一个这样的问题：在一个输入的窗口中一个文本框为送货单号，我想输入一个单号的时候就会把对应的表中的跟单号一样的记录所有的字段显示在窗口上。假如对应的表中没有相应的记录则保存。[attach]16503[/attach]

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

作者: fan0217 时间: 2006-3-20 18:58
应该不难解决,把你的例子放上来.

作者: mulinsen 时间: 2006-3-20 19:00
问题还是没有表述清楚。表中有这两条记录，字段送货单号分别为：100 200

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

作者: fan0217 时间: 2006-3-20 19:08
明白你问题

作者: mulinsen 时间: 2006-3-20 19:22
上传了，就是送货单窗体，当新增输入送货单的时候

作者: mulinsen 时间: 2006-3-20 22:22
fan0217在马

作者: 一点通 时间: 2006-3-21 00:36
是否这样?

[attach]16514[/attach]

作者: mulinsen 时间: 2006-3-23 19:54
谢谢一点通的帮助。但问题不是像你的那样，不想用对话框提示，而是此时不是把内同用对话框是显示在窗体上。

作者: mulinsen 时间: 2006-3-23 19:55
谢谢一点通的帮助。但问题不是像你的那样，不想用对话框提示，而是此时不是把内同用对话框是显示在窗体上。

作者: 一点通 时间: 2006-3-23 19:59
可参照这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=37940

作者: mulinsen 时间: 2006-3-24 00:19
看了你的帮助，我还是不能实现我要的结果。

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 时间: 2006-3-24 19:39
看了，但还是有问题。

作者: 一点通 时间: 2006-3-24 21:23
[attach]16628[/attach]

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

作者: 一点通 时间: 2006-3-26 00:40
应多创建一个修改窗体,当有相同参数时弹出这个窗体来修改

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)