求窗体中的文本框内如何规定输入限制??

gemeng　发表于：2011-11-22 09:38:12 　

复制

请看附件中，文本框“Part No”目前输入任何值都可以录入

系统中还有一个表“物料库位清单”里面也有对应的“Part No”

请问当文本框“Part No”输入的条件不等于表“物料库位清单”里的“Part No”时候，提示输入错误，不可以录入系统

输入当前库位没有的料号提示错误，不能录入！

如何才能实现此功能呢？

点击下载此附件

Top

风行发表于：2011-11-22 09:54:00

直接用组合框不就好了

Top

gemeng 发表于：2011-11-22 10:20:13

风行大哥：

我引用怎么没用啊？不是在失去焦点？

Private Sub Part_NO_LostFocus()
If DCount("[Part No]", "物料库位清单") <= 0 Then
MsgBox "输入当前库位没有的料号提示错误，不能录入", vbCritical, "警告"
Me.[Part NO].SetFocus
End If
End Sub

组合框是不行啦，物料库位清单很多啊！

Top

gemeng 发表于：2011-11-22 13:06:25

恩，这样可以了！

还有一个小问题，为什么一打开这个窗体就提示“输入当前库位没有的料号提示错误，不能录入”呢，

如何让它在打开的时候不要提示呢，因为我还没有输入了就提示了，

Top

gemeng 发表于：2011-11-22 13:17:00

如果是这样，当文本框内是空白，不输入信息的时候不提示！

不知道怎么写入代码可以实现呢？

Top

风行发表于：2011-11-22 13:17:24

那文本框更新后事件里写这段

If DCount("*","物料库位清单","[Part No]='" & Me.[part no] & "'")<=0
Then msgbox "输入当前库位没有的料号提示错误，不能录入" , vbCritical, "警告"
Me.[part no].SetFocus
End If

Top

gemeng 发表于：2011-11-22 14:16:18

非常感谢总版主风行

谢谢你的帮忙！

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

求窗体中的文本框内如何规定输入限制??