access开发平台--输入日期格式不能超过今天以后的方法

时　间:2010-07-16 09:16:43
作　者:Accessoft整理   ID：10768  城市：成都
摘　要:Access开发平台--输入日期格式不能超过今天以后的方法
正　文:

     小技巧一则:根据学员的需要,写几行代码限制一下录入日期时间段问题,一般录入日期格式是没有限制的,可以任意日期,现想只能录入今天及今天以前的日期格式.

解决方法如下:

为方便学员能看得懂,学员以报销教程里面的报销日期为例:

第一步:打开报销明细新增窗体设计状态→进入报销日期控件的属性→选"更新前"[事件过程]→点击后面的…进入代码编辑界面

第二步:在鼠标光标处输入以下整个部分代码:
    If Me.bxrq.Text <> "" And Me.bxrq.Text > Date Then
        SendKeys "{ESC}"    ‘撤消输入
        Cancel = True           '取消事件阻止更新
        MsgBox "报销日期不能是今天以后的日期！"
    End If

第三步:保存并运行试试效果.

       备注:如果不符合格式的也可以按ESC键撤消输入
 If Me.bxrq.Text <> "" And Me.bxrq.Text < Date Then
        Cancel = True
        SendKeys "{ESC}"
        MsgBox "报销日期不能是今天以后的日期！"
    End If 

注:学员及爱好者都可以使用此功能在实际应用中,爱好者朋友可以新建一个任意窗体测试,在窗体里新建文本框设为日期格式,将代码中红色部分改为自己的控件名称即可