Access日期控件的示例代码|萝卜系统下载站

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

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

Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面

Access日期控件的示例代码

本类教程下载

系统下载排行