ابو جودي

ممكن سؤال هو حضرتك حملت المرفق واطلعت عليه ام تقدم الحل نظريا من واقع فهمكم للسؤال انا بالفعل تقريبا جربت والله كل شئ وبحثت مرارا وتكرارا قبل وضع السؤال الفرق الوحيد بين مرفق الاخير وشرح حضرتكم استاذى الجليل ومعلمى القدير شئ واحد Visible = False وتعمدت جعلها true لاتأكد من عمل اللوب بشكل صحيح على كل السجلات والتصدير الصحيح لكل سجل الى ملف ورد على حده طيب على العموم انظر استاذى هذا المرفق بالتعديل الذى اشرتم اليه بعاليه وان كنت طبقت خطأ الرجاء وقتما يسعكم الوقت التعديل على المرفق الله يجزيكم كل الخير ان شاء الله ليس تقاعسا من فى المحاولة لكن والله الان تقريبا ان لى حوالى 15 ساعة متصله ابحث واحاول ولم اترك الجهاز الا لاداء الصلاة فقط Barna Export to Word 3.zip

يا استاذ @أبو إبراهيم الغامدي انا جربت LWordDoc.Quit SaveChanges:=wdSaveChanges انا جربت LWordDoc.Quit SaveChanges:=wdPromptToSaveChanges دون جدوى ولكن تركت كل تجاربى لاسهل على اساتذتى ان كل هذه التجارب دون اى فائدة مشكلتى الان مع الزر الثانى هل يمكنكم مساعدتى يا استاذ @أبو إبراهيم الغامدي للتوضيح هذه المره مع هذا الزر يتم التصدير من خلال لوب على كل سجلات الجدول المطلوب الإحتفاظ بالبيانات لكل ملف ورد مع اغلاق ملفات الورد دون ان يشعر المستخدم يعنى اريد نفس تطبيق ما يقوم به الزر الاول فى الزر الثانى باللوب لكل السجلات فى هذا المرفق Barna Export to Word 2.zip

يبدو اننى لم استطع سرد السؤال على النحو الصحيح استاذى الجليل ومعملى القدير الاستاذ @jjafferr الموجود بالقاعدة جدول وحيد ونموذج واحد فقط المطلوب من النموذج عند الضغط على الزر طباعة عقد اجار للسجل الحالى عمل نسخة من ملف الورد المرفق بمجلد القاعدة الى نفس مسار القاعدة باسم Fullname من النموذج تمت هذه الخطوة بحمد الله كنت اريد اغلاق الورد مع الاحتفاظ بالبيانات من النموذج دون سؤال تمت هذه الخطوة بحمد الله تعالى فى هذا المرفق المشكلة الان تكمن فى زر الامر الثانى طباعة عقود اجار لكل السجلات دفعة واحدة اريده يقوم بنسخ ملف الورد المرفق نسخه لكل سجل من واقع الجدول باسم Fullname الموجود بكل سجل بالجدول تمت هذه الخطوة بحمد الله المطلوب اغلاق جميع ملفات الورد مع الاحتفاظ بالبيانات فى صمت دون المطالبة باى رسائل Barna Export to Word 2.zip

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل كيف يتم الحفظ للبيانات قبل الاغلاق لملف الورد سؤالى هو على مرفق مقتبس من الاستاذ الغالى على قلبى الاستاذ @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 وتحفة من تحف الاستاذ @أبو إبراهيم الغامدي

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