请老师帮我修改一下代码

林小兵　发表于：2018-03-30 10:22:27 　

MDZZ 发表于：2018-03-30 11:06:16

日期不用日期字段？

leoyoung 发表于：2018-03-30 11:09:20

1、数据表的【生产日期】【有效日期】字段类型更改为日期\时间，【保质期】为数值

2、因1的调整，代码就只需判断是否有【生产日期】就可以了

Private Sub 保质期_AfterUpdate()
If IsNull(Me.生产日期) Then
MsgBox "请输入合法日期", vbQuestion + vbYesNo, "提示"
End If

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

End Sub

Top

chinasa 发表于：2018-03-30 16:38:34

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

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

Top

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

Access交流中心

请老师帮我修改一下代码