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

[ابو جودي]

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


تفضل على الاستاذ

عبد الفتاح كيرة  

جزاه الله عنى كل الخير اعطائى هذا الكود الذى يغير تبويب فى علامة الجدوله تبعا للتغير الذى يطرأء على مربع التحرير والسرد

 

Private Sub tr_Click()
Me.o.Value = Me.tr.ListIndex
End Sub

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

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

عند اختيار العنصر Waiting Customer من القائمة المنسدله يفتح التبويب  Waiting Customer من عنصر تحكم علامة الجدوله
وعند اختيار التبويب Waiting Customer من عنصر تحكم علامة الجدوله تتغير قيمة مربع التحرير والسرد الى Waiting Customer
وكذلك

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

عند اختيار العنصر Scrapped Tire من القائمة المنسدله يفتح التبويب  Scrapped Tire من عنصر تحكم علامة الجدوله

وعند اختيار التبويب Scrapped Tire من عنصر تحكم علامة الجدوله تتغير قيمة مربع التحرير والسرد الى Scrapped Tire
 

ملاحظة مربع التحرير والسرد المرتبط بعلامة الجدوله  فى المثال المرفق هو  Type of report

علامة الجدوله.rar

تم تعديل نوفمبر 26, 2014 بواسطه اسير الشروق

[ابو جودي]

up

[ابو جودي]

سبحان الله وبحمده سبحان الله العظيم

[ابوخليل]

اخي الكريم

يمكن حسب تصميمك في المثال ايجاد الحل ولكننا نحتاج الى جملة برمجية اطول من الحاجة

حيث انك جعلت مربع التحرير يأخذ بياناته من جدول

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

لذا قمت بتعديل نوع الحقل داخل الجدول  الى رقمي  وكذلك مربع التحرير

لتصبح الجملة البرمجية التي تحقق مطلوبك هكذا :

 

Private Sub o_Change()
Me.tr.Value = Me.o.Value
End Sub

اما اذا اردت الابقاء على عملك بدون تعديل فيمكن حينها ان اعمل لك الكود المناسب 

ولكنه سيكون اطول قليلا  حيث سيكون لكل تبويب شرطا يخصه

 

علامة الجدوله2.rar

[ابو جودي]

 

اخي الكريم

يمكن حسب تصميمك في المثال ايجاد الحل ولكننا نحتاج الى جملة برمجية اطول من الحاجة

حيث انك جعلت مربع التحرير يأخذ بياناته من جدول

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

لذا قمت بتعديل نوع الحقل داخل الجدول  الى رقمي  وكذلك مربع التحرير

لتصبح الجملة البرمجية التي تحقق مطلوبك هكذا :

 

Private Sub o_Change()
Me.tr.Value = Me.o.Value
End Sub

اما اذا اردت الابقاء على عملك بدون تعديل فيمكن حينها ان اعمل لك الكود المناسب 

ولكنه سيكون اطول قليلا  حيث سيكون لكل تبويب شرطا يخصه

 

اولا استاذنا الكريم 

أبـوخليل :fff:

جزاكم الله عنى كل الخير واشكرك جدا جدا جدا لاهتمام حضرتك

بس اسمح لى باستفسار

انا كنت عاوز لما اختار تبويب معين مثلا Scrapped  اكتب فيه بيانات دائما بعد الضغط على زر add new دون تغير التبويب Scrapped  بعد الضغط على الزر  add new الا ان غيرته انا بنفسى

هل يمكن ذلك

[رمهان]

بعد اذن الاستاذ ابو خليل

Private Sub o_Change()
Me.tr.Value = Me.tr.ItemData(o.Value)
End Sub

مع العلم ان لي تحفظ على استخدام الكمبو بوكس لتغيير التاب . فاصلا كانك دبلت عنصرين لهم نفس الوظيفة . اقصد هل الاسهل للانتقال لتاب معينة بالنقر على الكمبو ثم تركيز النظر على القائمة ثم الاختيار ام الاسهل مباشرة بالنقر على التاب .

 

بالتوفيق

[ابو جودي]

الاستاذ أبـوخليل :fff:
اطلب منك على استحياء
ممكن لكل تبويب شرطا يخصه واعتذر لو اثقلت على حضرتك فى طلبى

[ابوخليل]

بس اسمح لى باستفسار

انا كنت عاوز لما اختار تبويب معين مثلا Scrapped  اكتب فيه بيانات دائما بعد الضغط على زر add new دون تغير التبويبScrapped  بعد الضغط على الزر  add new الا ان غيرته انا بنفسى

هل يمكن ذلك

 

 

هذا غير واضح لي ،  لاني جربت ضغط الزر المذكور ولم يتغير  التبويب

يلزم زيادة في شرح المطلوب

 

اطلب منك على استحياء 

ممكن لكل تبويب شرطا يخصه واعتذر لو اثقلت على حضرتك فى طلبى

 

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