الساحة البريدية

هي كانت هناك بعض الاخطاء ، ليس في الدالة وإنما في الاستعلام وأسماء الجداول - البرنامج الذي جرت عليه التجارب فيه اسماء جداول تختلف عن البرنامج الأصلي لذلك الدالة ماكانت فعالة مثلا في البرنامج التجربة كان اسم الجدول data_main وفي البرنامج الاصلي بما أن الجداول كانت مرتبطة بـ sql كان اسمها افتراضي dbo_data_main وانا ما انتبهت لهذه النقطة لذلك الاستعلامات والتقرير ماكان فعال - التقرير يستند إلى استعلام ، بينما كان في البرنامج الاصلي يستند إلى جدول

في الختام أبشركم أن المشكلة انتهت بفضل الله تعالى ثم بجهودكم كنتم فريق رائع ومتميز أشكر الأخ الاستاذ المتألق jjafferr جعفر الذي وضع العديد من الحلول التي انطلقت منها حلول المبدعين د.كاف يار حسين كمال مسفر kha9009lid ابا جودى ☺Mօհმოოεძ Eʂʂმო☺ والتي كانت إضافاتهم متميزة ورائعة ووصلنا بها بحمد الله إلى المطلوب جميع ما قدم الأخوة كان له دور فعال في حل المشكلة والوصول إلى المبتغى لا يسعني إلا أن أقول جزاكم الله خيرا ونفع بكم هذا الملتقى الجميل

الاستاذ القدير جعفر ، والله هو نفس الكود اللي انت كتبته لي لا زيادة ولا نقصان الاستاذ ابا جودي ، اتوقع انه تمام بس هل في طريقة انه يحفظ بدون عرض صفحة الpdf

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

المسار نفس المسار والمثال نفس المثال بدأت اشك أن هناك وحدات نمطية مسجلة لدي أو غير مسجلة قد يكون لها تأثير على الدالة هل هذا يمكن ؟

حبيت اشاركك بهذا الكود Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("صف سادس", dbOpenDynaset) rs.MoveFirst Me.first = rs![اسم التلميذ] rs.MoveLast Me.last = rs![اسم التلميذ] يكون في حدث عند تحميل التقرير

جميعكم خبراء وجميعكم رائعين ويبدوا اني اثقلت عليكم ( سامحوني ) لكن هناك أمور تحصل غريبة جدا قمت بنسخ كل ما كتبته لي أخي جعفر ، وبالضغط على الزر قام بعمله في المرة الأولى وبعد ذلك أصبح الزر ل يعمل ولا تظهر عنه أي نتيجة وبعدما قمت بحذف السطر : On Error Resume Next على سبيل التجربة بدأت الرسالة المقيتة التي ظهرت أول مرة في اول موضوعي للظهور مرة أخرى !! واذا أبقيت

أشكركم جميعا يا اساتذتي ( جعفر - كافيار - مسفر - kha ) جميعكم أضاف أروع إضافة جزاكم الله خيرا الاستاذ جعفر : تعديلك الأخير تمام لكن هل في طريقة لو مثلا في ملف باسم : سعيد عادل ، محفوظ من السابق في المجلد ، وجيت احفظ بنفس الاسم ، تظهر لي رسالة الوندوز المعتادة : الاسم موجود هل تريد الحفظ فوقه لان الوضع الحالي يحفظ فوقه بدون اشعاري بأنه يوجد ملف محفوظ بنفس الاسم !

حفظpdf.accdb ارفقت الملف المطلوب لو في حلول ياليت تساعدوني فيها وشكرا لكم

الله يجزاك خير ما قصرت طيب مافي حل اخر مثل استخدام دالة docmd.PrintOut بدل من DoCmd.OutputTo ويكون نسق الملف pdf على ان يكون اسم الملف هو me.m_name

الله يحفظك هذا الكود يحفظ لي النموذج بكامل سجلاته والمطلوب السجل الحالي فقط حاولت ابدل كلمة acForm بكلمة acSelection ظهرت عندي نفس رسالة الخطأ في الرد الاول

سجل في نموذج طال عمرك السجل الحالي

ايضا اكتشفت شي غريب ، كود الاخ جعفر عند الضغط على الحفظ تظهر رسالة الخطأ نفسها ، ولكن يظهر ان الملف تم حفظه في مجلد الوصول السريع ، لكن فعليا لا يوجد ملف محفوظ ( شيء غريب ) !!

أشكركم على سرعة التجاوب والرد مساعدة الأستاذ ( جعفر ) تم حفظ السجل بصيغة pdf مع استمرار ظهور رسالة الخطأ أما الاستاذ كاف يار ، طبقت الكود ولكن لم يعمل بالمناسبة هذا هو مسار المجلد الذي يتم حفظ ملفات الpdf به : C:\Users\arapo\Documents\Reports المجلد اسمه Reports

السلام عليكم ورحمة الله وبركاته عندي نموذج فيه سجلات وعملت زر لحفظ السجل بصيغة pdf بداخل مجلد على سطح المكتب لان ملفات الpdf هذي انا ارسلها لشخص على ايميله المطلوب ان ملف الpdf يتم حفظه باسم العميل ، طبعا ياخذ الاسم المخزن في حقل اسم العميل الأكواد اللي حاولت فيها هي : Dim X As String X = Me.m_name & ".pdf" DoCmd.OutputTo acSelection, X, acFormatPDF طبعا Me.m_name هو اسم حقل اسم العميل بعد الضغط على الزر يتم التنفيذ وتظهر لي نافذة الحفظ وينزل اسم العميل في خانة اسم الملف وكل شي تمام ، ولكن لما اضغط على زر الحفظ تظهر لي رسالة الخطأ التالية أكيد في حل ان شاء الله ولكني عجزت تماما حل المشكلة وشكرا لكم

السلام عليكم ورحمة الله وبركاته سويت نموذج في أكسس ، والنموذج يحتوي على حقول رقمية والنموذج فيه زر ( جلب بيانات من تويتر ) twitter_id following followers Tweets likes واريد من سعادتكم لما اضغط الزر ، الحقول اللي في النموذج يجلب لي البيانات اللي في صفحة تويتر مرفق مثال لو تكرمتم twitter_form.accdb

ممكن سبب عدم الرد هو امتداد الملف ،، تم تعديل امتداد الملف إلى mdb الرجاء المساعدة الله يجزاك خير يا أبو خليل ، ومثلك صاحب فضل ،، يعني يستحيل إعادة تحجيم عنصر التحكم إلا إذا كان مستقل عن النموذج ؟؟!! ألا يوجد أي طريقة أخرى ؟؟ وما فائدة خصائص الطول والعرض والارتفاع للعنصر ؟

اليس منكم رجل يفيدني ؟

ممكن سبب عدم الرد هو امتداد الملف ،، تم تعديل امتداد الملف إلى mdb الرجاء المساعدة ofesna.mdb

أتوقع الاخوان هنا يحتاجون مثال للرد تم ارفاق مثال المشكلة كما اسلفت أريد زيادة حجم شاشة عرض الفيديو ، كلما قمت بتكبيرها تعود لوضعها الصغير ×ofesna.accdb

السلام عليكم ورحمة الله وبركاته سويت برنامج يعرض افلام كرتون وادرجت عنصر تحكم ميديا بلاير ولكن حين تشغيل الافلام تكون الشاشة صغيرة ، وكل ما كبرتها من التصميم ، لما اشغل النموذج ترجع صغيرة ، وبحثت عن حل لم أجد أرجو الحل ان تكرمتم ، وشكرا

وضح المطلوب أكثر ، ماني قادر افهمك

علشان نتأكد من سلامة الدوال والأكواد ، لابد ترفق لنا نسخة من برنامجك علشان نتأكد سلمك الله

لو توضع مثال ، علشان نعدل لك عليه

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