تغيير خلفية مربع نص و زر امر في النموذج من خلال نموذج اخر

[محمد سلامة]

السلام عليكم

لدي نموذج يسمي form1 بداخله مربع نص يسمي text1 و زر امر يسمي comm1

اريد تغيير خلفية مربع النص والزر الامر حسب اي لون اختاره انا.

وذلك من خلال نموذج اخر يسمي form2

[jjafferr]

وعليكم السلام 

 

1. اريد تغيير خلفية مربع النص 

Forms!form1!text1.BackColor = RGB(2550, 0)

2. والزر الامر

حسب علمي ، صيغة mdb لا تسمح بهذا   

 

 

جعفر

تم تعديل مارس 14, 2015 بواسطه jjafferr

[محمد سلامة]

بارك الله فيكم استاذنا جعفر و xhanyx

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

يعني اختر لون مربع النص والرز امر من نموذج form2 واذهب الي نموذج form1 اجد اللون قد تغيير

وضحة الفكرة

بنتظر اجابتكم

[jjafferr]

بارك الله فيكم استاذنا جعفر و xhanyx

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

يعني اختر لون مربع النص والرز امر من نموذج form2 واذهب الي نموذج form1 اجد اللون قد تغيير

 

 

نعم ، هذا ما يعمله الكود (مع تغيير بسيط عليه ، لاني لم اجرب ما كتبت):

اكتب هذا الكود على حدث زر في النموذج Forms ، فيغير خلفية text1 في form1 الى الاحمر:

Forms!form1!text1.BackColor = RGB(255,0, 0)

جعفر

تم تعديل مارس 14, 2015 بواسطه jjafferr

[محمد سلامة]

استاذنا جعفر

شكرا تعبتك معايا

بس مش راضى يوظبط معايا

انظر الرسالة بعد تجربة الكود

يريت مثال صغير لكى أرى

[jjafferr]

تفضل 

 

افتح frm_2 

 

 

جعفر

28.Color_Combobox.mdb.zip

تم تعديل مارس 14, 2015 بواسطه jjafferr

[محمد سلامة]

السلام عليكم استاذنا جعفر

اولا :ولكن عندما اغلق النموذج واعيد فتحه مرة اخرى اجد ان اللون الافتراضى الابيض قد عاد مرة اخري

اريد تثبيت اللون

ثانيا : لا اريد عند النقر على زر الامر ان يفتح النموذج واشاهد اللون قد تغير بل الذى اريده هو النقر على الزر ثم اذهب الى النموذج وافتحه يدويا ثم اجد ان اللون قد تغير بمعنى

انظر الصورة

 

[jjafferr]

يا أخي ، لو اخبرتنا هذا من زمان 

 

تفضل 

Private Sub cmd_Blue_Click()

    DoCmd.OpenForm "frm_1", acDesign, , , acFormEdit, acHidden
    Forms!frm_1!text1.BackColor = RGB(0, 0, 255)
    DoCmd.Close acForm, "frm_1", acSaveYes
End Sub

Private Sub cmd_Red_Click()

    DoCmd.OpenForm "frm_1", acDesign, , , acFormEdit, acHidden
    Forms!frm_1!text1.BackColor = RGB(255, 0, 0)
    DoCmd.Close acForm, "frm_1", acSaveYes
End Sub

جعفر

[محمد سلامة]

استاذنا جعفر

بارك الله فيك  وغفر الله لك ولوالديك ووالدينا وامة سيدنا محمد صلى الله على حضرته وسلم

تمام جدااااااااا

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

 

 السؤال هو و على اساسه هل سنكمل الموضوع برمته ام لا 

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

واذا كان جوابك فعلا لا (فانا اسف جدااا على تعبك معى )

 

شكرا لحضرتكم

تم تعديل مارس 15, 2015 بواسطه soft.sample

[jjafferr]

نعم يصير حتى بـ accde او mde ، ولكن بالطريقة التالية:

1. اعمل جدول ، واجعل فيه مجموعة حقول (تابع علشان تعرف كم حقل) ،

2. تستطيع ان تغير اي شئ في النموذج ، وذلك بأخذ القيمة من الجدول ، واعطائه للحقل في النموذج عند حدث "الحالي" ،

3. في حال اعطائك قيمة في الجدول ، فيمكنك قرأتها هكذا مثلا:

a=dlookup(....,....,...)
me.text1.BackColor = a

4. انظر الرابط التالي: http://www.officena.net/ib/index.php?showtopic=59818

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

 

 

جعفر

[محمد سلامة]

بصراحة جالس اجارب ما وصلت الي شئ

ممكن مثال بسيط

[jjafferr]

تفضل 

 

1.

عملنا جدول لحفظ اللون (بينما في الرابط اللي اعطيتك ، تحفظ مجموعة صفات للحقل ، مثل 1. اسم الخط ، 2. حجم الخط ، 3. ثخانة الخط ، 4. منحني ، 5. تحته خط ، 6. لون الخط) ،

 

2.

في النموذج frm_2 في الحقل اللي لونه اصفر:

 

 

انقر مرتين في الحقل ، يظهر لك شاشة اختيار اللون ، اختار اللون ، وسيتم حفظ اللون في الجدول ،

الان افتح النموذج frm_3 ، ستجد انه يأخذ لونه من الجدول 

 

 

جعفر

28.Color_Combobox.mdb.zip

تم تعديل مارس 17, 2015 بواسطه jjafferr

[محمد سلامة]

السلام عليكم

اهلا وسهلا بك استاذنا العزيز جعفر 

اولا متاسف جداااااااا على الرد المتاخر حيث اننى كنت مشغول جدا 

ثانيا هذا هو المطلوب بالضبط بارك الله فيك وغفر الله لك جميع ذنوبك ما تقدم وما تاخر واساله ان يغفر لجميع امواتنا واموات المسلمين جميعا امين امين

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

شكرا جزيلا