Access日期控件的示例代码

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