[求助]一个文本有效性问题

qw7912

我表中有一个字段叫合同编号，我现在是手动录入的，我录入的规则是：年+月+日+3位数字（比如20050101001）。我只会设置日期那部分的，但是数字

怎么办，我希望手动录入有错误能提示，能帮助一下吗，怎么设置这个规则，用语言？用文本有效性？

我还想了个方法，就是写个日期框，然后让合同编号取它的值，可惜也没弄明白，如果可以也帮忙想想呀！

[此贴子已经被作者于2005-12-7 11:55:39编辑过]

fan0217

用日期和编号两个字段，在查询中合并。分别设置可能方便。

qw7912

是个好办法，但是不太和录入的习惯。能在帮忙想一下吗，方便实用就好

fan0217

不用用有效性规则，用VBA的方法，在输入窗口的字段的更新前检查是否合法。

qw7912

应该怎么写，能帮忙写一下吗

qw7912

高手帮忙呀

一点通

如果是连续性的编号,最好的方法是由电脑自动生成,如果是自己写入的编号,除了字段格式外,还要判断什么呢?

qw7912

主要就是时间问题，我刚开始想用输入日期的方法自动得到编号，但是编号不是光有年月日的，之后还的加数量，也就是这个月卖的产品的数量，这个是不固定的，也不是能顺序取得的，如果录入有空位的话，也不好处理。

所以当手动录入的时候就不得不判断它的准确性，象20057878001这样的编号就不可以录入，但是现在我不会判断怎么取日期的中断，我说的明白吗。就是避免录入的时候出现错误，有一定的规则

一点通

if lwft(me.编号文本框,8) <> format(date(),"yyyymmdd") then

    MsgBox "输入的日期格式不对", , "请重新输入"

end if

这是判断前8位数是否与当前日期相符的方法

qw7912

谢谢，解决了[em02]