Set MyRecordset = CurrentDb.OpenRecordset("日期流水号")
MyRecordset.AddNew
MyRecordset("序号") = 1
MyRecordset("日期") = Date
MyRecordset.Update
Number = 1
End If
If Mylookup = Date Then
Set MyRecordset = CurrentDb.OpenRecordset("日期流水号")
Number = MyRecordset("序号") + 1
MyRecordset.Edit
MyRecordset("序号") = Number
MyRecordset.Update
ElseIf Mylookup < Date Then
Set MyRecordset = CurrentDb.OpenRecordset("日期流水号")
MyRecordset.Edit
MyRecordset("序号") = 1
MyRecordset("日期") = Date
MyRecordset.Update
Number = 1
End If