ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل كيف يتم الحفظ للبيانات قبل الاغلاق لملف الورد سؤالى هو على مرفق مقتبس من الاستاذ الغالى على قلبى الاستاذ @Barna كما أن الرد على سؤاله كان من استاذى الجليل ومعلمى القدير الاستاذ @أبو إبراهيم الغامدي وتطرق الاستاذ ابو ابراهيم الى هذه المقولة المنهج Quit له محددات يمكنك التعرف على المزيد عنها في ملف تعليمات Word VBA إذا أردت. وبالبحث على موقع مايكروسوفت حصلت الاتى Name Value Description wdDoNotSaveChanges 0 Do not save pending changes. wdPromptToSaveChanges -2 Prompt the user to save pending changes. wdSaveChanges -1 Save pending changes automatically without prompting the user. حاولت البحث دون جدوى وعدت اليكم على الله تعلى يرزقنى الاجابه منكم اساتذى الكرام الافاضل Barna Export to Word.zip

نعم التعديل هنا فقط لان مربع السرد يحتوى على عدد 2 عمود والعمود الثانى هو الذى يحتوى القيم الذى تريدها بكودك كنت تستدعى قيم العمود الاول لذلك الكود لم يعمل

اتفضل aa (1).accdb

لو عاوز رأيى بما انك ناوى تعمل قاعدة قوية اضف اللوكيشن ( رمز الراك - رقم الصف قى الراك ) الجرد من واقع البرنامج اجمالا وتفصيلا فى جزئية سمعت عنها نقاشا قبل فترة ولكن لم اكمل التفرقة بين المبيهات التى تم شراء منتجها بأسعار مختلفة تبعا لحركة السوق

حزاكم الله خيرا انتظر النسخة النهائية بشغف

انا اسف العتب ع النظر والله لم ارى زر الامر وفتحت القاعدة وجدت الكثير من النماذج

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

انا مش زهلان بس حابب اعرف النتيجة وصلت لطلبك واللا نحاول تانى طيب رجاء فكر وحدد طلبك تحديدا وان شاء الله الله المستعان

يا استاذ @ازهر عبد العزيز يعنى تركت كل ما يشغلنى لاعدل لكم على مرفقكم وتدخل وترد وما تخبرنى عن ان وصلت للنتيجة واللا لم تصل رجاء جرب هذا المرفق واخبرنى هل هذه النتيجة التى تريدها ام لا المتغير .accdb

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

المرفق قبل الاخير تبعى كان به مشكله اسف لانى عدلت على المرفق القديم بسبب اللغه الصينى ياللى انت رفعت لنا بها المرفق التانى الان المرفق الاخير يعمل بشكل ممتاز ورائع وبنفس الالية التى اعجبتك بالفكرة الذكية لاخونا الحبيب الاستاذ @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