如何比较子窗体不同记录的值?

gokong

不好意思,但确实有点问题

一点通

再次帮你修改,



从接触你的例子以来,总觉得例子有点问题,主要是总体构思问题,你这样创建表对以后的查询,统计,跟踪都会带来很大的麻烦,
你无法跟踪多次动物的变动情况,无法了解从幼年到成年的生活习惯,无法知道各时期的身体状况.........

gokong

这回可以了,非常感谢版主.不知您有何建议,还请指教.谢谢.

gokong

我回复错了.我检查了代码:

Private Sub 变动时间_AfterUpdate()
If Me.变动时间.Text < DLookup("[变动时间]", "变动动物", "[动物明细ID]=" & 动物明细ID) Then
    DoCmd.CancelEvent
    MsgBox "原变动时间:" & DLookup("[变动时间]", "变动动物", "[变动动物ID]=" & 变动动物ID) & "大于现变动时间:" & Me.变动时间.Text & ",新记录不保存", , "错误提示"
    Me.Undo
    Me.变动后栏舍ID.SetFocus
    Me.变动时间.SetFocus
End If
End Sub

我确实想实现新输入的时间不可以小于以往的变动时间,上面代码看起来也没有问题.但当我输入第一个记录(黄猩猩保罗)时,其中以往的变动时间最大的为记录9459所对应的2006-1-1.按照设计要求,凡我新输入的时间小于2006-1-1都将提示出错信息.但当我输入2005-12-26时,尽管它大于上面一个记录9473所对应的时间2005-12-24,但它仍小于2006-1-1.按设计要求,应出现错误信息.但实际上却不会提示.

不知是否与我的软件有关?我用的是access 2000和winxp.非常感谢!

gokong

版主,我将代码改成如下的样子,好像可以,请指正:


Private Sub 变动时间_AfterUpdate()
If Me.变动时间.Text < DMax("[变动时间]", "变动动物", "[动物明细ID]=" & 动物明细ID) Then
    DoCmd.CancelEvent
    MsgBox "原变动时间:" & DMax("[变动时间]", "变动动物", "[变动动物ID]=" & 变动动物ID) & "大于现变动时间:" & Me.变动时间.Text & ",新记录不保存", , "错误提示"
    Me.Undo
    Me.变动后栏舍ID.SetFocus
    Me.变动时间.SetFocus
End If
End Sub