由于Access从2007版开始已经有了内置的日期选择器功能,所以此模块不再更新,但对于使用2003以更早版本的朋友还有些用处。
说明:纯Access实现,不会出现任何引用问题,用于辅助日期输入,最终版彻底解决了定位问题,在普通窗体、连续窗体、数据表视图窗体中,都能够实现相对指定于输入框控件的自动适应定位。按回车键选择当前系统日期。
调用方法:将frmCalendar窗体和modCalendar模块导入到你自己开发的系统中,然后调用CalendarFor函数即可,调用方式有多种:
方式一是如图1那样做一个按钮,然后在按钮的单击事件中调用 :
Private Sub cmdGetDate_Click()
CalendarFor Me.txt订购日期
End Sub
方式二是直接在文本框的双击事件中调用:
Private Sub txt订购日期_Click()
CalendarFor Me.txt订购日期
End Sub
方式三和方式二差不多,但无须写代码,而是直接把文本框的“单击”属性设为:
=CalendarFor([txt订购日期])
附 件:
点击下载此附件