文本框输入有效性(已解决)

123shusheng · 发表于 2009-11-25 14:12:04

本帖最后由 123shusheng 于 2009-11-25 19:19 编辑

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

xiazaidj · 发表于 2009-11-25 16:50:35

回答如下:
在保存按钮中加入如下判断代码
'==============================
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:08

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

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

aslxt · 发表于 2009-11-25 18:14:49

在组合框的改变事件中，重新查询列表，就轻松多了

123shusheng · 发表于 2009-11-25 19:22:24

谢谢,xiazaidj,正是我想要的

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 文本框输入有效性(已解决)

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)