当在以上截图3个日期控件里设置
有效性规则:zcrq>=[zzrq]
有效性文本:交货最早日期不能小于订单日期。
设置后输入时还存在如下漏洞(当最早日期先写上1-7,输完最晚日期1-7后,最早日期继续能修改为1-8而能保存)。 要完全达到要求:在新增窗体保存代码前加上以下判断代码如下:
If Me.zzrq > Me.zcrq Then MsgBox "交货最早日期不能大于交货最晚日期", vbCritical, "提示" Me.zzrq.SetFocus Exit Sub End If