设为首页收藏本站Access中国
Office中国(www.office-cn.net),专业Office论坛

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 23914|回复: 252

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

[复制链接]
发表于 2010-8-3 12:18:14 | 显示全部楼层 |阅读模式
本帖最后由 红尘如烟 于 2010-12-11 14:35 编辑

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




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


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 2经验 +14 收起 理由
zhuyiwen + 6 精品文章
5988143 + 8 加分,收藏了~

查看全部评分

点击这里给我发消息

发表于 2010-8-3 12:43:12 | 显示全部楼层
很好的功能,收藏了
发表于 2010-8-3 13:40:33 | 显示全部楼层
好好学习天天向上
发表于 2010-8-3 18:52:34 | 显示全部楼层
加分,收藏了~
发表于 2010-8-3 20:08:06 | 显示全部楼层
好东东,收藏了,谢谢。。。

点击这里给我发消息

发表于 2010-8-3 20:33:16 | 显示全部楼层
我还用2003,当前也是用红尘版主的日期定位代码,收藏啦!谢谢!
发表于 2010-8-3 20:53:46 | 显示全部楼层
学习!谢谢!
发表于 2010-8-3 22:34:37 | 显示全部楼层
收藏
谢谢分享
发表于 2010-8-4 08:39:37 | 显示全部楼层
很好,收下
发表于 2010-8-4 12:11:40 | 显示全部楼层
很好的功能,收藏了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /6 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2018-11-17 10:49 , Processed in 0.110515 second(s), 40 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表