بارك الله فيك استاذ محمد والف شكر على التعديل
انا لا اريد احد يعمل لصالحي ولا احب اكلف على أحد وكل طلبي كود أو دالة تلبي طلبي او رابط لمشاركة فيها ما أريد وصدقني بحثت كثير في المنتدى وخارجه ولم اجد الحل
والف شكر على جهدك وردك وبالفعل هذا ما أريد
هذا الموضوع تمت معالجته قبل ذلك كثيرا
وبقليل من البحث كنت ستصل لضالتك
ورغم أن الملف لا يوجد به أي محاولة من حضرتك وهذا يعني أنك تريد أن يعمل غيرك لصالحك وليس الهدف التعلم كما هو هدفنا في المنتدى
رغم كل ما سبق هذا جهدي المتواضع في ملفك
بالتوفيق
إنشاء شيتات وربطها بالرئيسية.xlsb
هذا طبيعي لان الترقيم في الاستعلام اصبح حقلا حقيقيا ثابتا ، فعند التصفية في النموذج فهو يعرض الرقم الحقيقي للسجل الموجود في الاستعلام
فالآن التصفية تتم في النموذج ، وعلى ذلك يلزم الترقيم في النموذج
Aziz5_05.rar
لم تضف الكود كاملا
نسيت هذا ضعه في الموديول Module
Function fnd2(n As Long, s As Long)
Dim ItemRow As Integer
ItemRow = WorksheetFunction.Match(n, Sheet1.Range("A1:A99999"), 0)
If ItemRow = Empty Then Beep: Exit Function
fnd2 = Sheet1.Range("S" & ItemRow).Value - s
End Function
اقرأ الكود جيدا أو على الأقل جرب البرنامج
أضفت لك في الكود البرمجي أشياء أصل لم تطلبها لمنع التسجيل
عدم تحديد كود الصنف
عدم كتابة عدد القطع
بالإضافة إلى هل الرصيد كافي
Exit Sub تعني اخرج من الإجراء
جزاكم الله خيراً أخي الكريم بارك الله بجهودكم .أسأل الله تعالى أن يتقبل منا ومنكم صالح الأعمال
حبذا لو كان بدلاً من المعادلة التي تستخدم دالة Filter بشكل رئيسي أن يكون هناك كود يؤدي الغرض ذاته لتوفره في معظم النسخ بينما دالة Filter
لا يمكننا استخدامها في نسخ 2016 وما قبل ، أما إن كان هناك تحديث ليشمل هذه الدالة في نسخة 2016 يرجى إفادتنا به
والسلام عليكم.
بعد اختيار الصنف سيظهر رصيدة في خانة الملاحظات - تستطيع عمل حقل اخر له
عند كتابة الكمية اذا كانت الكمية اكبر من المتوفر تظهر لك رساله تستطيع بعد ذلك عمل المناسب من الاوامر
بالتوفيق
Database5.accdb