Access分享--实现日期时间人性化输入方法-杜小杰
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


Access分享--实现日期时间人性化输入方法

发表时间:2016/10/31 13:25:55 评论(0) 浏览(12570)  评论 | 加入收藏 | 复制
   
摘 要:日期与时间并在一起输入起来比较困难,可以通过以下设计方便实现直观的输入
正 文:

点击下载此附件





实现代码:
Private Sub 保存_Click()
    Dim Sdate As Date
    If Not IsNull(出发时间) Then
        Sdate = Format(Me.出发时间 & " " & Me.出发小时, "yyyy-mm-dd hh:nn:ss")
    Else
        MsgBox "出发时间不能为空,请先输入", vbCritical
        Exit Sub
    End If
    CurrentDb.Execute "insert into 任务表(出发时间,任务,备注) values(#" & Sdate & "#,'" & Me.任务 & "','" & 备注 & "')"
    Me.Child1.Requery
    MsgBox "保存成功!"
End Sub

Private Sub btnDelete_Click()
    出发时间 = Null
    出发小时 = "00:00"
End Sub

Private Sub 清空_Click()
    出发时间 = Null
    出发小时 = "00:00"
    任务 = Null
    备注 = Null
End Sub



Access软件网交流QQ群(群号:198465573)
 
 相关文章
【Access函数】Access日期时间函数  【漏蛧尐魚℡  2013/1/17】
【Access扫盲知识】日期时间相减得出年数,月数,季度,天数差的...  【麥田  2013/2/19】
【Access自定义函数】日期大写示例,将日期改成中文大写格式,大...  【麥田  2014/7/3】
【Access文章】日期常用函数详解  【杨雪  2015/8/20】
【Access源码示例】日期区间段查询示例,开始日期至截止日期区段...  【麥田  2016/6/21】
常见问答
技术分类
相关资源
文章搜索
关于作者

杜小杰

文章分类

文章存档

友情链接