اجازه ایجاد رکرود جدید به تعداد خاص

[mosaArabi]

با سلام
آیا امکان ایجاد محدودیت در ایجاد رکورد جدیدبه تعداد دلخواه وجود دارد . مثال : در یک فاکتور تعداد ردیف از 1 تا 10 می باشد . حال آنکه در اکسس شما می توانید بی نهایت رکورد جدید درست کنید . آیا امکان کنترل new recordوجود داد تا به عدد 10 رسید دیگر اجازه افزایش ندهد
با تشکر

[مهدی قربانی]

سلام
دوست عزيز اين كدها رو در رخداد Before Insert فرم مورد نظر كپي كنيد :

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rst As Object
Set rst = Me.RecordsetClone
If rst.RecordCount >= 10 Then
MsgBox "امكان درج اطلاعات بيشتر از 10 ركورد نمي باشد", vbCritical, "توجه"
Me.AllowAdditions = False
Else
Me.AllowAdditions = True
End If
End Sub

[mosaArabi]

با سلام خدمت دوست گرامی
ممنون از پاسخ شما. من موارد را کپی کردو و درست عمل کرد . ولی در قبل از رسیدن به عدد 10 امکان ایجاد بود ولی بعد از پیغام کلا رکورد جدید قفل شد و در فاکتور جدید نمی توان رکورد جدید از 1 شروع کرد .
پیرو صحبت بالا من فرم را بستم و دوباره باز کردم این امکان درست شد ولی ایا راهی وجود دادر که فرم بسته و باز نشود
با تشکر

[مهدی قربانی]

سلام
اينم تست كنيد فكر كنم اين روش بيشتر به كار شما بياد :


Private Sub Form_Current()
If Me.CurrentRecord >10 Then
MsgBox "امكان ايجاد ركورد جديد نمي باشد", vbCritical, "توجه"
DoCmd.GoToRecord , , acLast

End If
End Sub

[mosaArabi]

دوست گرامی ممنون از لطف شما
کد دوم هم مانند کد اول بعد از نمایش پیغام سطر ها را کلا قفل می کند و باید فرم را بسته و مجددا باز کرد تا درست شود

[mosaArabi]

دوست گرامی با تشکر
کد اصلاح شده جواب داد