请路过的帮忙解决查询及计算功能

ytf123

请高手帮忙解决问题：用单号建立一个查询：
   当数量获得焦点时“现存数”=“现存数”-“数量”，当然数量失去焦点时“现存数”=“现存数”+“数量”：
    能否让每页只可输入5行数据（表中）

[此贴子已经被作者于2007-4-30 9:35:18编辑过]

一点通

请将标题修改,写出简要内容

laiguiyou

让每页只输入5行可用:

Private Sub 物品编号_BeforeUpdate(Cancel As Integer)
If DCount("[单号]", "表", "[单号]=" & Forms!窗体!单号.Value) >= 5 Then

MsgBox "不能超过5条记录", vbInformation, "系统提示"
Me.Undo

End If
End Sub

laiguiyou

单号查询可用:

On Error GoTo Command8_Err

    With CodeContextObject
        DoCmd.GoToControl "单号"
        DoCmd.FindRecord "*" & .Text6 & "*", acAnywhere, False, , False, acCurrent, True
        DoCmd.GoToControl "单号"
    End With


Command8_Exit:
    Exit Sub

Command8_Err:
    MsgBox Error$
    Resume Command8_Exit

ytf123

可以帮我在库里解决下么`谢谢了

ytf123

查询及不能超过5行问题解决了`非常谢谢laiguiyou

[此贴子已经被作者于2007-4-28 9:42:38编辑过]