ابو جودي

المرفق قبل الاخير تبعى كان به مشكله اسف لانى عدلت على المرفق القديم بسبب اللغه الصينى ياللى انت رفعت لنا بها المرفق التانى الان المرفق الاخير يعمل بشكل ممتاز ورائع وبنفس الالية التى اعجبتك بالفكرة الذكية لاخونا الحبيب الاستاذ @qassim-t انتظر الرد بعد التجربه ارجوا ابلاغى ان كان هناك اى خلل بدون اى احراج

انا طالب علم مثلك وخلقنا الله تعالى نكمل بعضنا بعضنا

طيب شوف المرق الاتى المتغير .accdb

هذا كود فرعى اسمه TYPE1Value مثله مثل UpdatetblTyp انظر الى مربعات النص على اليمين والتى تساوى القيم الافتراضية تجد الحدث لكل منهم هو عند التحديث Call UpdatetblTyp لو نظضرت الى الكود الخاص بـ UpdatetblTyp On Error GoTo ErrHandler Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("tblTyp", dbOpenDynaset) Rs.Edit Rs!TMK = txtTMK Rs!TKR = txtTKR Rs!TBG = txtTBG Rs!t2TMK = txtt2TMK Rs!t2TKR = txtt2TKR Rs!t2TBG = txtt2TBG Rs.Update Set Rs = Nothing Exit Sub ErrHandler: If Err.Number = 3022 Then Resume Next لو لم نفعله بهذه الطريقه لكتبنا كل هذه الاسطر لكل مربه نص منهم وعددهم الان صار 6 مربعات

ولا تزعل اتفضل المتغير - 2 (1).accdb

طيب ممكن مرفق تجربتك

اصف حقول جديدة بالجدول وابدأ بتسمية كل حقل منها t2 وقم بعمل نفس الخطوات

طيب ممكن ترفق ملف ورد تم ملئه بنائا على احد بيانات الصفوف فى الجدول

اسف تم وضع الرابط بالمشاركة الأصلية اعتذر جدا

انظر هذا الموضوع رائعة من روائع الاستاذ @Barna وتحفة من تحف الاستاذ @أبو إبراهيم الغامدي

طيب الحمد لله ولما تنتهى رجاء اخبرنى برساله خاصة بوضع المرفق النهائى ان اردت ذلك

الحمد لله الذى تتم بنعمته الصالحات للعلم انا جربت على فاتورة البيع كل شئ تمام اما فاتورة الشراء اعتقد بها مشكله انت قم بحلها

تعديل طفيف اسف BuySal2019 v04.zip

انظر الى هذا التعديل عل الله ان يجعل فيه الحل ان شاء الله BuySal2019 v03.zip

جزاكم الله خيــــــــرا استاذى الكريم كل الشكر والتقدير لجهودكم المبذوله فى رقى هذا الصرح الشامخ المعطاء

انا اسف لم اتعامل مع الباركود من قبل ههههههههههههههههه انا اصلا كنت اقوم بتعديل اذا تم اختيار احد الاصناف مره يختفى من القائمة كويس انك فهمتنى قبل ما اتعب طيب نفكر تانى

شكرا استاذنا الكريم بس انا عاملها من زمان قوى

ممكن تتجربة هذا المرفق مبدئيا BuySal2019 V2.zip

انت هيك بتخوفنى ب ها النظرة

لو تكرمت اضف مرفقا مختصرا من قاعدتك

انا اقل طالب علم بالمنتدى انا حتى مجرد طويلب لم احصل طالب الى الان كما انا كل الفضل لك بعد رب العزة سبحانه وتعالى هذه فى الاساس فكرتك واعجب بها اخونا الحبيب @ازهر عبد العزيز وهنا اقتبس قول استاذى الجليل ومعلمى القدير الاستاذ @jjafferr ولانه ادرى بمراده ولان الفكرة اعجبته فقط قمت بعمل ما يناسبه كل الشكر والتقدير لكم

Go ahead وللعلم انا اضفت لك كود من عندى لو غيرت القيم لمربعات النص على اليسار تتحدث بالجدول ويتم الاحتفاظ بها عند اغلاق النموذج المتغير - 2.accdb

العفو منكم استاذى الجليل من يشكر من انا من تعلمت منكم الان وانا من يتعلم من مشاركاتكم وابداعاتكم دائما بل كل الشكـــر لكم استاذى الجليل ومعلمى القدير و باقى اساتذتى العظماء الذين اتعلم منهم وعلى ايديهم

بعد ان شرحت لك الحل البرمجى لاستاذى الجليل ومعلمى القدير الاستاذ @AlwaZeeR كل الشكر والتقدير له تعالى اشرح لك الفكرة الغبية بتاعتى هههههههههه انا قمت بعمل جدول اسميته tblRemoveZero وانشئت به حقل باسم zeroo ووضعت به القيمة التى نريد استثنائها وهى ( 0 ) ولانها تشترك بين حقلين قمت كذلك باعادة تسمية الاستعلام القديم بتعك من T_ward_mon الى qryRemoveZero ثم قمت بعمل استعلام جديد ومصدره هو الاستعلام القديم تبعك والذى صار اسمه qryRemoveZero + الجدول الجديد الذى انشأته tblRemoveZero وقمت بعمل علاقة بيم الحقلين من الاستعلام والجدول كما بالشكل الاتى ولاحظ المعيار المستخدم بذلك يا استاذ @jo_2010 الان معك الطريقتان الطريقة العبقرية والبرمجية للاستاذ @AlwaZeeR والطريقة المجنونه بالخروج عى المألوف التى تخصنى بدون ما تزعق لم اكن اعرف الحل ولكن حاولت افكر

بعد اذن استاذى @AlwaZeeR ساقوم بالشرح لاخونا يوسف شوف يا استاذ يوسف اولا انت عندك استعلام باسم T_ward_mon اول شئ غير اسمه ليكون مثلا T_ward_monA بعد ين انشئ استعلام جديد ويكون اسمه T_ward_mon ومصدر بيانات الاستعلام الجديد هذه هو الاستعلام القديم الذى تم اعادة تسميته الى T_ward_monA وانظر الى المعايير داخل الحقول 100 (3).accdb