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

123shusheng

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

123shusheng

谢谢,xiazaidj,正是我想要的

aslxt

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

aslxt

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

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

xiazaidj

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