اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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