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

时　间:2016-10-31 13:25:55
作　者:杜超   ID：16058  城市：江阴
摘　要:日期与时间并在一起输入起来比较困难，可以通过以下设计方便实现直观的输入
正　文:

点击下载此附件

实现代码：
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