كيف كتابة تسلسل من 1 - رقم مثل 9 في نموذج فرعي بدلاله نموذج رئيسي

[engc2011e]

رابط فيديو يوضح المطلوب

https://drive.google.com/file/d/1nyAPoz4JVsCcblLxzx6q_bpRfe0AULaP/view?usp=sharing

[king5star]

Private Sub Form_BeforeInsert(Cancel As Integer)

    If Nz(Count(Me.[column1]), 0) > Me.Parent![TargetCount] Then ' معادلة للتأكد من بلوغ الحد الاقصي لعدد البنود المطلوب فى النموذج الاب
        Me.Undo                                                  'الغاء العملية الاخيرة
        MsgBox "لقد وصلت للحد الاقصي لعدد البنود"                 'تنبيه بالوصول للحد الاقصي
        Me.AllowAdditions = False                                'ايقاف الاضافة بالنموذج الفرعي
    End If ' Nz(Count(Me.[column1]), 0) > Me.Parent![TargetCount]

End Sub

كنت اتمنى وجود مثال مبسط بعيد عن البرنامج الرئيسي للتعديل عليه مباشراً والتحقق من النتائج .

وعند عدم معرفة استخدام الكود برجاء ارفاق مرفق للتعديل عليه .

بالتوفيق .

تم تعديل مايو 15, 2021 بواسطه king5star