关于修改下列代码

林小兵　发表于：2018-03-27 22:05:07 　

复制

Private Sub 有效日期_Click() Print DateAdd("m", [保质期], [生产日期]) End Sub 请那位老师帮我修改一下上面这个代码

Top

杨雪发表于：2018-03-28 08:35:44

改成什么？

Access基础--天数日期相加减示例,DateAdd时间函数应用[Access软件网]
http://www.accessoft.com/article-show.asp?id=11306

DateAdd,DateDiff日期函数的用法[Access软件网]
http://www.accessoft.com/article-show.asp?id=1567

Top

SiliconXu 发表于：2018-03-28 09:29:51

Print是什么语句？你是想要把日期的结果显示出来吗？如果是测试用的，可以使用Debug.Print。如果是要展示给用户看，可以使用MsgBox.

Top

中原一剑发表于：2018-03-30 20:09:46

Private Sub 保质期_AfterUpdate()
If IsDate(Me.生产日期) = 0 Then
MsgBox "请输入合法日期", vbQuestion + vbYesNo, "提示"
Me.生产日期 = ""
'Me.ID.SetFocus
Me.生产日期.SetFocus
Exit Sub
End If
With Me

.有效日期 = DateAdd("m", [保质期], [生产日期])
End With
End Sub

Top

中原一剑发表于：2018-03-30 20:10:07

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

关于修改下列代码