تحديد عدد الأصناف فى فاتورة

أردت أن أحدد عدد الأصناف التي توضع فى فاتورة وذلك حيث التصميم للفاتروة صغير ولا يسمح بأكثر من 5 أصناف فقط وكما تعلمون أن الفاتورة تتكون من نموذج أساسي وآخر فرعي والفرعي الذي توضع فيه الأصناف والكمية والسعر .

المهم وضعت الكود التالى فى حدث عند الحالى للنموذج الفرعي .

If Me.Recordset.RecordCount >= 5 Then

Me.AllowAdditions = False

Else

Me.AllowAdditions = True

End If

الكود فعلا يقوم بعد الصنف الخامس بفقل عملية الاضافة ولكن المشكلة عند ادخال فاتورة جديدة تكون عملية الاضافة للنموذج الفرعي لا تزال مقفلة ولا يسمح بإدخال أصناف جديدة وهذه مشكلة .

السؤال كيف نجعل النموذج الفرعي عند اصدار فاتورة جديدة يقبل أصناف جديدة .

أشرف خليل