Office中国论坛/Access中国论坛

标题: 一个使用日期控件的例子[原创] [打印本页]

作者: 笨小漆 时间: 2002-3-17 22:21
标题: 一个使用日期控件的例子[原创]
我以前做的，那位朋友需要就那去看把，如果有时间，帮我写写这个例子的说明和帮助，我没时间阿。在下先谢了。

文件下载
(常用控件-相关文章技巧链接)：
笨小漆做的Access日期控件的示例

作者: 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
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)