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

笨小漆

我以前做的，那位朋友需要就那去看把，如果有时间，帮我写写这个例子的说明和帮助，我没时间阿。在下先谢了。

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

MsAccess

不错。

tmtony

挺不错

hi-wzj

我的日期控件的使用：
界面上有三个东西：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

哥们
有个更好的控件的

zengqang

不错，我可以好好学习。

quanli

学习

王维a780

挺不错

xthand

不错，挺漂亮的

lxp100

ok