اغلاق الشاشة الافتتاحية عند فتح الشاشة الرئيسية

[college229133]

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

أرجوا كل من يرى في نفسه الكفأءة التعديل على الكود مشكورا مع أني حاولت ولكن عبث

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

screen.rar

[D-LINK2000]

اخي العزيز

الذي قام بإنشاء الفورم قام باسناد العملية إلى الإجراء TIMER كما يلي

S = Second(TIME)

W = TIME()

If W > D + (5 * S) Then DoCmd.OpenForm "MAIN WINDOW"

DOCMD.CLOSE

Static sintPic As Integer

Me("S" & sintPic).Visible = False

sintPic = (sintPic + 1) Mod 6

Me("S" & sintPic).Visible = True

End Sub

لقد قمت بإضافة الكود DOCMD.CLOSE لإلغلاق الفورم الرئيسي الافتتاحي لانه يظل عالقا وعلى ما يبدو ان هذا البرنامج يعمل مع ACCESS2003 بصورة جيدة بينما لا يعمل مع ACCESS XP

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

على فكرة قمت بالتجربة على ACCESS XP ونجحت التجربة وعلى فكرة كل الذي قمت به فقط هو اضافة الأمر السابق docmd.close وباقي البرمجة التي قام بها منشئ الفورم صحيحة وتعمل وكل ما عليك هو ان تحذف main window وتضع اسم الفورم المراد تحميله

اتمنى ان اكون قد ابديت بعض الاهتمام للموضوع

[يوسف أحمد]

بارك الله فيك اخي D-LINK2000

اخي / college229133

اليك المرفق بعد التعديل

وبالتوفيق

وللمعلومية فقد تم تعديل عنوان المشاركة ليدل على مضمونها

screen.rar

[D-LINK2000]

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

وننتظر منك المزيد

[college229133]

جزيتم خيرا

ولكن لدي سؤال كيف أستطيع التحكم في الزمن للإنتقال للشاشة الثانية مثلا بعد 7 ثواني

لأني كل مرة أفتحها يتغير الزمن مرة تتأخر ومرة تفتح بزمن أقل

بإنتظاركم

[D-LINK2000]

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

فلو تتبعت الفرق بين الساعة عن تحميل الفورم والعداد اسفلها ستجد انه يبدأ من الثواني التي سجلت عند تحميل الفورم وتقريباً يتم تحميل النموذج الىخر عند الوصول للثانية 59 وهذا يفسر لك سؤالك لما يغيب الفورم احياناً واحياناً اخرى يتم فتح النافذة الرئيسية بسرعة.

ولي ملحوظة اخرى ان استخدام هذا الكود له حسنة واحدة فقط الا وهى العلامة المتحركة مثلما في الويندوز اكس بي فقط اما لو خيرت بين استخدام هذا الاسلوب وبين استخدام اسلوب التيمر من خصائص الفورم ونقوم بتحديد الزمن اللازم في خانة timer interval بالعدد مثل 100 ، 500 ، 1000 ، .... الخ وبعد ذلك نقوم باسناد غلق النموذج وفتح النموذج الآخر عن طريق الماكرو من خلال on timer باستخدام الامر

open form ، close form

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

Private Sub Form_Timer()

Dim S As Integer

S = Second(TIME)

W = TIME()

Static sintPic As Integer

Me("S" & sintPic).Visible = False

sintPic = (sintPic + 1) Mod 6

Me("S" & sintPic).Visible = True

If W > D + (S) Then DoCmd.OpenForm "MAIN WINDOW"

End Sub

[D-LINK2000]

اخي العزيز يمكنك غلق الشاشة الافتتاحية باستخدام الكود التالي

DoCmd.Close acForm, "form1", acSaveNo

وذلك في الحدث form open في النموذج الثاني main window

حيث form1 هو الشاشة الافتتاحية

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

والله ولي التوفيق