【access通用工具源码】自动定位输入框的日期选择器(access Calendar)最终版

时　间:2010-07-22 00:00:00
作　者:红尘如烟   ID：10768  城市：成都
摘　要:    由于Access从2007版开始已经有了内置的日期选择器功能，所以此模块不再更新，但对于使用2003以更早版本的朋友还有些用处。

    说明：用于辅助日期输入，最终版彻底解决了定位问题，在普通窗体、连续窗体、数据表视图窗体中，都能够实现相对指定于输入框控件的自动适应定位。按回车键选择当前系统日期。
正　文:

    由于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订购日期])

附   件：
点击下载此附件