如何根据发货单号限制发货单录入条数。如4条。一旦通过TAB键转至第5条时就提示最多只能录入4条，并限制数据录入。

落灯花棋未收　发表于：2017-02-20 12:54:16 　

新手求助
如何根据发货单号限制发货单录入条数，如4条。一旦通过TAB键转至第5条时就提示最多只能录入4条，并限制数据录入。
要根据发货单号来限制，一个发货单号限制只能录入4条记录。换一个发货单号又可以最多录入4个记录。
目前所设置的发货单子窗体的每一条记录都与发货单主窗体上的发货单号是同一个单号

附图1窗体界面所示只有4条记录，但图2的打印界面是5条记录。子窗体根据单号限制录入条数

Top

凌云发表于：2017-02-20 14:02:10

Private Sub btnDeleteAll_Click()
On Error Resume Next
If MsgBox("确定要清空当前列表中的所有商品吗？", vbQuestion + vbOKCancel) = vbOK Then
CurrentDb.Execute "DELETE FROM TMP_送货单明细" '删除该表全部数据
Me.Requery '刷新数据
Me.AllowAdditions = True
End If
End Sub

Private Sub Form_AfterUpdate()
If DCount("*", "TMP_送货单明细") > 5 Then
MsgBox "您输入的产品数量不能超过五个,系统将自动删除多余行数!", vbCritical, "警告"
Call btnDelete_Click
Me.AllowAdditions = False
Exit Sub
Else
Me.AllowAdditions = True
End If
End Sub

Top

落灯花棋未收发表于：2017-02-20 17:37:23

Private Sub Form_AfterUpdate()
    If DCount("*", "发货详单", "发货单号='" & Me.发货单号 & "'") > 4 Then
      MsgBox "票据纸张长度有限输入的数据不能超过4行", , "提示"
    Call btnDelete_Click
      Me.AllowAdditions = False
      Else
      Me.AllowAdditions = True
    End If
End Sub

这个代码试过在去掉允许全部菜单、允许默认快捷菜单等后，命令就调用不了。删除不了最后一行数据。

Top

落灯花棋未收发表于：2017-02-22 09:31:46

用了作者chenlugen的方法可行。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何根据发货单号限制发货单录入条数。如4条。一旦通过TAB键转至第5条时就提示最多只能录入4条，并限制数据录入。