标题: 修改提示信息！ [打印本页] 作者: Happyboy 时间: 2003-8-27 23:39 标题: 修改提示信息！ [attach]1535[/attach]
我想在录入销售订单时，如果客户代码输入错误，那么跳出来的提示框内容就是：输入的客户代码有误。如果是产品代码输入错误，那么跳出来的提示框内容就是：输入的产品代码有误。我应该怎么做呢？请高手赐教！可否详细说明修改的过程呢？谢谢！[attach]1536[/attach]作者: chenghai 时间: 2003-8-28 00:56
可以修改这个出错信息。
不过我更喜欢用这个思路：‘客户代码’做成组合框，绑定‘客户’表，用下拉列表选择，再将组合框属性设成限于列表。在不在列表事件中写入自己要的提示语句。作者: Happyboy 时间: 2003-8-28 05:36
请问chenhai兄，不过可否说的详细一些？我知道第二个思路可以实现，不过我想问你另一个思路，不知可否不吝赐教？作者: tmtony 时间: 2003-8-28 06:18
chenghai的意思是将客户输入做成下拉组合框，且将组合框的的限制列表属性设置为是，然后在notinlist(不在列表）事件中写自己的提示信息或做其它操作。如果对这个事件不太明白，可选择到这个事件，再按F1看一下ACCESS自身的帮助作者: Happyboy 时间: 2003-8-28 07:31
tmtony兄，我知道 chenghai 兄的意思，我的意思是除了这个，有没有别的方法？谢谢！作者: tmtony 时间: 2003-8-28 07:46
在更新前事件中去判断或在error事件中截获错误信息再判断错误代码使用自定义的信息提示，也可在窗体更新前判断，不过，各方法有好有坏，但大致都可实现目的作者: 徐阿鹏 时间: 2003-8-28 16:27
Private Sub 客户名称_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("客户名称", "客户表", "客户名称‘" +“客户名称+ "'")) Then
MsgBox ""
End If
End Sub作者: Happyboy 时间: 2003-9-1 15:59
徐阿鹏兄，多谢你的指点，可是我不知道为什么有错误啊，他执行不了啊。
Private Sub 客户名称_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("客户名称", "客户", "客户代码‘" +“客户代码+ "'")) Then
MsgBox "客户不存在"
End If
End Sub
请问哪里出现错误了呢？ 作者: qqqq 时间: 2003-9-1 19:31
在客户代码更新后事件中
If IsNull(DLookup("客户名称", "客户", "客户代码='" & [客户代码] & "'")) Then
MsgBox "客户不存在"
End If