设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: qw7912
打印 上一主题 下一主题

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

[复制链接]
11#
 楼主| 发表于 2005-12-9 23:27:00 | 只看该作者
还是有点问题,我输入2005120601之后,他提示我"输入的日期格式不对", , "请重新输入",不对吧,是不是date()这个函数是去当天的日期,只有输入当天的日期才有效呀,date()这个函数没有看懂,[em04]
12#
发表于 2005-12-9 23:39:00 | 只看该作者
是的,DATE()是当天的系统日期
13#
 楼主| 发表于 2005-12-10 00:32:00 | 只看该作者

我就是想取得格式

我就是想取得格式,不见得非的是今天的日期。我也许会录去年的合同,所以日期不见得是今天的。
14#
发表于 2005-12-10 06:22:00 | 只看该作者
先用Left(Me.编号文本框,8)将前8位取出来,然后用函数IsDate()判断.

If IsDate(Left(Me.编号文本框,8))=False Then

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

End If
15#
 楼主| 发表于 2005-12-10 17:16:00 | 只看该作者
还是不行,ISDATE我写了,但是我即便写正确了日期,他还提示我"输入的日期格式不对", , "请重新输入",我把FALSE改成TRUE之后,就怎么写都不提示错误了,呵呵,即使我写错了日期也是一样的,为什么,这个还不行呢,错在那里呢?
16#
发表于 2005-12-10 17:41:00 | 只看该作者
如果只是判断是否是日期格式,正确的输入方法:

If IsDate(Left(Me.编号文本框, 4) & "/" & Mid(Me..编号文本框, 5, 2) & "/" & Mid(Me..编号文本框, 7, 2)) = False Then

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

End If


[此贴子已经被作者于2005-12-12 11:37:33编辑过]

17#
 楼主| 发表于 2005-12-10 21:35:00 | 只看该作者
对不起,我还是没有弄好,我把库传上来,帮忙看一下。另外请在帮一个忙,就是在“销售合同录入“窗体中有一个“添加产品”的按纽,我点击后出来的

“产品资料添加”窗体,添加新的产品时可以使合同编号重复,因为我一个合同可以有不同的产品。

总之销售合同录入窗体是录入销售合同信息表里的,而产品资料添加的内容是录入到“销售合同产品表里的”。希望多帮忙,急!





[此贴子已经被作者于2005-12-12 8:39:26编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
18#
发表于 2005-12-10 23:40:00 | 只看该作者
你的文件上传不正确,无法打开
19#
 楼主| 发表于 2005-12-12 16:42:00 | 只看该作者
库表我已经传上去了,请帮忙看一下

20#
发表于 2005-12-12 17:22:00 | 只看该作者
已帮你修改好,

以后上传例子时请用ACCESS自带的"压缩和修复数据库"处理一下,以免浪费网站空间,谢谢


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-31 20:38 , Processed in 0.092094 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表