الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

من يعرف طريقة عمل برنامج شاشة توقف؟

مغلق
بدأه فتى الخليج في 16 أغسطس 2003 · 11 رد · 1,110 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني اريد معرفة الكود الذي يعمل برنامج مثل شاشة التوقف (السكرين سيفر) بمعنى :-

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

يوجد لدي مشروع وانا محتاج لهذه الطريقه او هذا الكود لكي اتم مشروعي بنجاح.

ارجو من الاعضاء والاساتذه الكرام من لديه علم بهذا ان لاتبخلو علينا به كما عودتمونا دائماً

وكل الشكر والتقدير لكم،،،،،،،،،،،،،،،،

#2

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

أخي الكريم/ فتى الخليج

ضع في النموذج المراد إجراء عليه عملية العرض الأكواد التالية :

أولاً: تضع الكود التالي في حدث "عند عداد الوقت"

Private Sub Form_Timer()

 On Error GoTo ErrorHandler

    

DoCmd.GoToRecord , , acNext

   

    Exit Sub

ErrorHandler: DoCmd.GoToRecord , , acFirst



End Sub

ثانياً: في خانة "الفاصل الزمني لعداد الوقت" أكتب 5000 أي أن السجل سوف يتغير بعد 5 ثواني أو أكتب التوقيت الذي يناسبك.

ثالثاً: أحفظ التعديلات وشاهد بعد ذلك ما يحدث على النموذج.

ملاحظه: طبعاً الطريقة التي أفدتك بها بدائية وربما قد يرشدك بعض الأخوة إلى طريقة أفضل منها.

والله يوفقك.

ibnmusqat.gif
#3

وهذا مثال عملته لك على عجل أرجو أن يكون حسب المطلوب.

http://www.geocities.com/ibnmuscat/ScreenSaver.zip

ولك خالص تحياتي.

ibnmusqat.gif
#4

أشكرك كل الشكر على تعاونك

وانا سوف اجرب الطريقه واتمنى ان تكون الطريقه هي اللي اتمناها حتى ما اتعبكم.

وبالنسبه للرابط مايعمل

واتمنى لك التوفيق ان شاء ا لله

#5

أخي الكريم/ فتى الخليج

بخصوص الوصله أنا جربتها عدة مرات وهي شغاله 100% :o

عليك فقط من غير أمر أن تنقر عليها بزر الفأره الأيمن وتختار عبارة Save Target As ثم Save

وبإذن الله سوف ينزل الملف عندك.

ولك تحياتي

ابن مسقط

ibnmusqat.gif
#6

الله يعطيك العافية وتسلم يالغالي ياخوي ابن مسقط

ولكن لي سؤال هو مثل ما تعرف بعد ما ادخل جميع السجلات يكون هناك سجل خالي في الاخير مافيه معلومات اي ان يكون مهيئاً لادخال سجل جديد وهذا يكون (Default) من نفس قاعدة البيانات، ولما اعمل البرنامج وضع فيه الكود لجعل الصور متحركه، بعد مايعرض جميع السجلات المدخله في النموذج يتم عرض السجل الاخير الذي دائما مايكون خالي بحيث يعرض النموذج خالي وكما في المثال المرفق،،،،،،،،،

واتمنى ان يكون سؤالي واضح ومفهوم،،،،،،،،،،،،،،

#7

لا ادري لماذا لم يتم ارفاق المثال في المشاركة الاولي؟

#8

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

أخي الكريم/ فتى الخليج

أستبدال الكود السابق الموضوع في حدث "عند عداد الوقت" بالكود الأتي :

DoCmd.GoToRecord , , acNext

    

If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then

DoCmd.GoToRecord , , acFirst



End If

لا تنسى أن تخبرني بالنتيجه بارك الله فيك. :)

ibnmusqat.gif
#9

عذراً .. فهذا الكود الأصح

DoCmd.GoToRecord , , acNext

    

 If Me.NewRecord Then

DoCmd.GoToRecord , , acFirst



End If
ibnmusqat.gif
#10

والله يا اخ ابن مسقط ما ادري ايش اقول كل كلمات الشكر ما توفيت حقك على تعاونك

جعلها الله في ميزان حساناتك يوم القيامه ان شاء الله

#11

الاخ ابن مسقط الحقيقه مثال جميل وفقك الله

ولكن ماذا لو اردنا وضع هذا المثال ضمن برنامج واردنا ان يعمل المثال تلقائي بعد دقيقتين مثلاً او اضع الوقت المناسب . اتمنى ان اجد مثال لذلك بحيث ان البرنامج لديه نموذج اخر يفتح في بدء التشغيل .

sob7ank.jpg

فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب

والصبر في النائبات صعب**** لكن فوات الثواب أصعب

والدهر في صرفه عجيب**** لكن غفلة الناس أعجب

وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب

#12

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

أخي الكريم/ alali100

قمت بالتعديل على القاعدة السابقة للتتناسب مع ما تم توضيحه من قبلك.

أرجو إنزال الملف من الرابط التالي : (أنقر بزر الفأره الأيمن وأختر Save Target As )

أنقر هنا لإنزال الملف

والإفادة برأيك

والله الموفق.

تم تعديل هذه المشاركة بواسطة ابن مسقط في 2 سبتمبر 2003 في 01:19

ibnmusqat.gif

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…