设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

一个access使用日期控件的例子[原创]

2015-3-24 17:11| 发布者: admin| 查看: 1191| 评论: 10|原作者: 笨小漆|来自: www.office-cn.net

摘要: 我以前做的,那位朋友需要就那去看把,如果有时间,帮我写写这个例子的说明和帮助,我没时间阿。在下先谢了。 文件下载
我以前做的一个使用日期控件的示例。,那位朋友需要就那去看把
通过单击可以获取日历上的日期,通过可以选择查询中的目标日期来取得日期段

文件示例下载

更多的日期控件示例


发表评论

最新评论

引用 MsAccess 2002-3-17 23:49
不错。
引用 tmtony 2002-3-18 01:11
挺不错
引用 hi-wzj 2003-6-12 08:29
我的日期控件的使用:
界面上有三个东西:1.qsr为:起始日期的文本框2.jsr为结束日期的文本框3.rq为日历控件。
1、日期控件平常隐藏起来。双击起始日期或结束日期时日历控件才显示(界面的问题)。
2、对应的填上相应的日期。
以下是源码,大家多做交流:
Private Sub jsr_DblClick(Cancel As Integer)
Me.rq = Me.jsr
Me.rq.Top = Me.jsr.Top + Me.jsr.Height
Me.rq.Visible = True
End Sub
Private Sub qsr_DblClick(Cancel As Integer)
Me.rq = Me.qsr
Me.rq.Top = Me.qsr.Top + Me.qsr.Height
Me.rq.Visible = True
End Sub
Private Sub rq_DblClick()
If Me.rq.Top = Me.jsr.Top + Me.jsr.Height Then
   Me.jsr = Me.rq
   DoCmd.GoToControl "jsr"
Else
   Me.qsr = Me.rq
   DoCmd.GoToControl "qsr"
End If
Me.rq.Visible = False
End Sub
Private Sub 主体_Click()
Me.rq.Visible = False
End Sub
引用 fatiguelamb 2003-11-7 07:38
哥们
有个更好的控件的
引用 zengqang 2004-2-24 17:17
不错,我可以好好学习。
引用 quanli 2004-9-16 06:27
学习
引用 王维a780 2006-3-31 02:03
挺不错
引用 xthand 2006-3-31 03:50
不错,挺漂亮的
引用 lxp100 2006-4-1 08:16
ok




引用 cz685 2006-4-3 21:49
学习

查看全部评论(10)

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

GMT+8, 2024-3-28 16:26 , Processed in 0.079365 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部