:Oncurrent
Me.AllowAdditions = (Me.Recordset.RecordCount <20)
تا زمانیکه پراپرتی RecordCount در آبجکت رکوردست برابر 19 است پراپرتی AllowAdditions فرم True است و شما اجازه اضافه کردن به آن را دارید درصورتیکه تعداد رکوردها بیست شد پراپرتی به False تنظیم و از اضافه کردن جلوگیری خواهد نمود.