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

红尘如烟

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

游客，如果您要查看本帖隐藏内容请回复

tmtony

很好的功能,收藏了

aslxt

好好学习天天向上

5988143

加分,收藏了~

fnsmydyang

好东东，收藏了，谢谢。。。

wang1950317

我还用2003，当前也是用红尘版主的日期定位代码，收藏啦！谢谢！

lkkl66

学习！谢谢！

xuwenning

收藏
谢谢分享

石三少

很好，收下

yanwei82123300

很好的功能,收藏了