استخدم الكود التالي بعد تحديث رمز المشروع
وامسح البيانات القديمة...سيعيد اليك ترقيم المستخلص مع كل رمز مشروع جديد
Me.رقم_المستخلص = Nz(DMax("[رقم المستخلص]", "المستخلص", "[رمز_المشروع]='" & [رمز_المشروع] & "'"), 0) + 1
انظر لو كانت اسماء الحقول بالانكليزي
رجاء اجعلوها بالانكليزي ..لانها تلخبط الوضع
Me.ContractorNub = Nz(DMax("[ContractorNub]", "Contractors", "projectNub='" & [projectNub] & "'"), 0) + 1