Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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






附   件:
点击下载此附件



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助