修改提示信息！

Happyboy

我想在录入销售订单时，如果客户代码输入错误，那么跳出来的提示框内容就是：输入的客户代码有误。如果是产品代码输入错误，那么跳出来的提示框内容就是：输入的产品代码有误。我应该怎么做呢？请高手赐教！可否详细说明修改的过程呢？谢谢！

chenghai

可以修改这个出错信息。
不过我更喜欢用这个思路：‘客户代码’做成组合框，绑定‘客户’表，用下拉列表选择，再将组合框属性设成限于列表。在不在列表事件中写入自己要的提示语句。

Happyboy

请问chenhai兄，不过可否说的详细一些？我知道第二个思路可以实现，不过我想问你另一个思路，不知可否不吝赐教？

tmtony

chenghai的意思是将客户输入做成下拉组合框，且将组合框的的限制列表属性设置为是，然后在notinlist(不在列表）事件中写自己的提示信息或做其它操作。如果对这个事件不太明白，可选择到这个事件，再按F1看一下ACCESS自身的帮助

Happyboy

tmtony兄，我知道 chenghai 兄的意思，我的意思是除了这个，有没有别的方法？谢谢！

tmtony

在更新前事件中去判断或在error事件中截获错误信息再判断错误代码使用自定义的信息提示，也可在窗体更新前判断，不过，各方法有好有坏，但大致都可实现目的

徐阿鹏

Private Sub 客户名称_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("客户名称", "客户表", "客户名称‘" +“客户名称+ "'")) Then
MsgBox ""
End If
End Sub

Happyboy

徐阿鹏兄，多谢你的指点，可是我不知道为什么有错误啊，他执行不了啊。

Private Sub 客户名称_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("客户名称", "客户", "客户代码‘" +“客户代码+ "'")) Then
MsgBox "客户不存在"
End If
End Sub
请问哪里出现错误了呢？

qqqq

在客户代码更新后事件中
If IsNull(DLookup("客户名称", "客户", "客户代码='"  & [客户代码] & "'")) Then
MsgBox "客户不存在"
End If

Happyboy

多谢qqqq兄，问题得到解决！