请教如何使新纪录的日期总是大于或等于前一条记录的日期

Private Sub 记账日期_BeforeUpdate(Cancel As Integer)
Dim jzrq1,jzrq2 As Date
jzrq1 = DLast("记账日期", "明细表", "[项目]='现金'")
jzrq2 = Me.记账日期
If DateDiff("d", jzrq1, jzrq2) < 0 Then
MsgBox "记账日期小于前一记录日期，请重新输入！"
Cancel = True
End If
End Sub

子窗体更新前事件写上述代码试试