[ تمت الإجابة ]تمكين او عدم تمكين مربع نص على اساس قيمة عنصر في الكومبو بوكس ..

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

select case

فهي تتناسب مع كثرة الخيارات المعطاة

حاول ان تبحث عن الدالة المذكورة في المنتدى وستجد ما يسرك يا الحبيب..

بارك الله فيك وسدد خطاك

iBod كتب:

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

select case

فهي تتناسب مع كثرة الخيارات المعطاة

حاول ان تبحث عن الدالة المذكورة في المنتدى وستجد ما يسرك يا الحبيب..

بارك الله فيك وسدد خطاك

شكرا عزيزي على اهتمامك بموضوعي .

وتفضل الملف .

test.rar

بعد اذن استاذنا iBod - لا حرمنا الله من مجهوده وابداعاته -

تفضل اخي الكريم ...

يتم التفعيل حال اختيار بيت او ارض او شقة (لا يوجد منزل بين الاختيارات وبعدين البيت هو المنزل :lol: )

test.rar

الاخ الغالي ايهاب

يظهر انك سبقتني في تعديل المثال

لكن بما اني اشتغلت يبقي زيادة الخير خيرين

علي فكرة انا لم اجد المنزل قمت باضافتة للقائمة :lol:

Private Sub Combo0_AfterUpdate()
If Combo0 = "بيت" Or Combo0 = "منزل" Or Combo0 = "ارض" Then
Me.ms.Enabled = True
Else
Me.ms.Enabled = False
End If
End Sub

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

test_up.rar

محمد فؤاد تركي كتب:

الاخ الغالي ايهاب

يظهر انك سبقتني في تعديل المثال

لكن بما اني اشتغلت يبقي زيادة الخير خيرين

علي فكرة انا لم اجد المنزل قمت باضافتة للقائمة :lol:

Private Sub Combo0_AfterUpdate()
If Combo0 = "بيت" Or Combo0 = "منزل" Or Combo0 = "ارض" Then
Me.ms.Enabled = True
Else
Me.ms.Enabled = False
End If
End Sub

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

يا باشا انت تنور في اي مكان... :lol:

بس نحن التنين حلينا مشكلة واحدة وهي المشكلة رقو 2 ...

اقتباس

2- عند اختيار اكثر من قيمة في الكومبوبوكس(بيت ) (منزل ) (أرض ) ، يتفعل او لا يتفعل مربع النص.

تحياتي

تتبقى المشكلة الاولى...

اقتباس

1-اريد تطوير هذا الكود لكي يشمل اكثر من مربع نص في نفس الوقت عند اختيار القيمة (بيت) من الكومبوبوكس

مطلوب من الاخ "الحبيب" صاحب السؤال..

ما المربعات المطلوب تفعيلها عند اختيار "بيت" .... وهل هذا متعلق بال"البيت" فقط ام الارض والمنزل والشقة؟؟

ياباشا الله يحفظك ده نورك

الموضوع بسيط ان شاء الله بس الاستاذ العضو يضع توضيح اكثر واحنا دائما بالخدمة

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

السلام عليكم .. الشكر الجزيل ل

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

الشي الثاني من تطوير الكود الذي رغبت فيه سيكون على الشكل التالي ..

لو اخترت مثلا : بيت أو متجر أو مصنع

فلا يتم تمكين اكثر من مربع نص مثلا :

مربع النص Text10 و Text08

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

وتقبلو تحياتي

ان شاء الله يكون الموضوع سهل

سيصبح الكود كذلك بإذن الله

Private Sub Combo0_AfterUpdate()
If Combo0 = "متجر" Or Combo0 = "بيت" Or Combo0 = "مصنع" Then
Me.Text8.Enabled = False
Me.Text10.Enabled = False
Else
Me.Text8.Enabled = True
Me.Text10.Enabled = True
End If
End Sub

مرفق الملف

MF_test_up.rar

محمد فؤاد تركي .

لك مني عظيم الامتنان والشكر الجزيل .ولكل الاخوان الذين شاركوا في هذا الموضوع .

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

شكرا للجميع على هذا النشاط ..

لقد استفدت منه كثيرا في عملي الحالي ...

جزاكم الله خيرا