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

السلام عليكم ورحمة الله وبركاته

عندي صفحة ويب ، وابغا اعمل فيها حقلبن نصية وفيها زر 

الحقل الاول اكتب فيه حساب تويتر لشخص ما

والحقل الثاني بعد الضغط على الزر يظهر لي عدد متابعات شخص ما على تويتر ، مثال 

اذا ضغط على الزر يعطيني قيمة متابعات تويتر لشخص ما 

مثلا في الحقل الاول اكتب حساب تويتر (  @Ali_M_A_Lami  ) 

لما اضغط الزر يظهر لي الحقل الثاني عدد تغريدات  صاحب الحساب ، واللي عددها : حسب المثال : 160 تغريدة ، يعني يظهر لي في الحقل الثاني رقم 160

مثال للكود 

https://twitter.com/Ali_M_A_Lami/likes

https://twitter.com/الحقل النصي رقم 1/likes

هي كانت هناك بعض الاخطاء ، ليس في الدالة
وإنما في الاستعلام وأسماء الجداول

- البرنامج الذي جرت عليه التجارب فيه اسماء جداول تختلف عن البرنامج الأصلي لذلك الدالة ماكانت فعالة

مثلا في البرنامج التجربة كان اسم الجدول 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 الرجاء المساعدة 

11 ساعات مضت, ابوخليل said:

السلام عليكم 

لم تترك لاحد من عذر

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

لذا جرب تشغيل ملفاتك باستخدام  مشغل الفيديو الافتراضي في الجهاز

هذا مثال مصغر تستفيد منه

تشغيل فيديو.rar

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

ألا يوجد أي طريقة أخرى ؟؟

وما فائدة خصائص الطول والعرض والارتفاع للعنصر ؟

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

ممكن سبب عدم الرد هو امتداد الملف ،، 

تم تعديل امتداد الملف إلى mdb الرجاء المساعدة 

ofesna.mdb

أتوقع الاخوان هنا يحتاجون مثال للرد 

تم ارفاق مثال 

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

×ofesna.accdb

السلام عليكم ورحمة الله وبركاته

سويت برنامج يعرض افلام كرتون 

وادرجت عنصر تحكم ميديا بلاير 

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

أرجو الحل ان تكرمتم ، وشكرا

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

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

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