وقف اضافة حقول جديدة

في خصائص النموذج قم بوضع هذا الكود في حدث قبل التحديث:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.RecordsetClone.RecordCount >= 5 Then
MsgBox "لا يمكنك إضافة أكثر من 5 سجلات.", vbExclamation
Cancel = -1
DoCmd.Close
'DoCmd.Quit
Else
End If
End Sub

كود مجرب ومضمون. :)

الف شكر

فعلا كما اريد

سلمت يمينك

حتى انا غيرتها الى عند التنشيط او كما اريد

الف شكر مرة ثانية

جزالك الله كل خيـــــــــــــــــر

:clapping:

:ty:

لا شكر على واجب عزيزي،

حتى انا غيرتها الى عند التنشيط او كما اريد

أنتبه أخي الكريم الكود يجب أن يوضع في حدث "قبل التحديث" للنموذج،

غير ذلك سيحدث خطأ عند تنفيذ هذا الأمر،

إلا أن تعطل الجملة هذه:

Cancel = -1

أو تستبدله بالأمر مناسب للحدث.

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم