ابو جودي

هو فين ملف الاكســل

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

اتفضل يا سيدى لو المرفق محتاج تعديل انا تعبت انا شغال عليه من وقت ما وضعت السؤال واسف لم انتبه انك وضعت مرفقات Amr Ashraf ( Export to Query to specific excel worksheet).accdb

اهلا بالعزيز الغائب يا هلا والله

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

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

وإثراء للموضوع الذى أشار إليه استاذى الجليل ومعلمى القدير وملهمى الاستاذ @jjafferr بخصوص طباعة ملف الوورد قبل فترة قريبة قمت بعمل هذا المرفق ولتعم الفائدة اضع المرفق بين ايديكم Test To Print External File.zip

نفس طريقة الاستاذ @kanory انا فقط اختزلت الاكواد وقمت بالدمج بين الطريقتين من المثال الاجنبى الذى تم وضعه فى المرفق ومشكلته من وجهة نظرى انه لابد من وضع مكتبة الورد ضمن المكتبات المستخدمه وهذا لا احبه بسبب اختلاف النسخ وبين الطريقة من مرفق اخى الحبيب الاستاذ @Barna والتى اعجبنى فيها عدم استنادها على مكتبات الورد ولكن كان لابد من سطرين لكل حقل الحمد لله تعالى الذى هدانى لهذا اتبع نفس الشرح الذى اخبرك به الاستاذ @kanory مع ملف الورد ومن داخل قاعدة البيانات التى ارفقتها لك ادخل على الاكواد وانظر مثلا هذا السطر من الكود من زر الامر تصدير السجل الحالى 'PrsName wDoc.Bookmarks("PrsName").Range.Text = Nz(Me.PrsName.Value, "") الشطر الاول وقبل علامة الـ = يخص الاشارة المرجعية ( Bookmarks ) التى ستقوم بتنفيذها على ملف الورد انا مثلا وضعت الاشارة المرجعية لاسم الشخص وقمت بحفظها بأسم PrsName وبعد علامة = Me.PrsName هذا اسم الحقل على نموذج الاكسس انسخ هذا السطر وغير القيم تباعا لكل حقل شوف بصراحة والله انا اول مره افكر اتعامل مع موضوع التصدير علشان خاطرك فبكل صدق لا استطيع ان اجاوبك نظريا رجاء ارفق القاعدة بكل الحقول وملف ورد واحد قم باستكمال بيانات ملف الورد بناء على السجل الاول فقط حتى افهم مواقع الجمل واقوم بالتعديل والتجربة واوافيكم بالشرح بعد ذلك ان شاء الله

وهذه النتيجة النهائية بفضل الله تعالى ثم فضل استاذى الجليل ومعلمى القدير و والدى الجبيب الاستاذ @jjafferr وتدلل يا استاذ @Barna وهى بضاعتكم نردها ونعبدها اليكم بحلتها الجديدة تم التعديل على الاكواد لاختزالها Barna ( Export to Word ).accdb

اتفضل - تم حمل ملف الورد داخل القاعدة يمكن تغييره حسبما يناسبك - يتم عمل تحميل الملف اليا دون ادنى تدخل من المستخدم - تم اختزال الأكواد بطريقة ولا اروع أتوجه بكل الشكر والتقدير والعرفان بالجميل لاستاذى الجليل و معلمى القدير وملهمى و والدى الحبيب الاستاذ @jjafferr بفضل الله تعالى ثم استاذى تم حل مشكلة الدوران على كل السجلات لتصدير بياناتهم دفعة واحدة للاستاذ jjafferr Export to Word.accdb

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

ممكن سؤال هو حضرتك حملت المرفق واطلعت عليه ام تقدم الحل نظريا من واقع فهمكم للسؤال انا بالفعل تقريبا جربت والله كل شئ وبحثت مرارا وتكرارا قبل وضع السؤال الفرق الوحيد بين مرفق الاخير وشرح حضرتكم استاذى الجليل ومعلمى القدير شئ واحد 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

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