database - 限制允许的记录数

Question

我有一个表“tbdetails”，其中保存了学生的详细信息。简而言之，我想限制表格最多只能容纳 10 条记录。我的表“frmDetails”的表单具有以下 OnCurrent 事件，但它不起作用:

Private Sub Form_Current()
   Forms(Detail).MaxRecords = 10
End Sub

我在网上查看并发现我可以很容易地插入 11 和 12 条记录。欢迎任何答案，不需要 VBA(如果可以不用它的话)可以简单地从属性菜单或其他东西来完成吗？

---

编辑:

现在当我保存时我得到了

Runtime error 438: Object Doesn't Support this Property or Method

所以这里肯定有问题

Answer 1

Private Sub Form_Current()

    Me.AllowAdditions = (Nz(DCount("[IDFieldName]","[TableName]",""),0)<10)

End Sub

根据评论看来这就足够了:

Me.AllowAdditions = (DCount("[IDFieldName]","[TableName]")<10)