点击下载此附件
实现代码:
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