Office中国论坛/Access中国论坛

标题: 文本框输入有效性(已解决) [打印本页]

作者: 123shusheng 时间: 2009-11-25 14:12
标题: 文本框输入有效性(已解决)
本帖最后由 123shusheng 于 2009-11-25 19:19 编辑

我在窗体客户简称文本框内输入客户简称,要求只能输入客户简称表内的客户简称,否则出现提示框.由于我的客户简称有一千多,所以不能使用组合框,请高手指点,谢谢![attach]40530[/attach]

作者: xiazaidj 时间: 2009-11-25 16:50
回答如下:
在保存按钮中加入如下判断代码
'==============================
If Nz(Me.txtForShort) <> DLookup("[FForShort]", "客户简称") Then
MsgBox "您输入的客户简称并不存在于客户简称表中,请重新输入", vbCritical, ""
Else
blnAllowUpdate = True
DoCmd.RunCommand acCmdSaveRecord
blnAllowUpdate = False
End If
'==============================
添加了附件,请查看!

作者: aslxt 时间: 2009-11-25 18:13

我在窗体客户简称文本框内输入客户简称,要求只能输入客户简称表内的客户简称,否则出现提示框.由于我的客户简称有一千多,所以不能使用组合框,请高手指点,谢谢!40530
123shusheng 发表于 2009-11-25 14:12

为什么不能用组合框？可惜

作者: aslxt 时间: 2009-11-25 18:14
在组合框的改变事件中，重新查询列表，就轻松多了

作者: 123shusheng 时间: 2009-11-25 19:22
谢谢,xiazaidj,正是我想要的

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