اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

السلام عليكم

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

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

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

رابط هذا التعليق
شارك

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

 

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

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

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

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

 

 

جعفر

تم تعديل بواسطه jjafferr
  • Like 1
رابط هذا التعليق
شارك

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

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

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

وضحة الفكرة

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

رابط هذا التعليق
شارك

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

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

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

 

 

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

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

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

جعفر

تم تعديل بواسطه jjafferr
  • Like 1
رابط هذا التعليق
شارك

استاذنا جعفر

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

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

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

post-140430-0-70997100-1426361459_thumb.

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

رابط هذا التعليق
شارك

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

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

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

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

انظر الصورة

post-140430-0-24142500-1426409720_thumb.

post-140430-0-85430100-1426409727_thumb.

 

رابط هذا التعليق
شارك

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

 

تفضل  :smile:


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

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

 

شكرا لحضرتكم

تم تعديل بواسطه soft.sample
رابط هذا التعليق
شارك

:smile:

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

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

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

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

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

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

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

 

 

جعفر

رابط هذا التعليق
شارك

تفضل  :smile:

 

1.

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

 

2.

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

post-142414-0-67480800-1426594317_thumb.

 

 

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

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

 

 

جعفر

28.Color_Combobox.mdb.zip

تم تعديل بواسطه jjafferr
  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

شكرا جزيلا

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information