ahmed draz

السلام عليكم ورحمة الله السادة الاخوة والخبراء واجهتني مشكلة اثنا الطباعة وهي طباعة الصفحات الفارغة فهل من الممكن طباعة الصفحات التي تحتوي على بيانات فقط ؟ مع توضيح الكود حتى اتعلم. ومرفق ملف المطلوب طباعة شيت (مينى). مع العلم انه يوجد مشاركة تناولت هذا الموضوع لم أفهم منها شياءً. ولكم جزيل الشكر مينى.xlsx

شكرا جزيلا صدىقي الكريم Foksh

السلام عليكم ورحمة الله سؤال الى إخوتنا الخبراء وتحياتي لأخي الكريم foksh هل يمكن أظهار قيمة مثل السنة الدراسية موجوده فى مربع نص في النموذج لتظهر عند طباعة التقرير حيث يمن تغيرها كل سنة لتلائم التقرير دون الدخول في التقرير وتعديل السنة الدراسية كل مرةولكم جزيل الشكر 11.rar

أخي الكريم أبوبسمله لطفاً... ولو تكرمت وأوضحت لي المكان بالتفصيل لأني لا استطيع الوصول للتعديل ____________________________________________________________________________________ kkhalifa1960 مصدر التقرير استعلام وعند البارامتر المهم ضع تحته الشرط (Is NotNull) أبوبسمله ادخل لعرض تصميم التقرير ومنه ع مصدر السجلات وانظر تحت حقل المسلسل

جزاكم الله خيرا جميعاً ... ماشاء الله المنتدى ذاخر بالخبراء وعامر بالعلم دائما إن شاء الله

أحسنت أخي أبو بسملة هذا هو المطلوب بالضبط وجزاك الله خيرا والشكر موصول لأخونا الاستاذ الفاضل Foksh (ولكن لو تكرمت أوضحت لي مكان التعديل أو الإضافة)

اخي العزيز Foksh تحياتي لحضرتك... للأسف لم أفهم الفكرة وخصوصاً أنه عند الطباعة لايقوم إلا بطباعة ورقة واحدة فارغة من البيانات على الشكل التالي و سأوضح أمرا لم اوضحة مسبقاً بأنه يوجد فرز بالأسم والمجموعة في التقرير لهذا تظهر الصفحات الفارغة 1.pdf وهذه مشاركة سابقة لأحد الاخوة يشرح فيها المشكلة ويقول أنه وجد الحل ولكنه لم يعمل عندي ولم أفهم المشكلة أم انني لم أفهم الشرح

اخي الكريم شكرا جزيلا اخونا الكريم Foksh مرسل لحضرتكم المرفق. 1.rar

سؤال التقرير فيه صفحات ممتلئة و صفحات فارغة؟ نعم وعند وضع DoCmd.CancelEvent عند الحدث On No data لا تظهر رسالة و يقوم بطباعة كل التقرير بصفحاته الفارغة سواءا على الطابعة أو على شكل PDF

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

السلام عليكم ورحمة الله لو أن لدي عدة صفحات في تقرير وعند الطباعة فانه يطبع كل الصفحات ولكن اريد طباعة التقارير التي يوجد بها بيانات فقط وعند بحثي في الموضوع وجدت أنه يتم وضع كود في تصميم التقرير في حدث On No data ولكنى لم أفلح في الامر فبرجاء المساعدة وجزاكم الله خيرا.

اداة لإستيراد جداول الإكسل و تصديرها معدلة لنسخ اخر بيانات.rar

مرحبا ًاخي الكريم SAROOK إذا قمت بإختيار Table من نموذج التصدير في الاداة يقوم بتصدير كل الصفوف التي تمت إضافتها داخل جدول الاكسس دون أختيار أ أن يقوم بمحو البيانات داخل ملف الاكسل المصدر اليه بالكامل ثم نسخ كامل جدول الاكسس لملف الاكسل. أما إذا قمت بإختيار Query من نموذج التصدير في الاداة يقوم بتصدير كل الصفوف أو الأعمده التي تمت تصفيتها حسب الشروط المكتوبة في الاستعلام داخل الاكسس ثم تصدير المطلوب لملف الاكسل. وشكراً لك Export_to_Excel تصدير البيانات الى اكسيل محدث (1).rar اخي الفاضل Foksh شكراً لمحاولتك وتلبيتك لكل طلباتنا الصعبة ولكن بعد نسخ الكود أعطى الرسالة التالية:

اخي الكريم Foksh شكرا جزيلا فأنت صبور معى لحد كبير . و أعلم أن بعض الطلبات غير قابلة للتنفيذ أحياناً وهي من باب تحسين اداة الاستيراد. ولكنني توسمت فيك الخبرة والقدرة على صنع ماتريده بكود vba . فلا تحمل نفسك عناء صعوبة طلبى وتقديري لوقتك. فما قدمته لي من مساعدة يصعب علي مكافأتها بكل كلمات الشكر والتقدير .

اخي الفاضل Foksh لو تكرمت وساعدتني في اضافة الاعدادات الموجودة في نموذج التصدير من جدول الى الاكسل الى نموذج استيراد من جدول الاكسل وخصوصا بند ( إصافة بدون حذف) اي إلحاق بيانات من جدول اكسل لجدول الاكسس دون حذف البيانات الموجوده فيه. فلقد حاولت مرارا تقليد الكود في نموج التصدير ليصلح في نموذج الاستيراد ولكنني لم انجح فأنا لا اطلب المساعدة إلا بعد استنفاذ جيع المحاولات ولك جزيل الشكر.

السلام عليكم ورحمة الله اخي الفاضل Foksh أقدم للمنتدى الاداة المتميزة والمتطوره لإستيراد جداول الإكسل و تصديرها عبر اكسس هي اداة كنت ابحث عنها منذ مده و وجدتها في هذا المنتدى في مشاركة من 2015 وقدم لي أخونا الكريم Foksh مساعدة كبيرة في تطوير الأداة ولم يبخل بالجهد أو الوقت فجزاه الله خيراً ولعل الله ينفع بها احداً من المسلمين. اداة لإستيراد جداول الإكسل و تصديرها.rar

شكرا جزيلا

اخي الفاضل Foksh بارك الله فيك و في علمك ونفع بك الناس ووجدت عونك للناس خيراً يوم القيامة. اّمين (شكرا جزيلا لوقتك الثمين)

اخي الفاضل Foksh لا ادري إن كنت افهمك بالشكل الصحيح .... وأذا كان التعديل الأخير الخاص برسالة الخطأ التي تظهر عند عدم اختيار كومبوبوكس اختيار ورقة العمل ام لا ...لأنها لا تزال تظهر ... وان كنت أخي الكريم مشغولا فأنا لست متعجلا للحل حتى لا ازعجك بإي شكل من الاشكال وجزاك الله خيراً. واشكرك على صبرك وسعة صدرك.

اخي الفاضل Foksh أحسنت أحسنت أحسنت وجزاك الله خيرا... لم أقرأ كود vba بعد ولكن شكرا جزيلا فقد ساعدتني على صنع اداة متكاملة لاستيراد ملفات الاكسل وتصديرها عبر الاكسس وهو ما يحتاجة العديد من الزملاء الذين يعملون في كنترولات المدارس والجامعات وهو ما سأقدمه جاهزا بعد ضبطة بشكل جيد هدية لمنتدانا الكبير والفضل لله ثم لحضرتكم. رجاءاً ومن فضلك: الإشارة الى المكان الذي تم فيه التعديل لأني لم اعرف مكان التعديل و لكي اتعلم واطمع في كرمك لو تكرمت وقمت بحل رسالة الخطأ التي تظهر لو نسيت ولم اقم بإختيار كومبو بوكس ورقة العمل فإذا تكرمت و قمت بإظهار رسالة تفيد بعدم الإختيار من كومبوبوكس ورقة العمل وعدم تنفيذ الاستيراد دون اختيارهها وشكر جزيلا لك اخي الكريم.

اخي الفاضل Foksh لو تكرمت و ساعدتني في طلبي الأخير ان شاء الله فأنا اقوم بصنع قاعدة بيانات تقوم بإستيراد البيانات من ملفات اكسل حقولها و اسماؤها مطابقة للجداول في القاعدة ثم اجري عليها بعض العمليات و اقوم بتصديرها مرة اخري الى ملفات اكسل ليستلمها منى شخص اخر ويقوم عليها بعمليات اخرى وهكذا وقد ساعدتني مساعدة كبيرة في تصدير الملفات وجرت الامور على أكمل وجه والحمد لله ولكن تبقت معي مسألة استيراد البيانات من الاكسل فقد نجحت في اسيراد ملف واحد فقط ولكنني اريد استيراد باقي الملفات عن طريق كومبوبوكس وليس عن طريق كتابة اسم الجدول المراد استيراد البيانات اليه كل مره في كود VBA ولقد قمت بمعظم العمل والحمد لله ولكن تبقت هذه النقطة فقط و سأوضح بالصور واشكرك على صبرك وسعة صدرك. المشروع الجديد 1.rar

جزاك الله خيرا اخي الفاضل Foksh والان مع هذه الاداة الرائعة لتصدير جداول واستعلامات الاكسس الى جدول اكسل Export_to_Excel تصدير البيانات الى اكسيل محدث.rar

شكرا جزيلا اخي الكريم Foksh فأنت في من يصدق فيهم قول الشاعر الناس من جهة التفضيل أكفاءُ … أبوهم آدم والأم حــــــــــــــــواءُ فإن لهمْ يكن من أصلهم شرفٌ … يفاخرون به فالطينُ والمـــــــاءُ وما الفخر إلا لأهل العلم إنهمُ… على الهدى لمن استهدى أدلاءُ وقيمة المرءِ ما قد كان يحسنهُ … والجاهلون لأهل العلمِ أعـــداءٌ فَعِشْ بعلمٍ تَفُـزْ حيَّاً به أبدا … الناسُ موتى وأهلُ العلمِ أحـــــــياءُ شكرا جزيلا فلقد اوضحت المشكلة واعطيت الحل و هذا هو كمال العطاء ومشاركة مني قمت برفع الملف بعد التعديل عليه وتحسين شكله قليلا لعل الله ينفع به أحدا من المسلمين. ملاحظة: الملف المرفوع للجداول فقط وسيتم اخر قريبا للجداول والاستعلامات Export_to_Excel الملف محدث وبشكل افضل.rar

شكرا لسرعة استجابة حضرتك والملف محدث بصيغة 2007 Export_to_Excel.accdb