小技巧一则:根据学员的需要,写几行代码限制一下录入日期时间段问题,一般录入日期格式是没有限制的,可以任意日期,现想只能录入今天及今天以前的日期格式.
解决方法如下:
为方便学员能看得懂,学员以报销教程里面的报销日期为例:
第一步:打开报销明细新增窗体设计状态→进入报销日期控件的属性→选"更新前"[事件过程]→点击后面的…进入代码编辑界面
第二步:在鼠标光标处输入以下整个部分代码:
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
注:学员及爱好者都可以使用此功能在实际应用中,爱好者朋友可以新建一个任意窗体测试,在窗体里新建文本框设为日期格式,将代码中红色部分改为自己的控件名称即可