Office中国论坛/Access中国论坛

标题: 请路过的帮忙解决查询及计算功能 [打印本页]

作者: ytf123 时间: 2007-4-28 02:27
标题: 请路过的帮忙解决查询及计算功能
请高手帮忙解决问题：用单号建立一个查询：
当数量获得焦点时“现存数”=“现存数”-“数量”，当然数量失去焦点时“现存数”=“现存数”+“数量”：
能否让每页只可输入5行数据（表中）

[attach]24189[/attach]

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

作者: 一点通 时间: 2007-4-28 02:38
请将标题修改,写出简要内容

作者: laiguiyou 时间: 2007-4-28 16:41
让每页只输入5行可用:

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

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

End If
End Sub

作者: laiguiyou 时间: 2007-4-28 16:43
单号查询可用:

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 时间: 2007-4-28 17:18
可以帮我在库里解决下么`谢谢了

作者: ytf123 时间: 2007-4-28 17:29
查询及不能超过5行问题解决了`非常谢谢laiguiyou

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)