Office中国论坛/Access中国论坛

标题: [求助]如何判定校验日期是否到期了? [打印本页]

作者: truckee 时间: 2005-4-13 16:40
标题: [求助]如何判定校验日期是否到期了?
请各位高手帮忙,我想实现这样的功能,

If 今天的日期>上次校验日期+校验周期 Then

me.text1.text="未校"

Else

me.text1.text="已校"

比如上次校验日期是2004-4-12,校验周期是12月,那么这句语句如何写?先谢谢大家的帮忙!

作者: pxbld 时间: 2005-4-13 18:16
标题: 这样差不多
If Date > #4/10/2004# + 365 Then
MsgBox "未校"
Else
MsgBox "已校"
End If

作者: truckee 时间: 2005-4-14 00:50
标题: 回复：如何判定校验日期是否到期了?...
大家帮我看看这句，为什么当校验日期字段或校验周期为空时，校验状态字段的值不为空呢？而总是显示“未检”，还有一个问题，我想在打开“校验设备form"的时候，用msgbox("设备未检验!!!")来提示，怎么实现打开form时才提示，我在form_load和current中当第一个设备未检时总是先显示警告，再打开from.

If Not IsNull(Me![校验日期]) And 校验周期.Value <> "" Then
If DateDiff("d", Me![校验日期], Date) < 校验周期.Value * 365 Then
校验状态.Value = "已检!"
Else
校验状态.Value = "未检!!!"
End If
Else
校验状态.Value = ""
End If

作者: truckee 时间: 2005-4-14 16:57
各位兄弟姐妹,给点意见吧!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)