عمل شريط متحركه في اعلى واسفل ووسط نموذج اكسس

[anowrosh88]

الاخوه الاخوات الاعضاء رجاء ممكن شرح لوضع شريط متحرك من الكلمات في نموذج اكسس مع الشكر الجزيل

[ابوخليل]

السلام عليكم

هذا مثال من عمل أحد الإخوة .. آمل أن تستفيد منه

نص متحرك.zip

[anowrosh88]

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

[رياض الراوي]

السلام عليكم:
الشرح بعد إذن أخي ابو خليل :
تسمية مربع النص t الجديد هي مسافة فارغة قبل التسمية الافتراضية "بسم الله الرحمن الرحيم"

Me.t.Caption = " " + Me.t.Caption

إذا أصبح طول محارف تسمية مربع النص t مع المسافات الفارغة يساوي 100 فإن التسمية تصبح " بسم الله الرحمن الرحيم" ويتكرر الحدث مع عداد الوقت للنموذج وقيمته /100/ يعني 0.1 ثانية
 

If Len(Me.t.Caption) = 100 Then Me.t.Caption = " بسم الله الرحمن الرحيم"

[anowrosh88]

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

4ط§ظ„ط·ظ„ط§ط¨.rar

تم تعديل ديسمبر 27, 2009 بواسطه anowrosh88

[رياض الراوي]

السلام عليكم:
المثال الذي أورده الأخ anowrosh88 مثال جميل ومفيد أشكره عليه.
ولفهمه يجب أن نحلل حدث النموذج عند التحميل Form_Load وحدث عند الموقت الزمني Form_Timer
 

Private Sub Form_Load()
DoCmd.OpenForm "form2"
' شريط متحرك بأعلى النموذج
Me.Caption = "مدرسة بلال بن رباح طلاب المرحلة الخامسة ................ "

' شريط متحرك بالنموذج وهو يأخذ قيمته الابتدائية من مربع النص [aa] في النموذج [form2]
Me.lblScrollingLabel.Caption = Forms![form2]![aa]

' شريط متحرك بأسفل النموذج
txtScrollStatus = "وما أوتيتم من العلم إلا قليلا .. لا تنسونا من الدعاء" & Space(25)
DoCmd.Close acForm, "form2"

End Sub

Private Sub Form_Timer()
' تنتنج النص المتحرك في شريط عنوان النموذج
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' تنتنج النص المتحرك في مربع التسمية على النموذج
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)

' تنتنج النص المتحرك في شريط الحالة للأكسس
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)

End Sub

[anowrosh88]

طب معلش هو واضع form2 مع انه العمل في form1 شو الرابط بين الفورمين ولماذا استخدم form load مع اني استخدمت حسب المثال المرفق من الاخوان form ........timer ..... هل هي كود برمجي (txtScrollStatus)ام اصطلاح استخدمه المبرمج كل الاحترامي

تم تعديل ديسمبر 27, 2009 بواسطه anowrosh88

[رياض الراوي]

الاخ العزيز:
لديناثلاث نصوص متحركة في النموذج :
1- العنوان في شريط العنوان ويأخذ قيمته الابتدائية من الكود
Me.Caption = "مدرسة بلال بن رباح طلاب المرحلة الخامسة ................ "
وقلت قيمة ابتدائية ليظهر النص في شريط العنوان عند فتح النموذج ثم يتم تحريكه بكود التايمر
2- نص متحرك بالنموذج ويأخذ قيمته الابتدائية من مربع النص [aa] في النموذج [form2] ويتم ذلك إما بفتح النموذج form1 وبحدث عند التحميل نفتح النموذج form2 و نأخذ القيمة من النموذج form2 لنضعها في مربع النص المذكور ثم وبنفس الحدث يتم إغلاق النموذج form2 بعد أن انتهت الحاجة إليه وليس لهذا النموذج وظيفة أخرى.
أو بفتح form1 عن طريق زر الأمر بالنموذج form2 ثم إغلاق form2 بحدث عند التحميل للنموذج form1 .
3- نص متحرك في شريط الحالة بأسفل النموذج ويأخذ قيمته الابتدائية من txtScrollStatus ويتم تعريفها بأعلى النموذج بما يلي:

Public txtScrollStatus As String

أما كود التايمر فيتم فيه تحريك النصوص المذكورة أعلاه
مع التحية

تم تعديل أبريل 17, 2014 بواسطه أبا عمر

[anowrosh88]

اشكرك اخ رياض على الشرح الجميل

كما قلت سابقا علمني صيد السمك ولا تطعمني السمك

لقد نفذت الامر حسب الشرح الجميل منكم وتم بحمد الله جهودكم

لا تراجع والى الامام

[سلام التميمي]

السلام عليكم

هذا مثال من عمل أحد الإخوة .. آمل أن تستفيد منه

null

انا ما فهمت كيف نعمل الشريط الرجاء ان تشرح الي اكثر بخطوات واضحة 

[سلام التميمي]

السلام عليكم 

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

شكراااااااااااااا

[hassanysafaga]

السلام عليكم

هذا مثال من عمل أحد الإخوة .. آمل أن تستفيد منه

null

[علي المصري]

مشاركة بسيطة

fff.rar

[علي المصري]

السلام عليكم 

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

شكراااااااااااااا

 

 

 

إليك اخي الخطوات بالصور

مع اكسيس 2010 و 2013 و 2007 بالمثل بدل كلم file سوف تجد اشرة الاوفيس على شكل دائرة

 

 

 

 

[ابو ابراهيم11]

الف شكر وتقدير لك ولكل من ساهم بالرد

 

 

تم فصل المشاركة هنا http://www.officena.net/ib/index.php?showtopic=54887

تم تعديل يوليو 27, 2014 بواسطه أبـوخليل
تنسيق المواضيع والمشاركات

[zenga20]

شكرا اخى الكريم

[حميد المعزبي]

يوجد خطأ إملائي في اسم النموذج "main"او أنه يشير إلى نموذج غير موجود

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