الاخوة الافاضل:
1- اريد الكود عند التاشير على علامة الصح في خانة الاختيار يسألني ( هل تريد بالتاكيد حذف البنود المحددة ) وعند اختيار نعم يقوم بتظليل السجل . وعند اختيار لا يتركه كما كان .
2- اذا كانت علامة الصح في خانة الاختيار فعالة يسألني ( هل تريد بالتاكيد اعادة البنود المحددة ) وعند اختيار نعم يقوم بحذف التضليل عن السجل . وعند اختيار لا يتركه كما كان .
لاحظ المثال المرفق ..
لاحظ الكود في حدث بعد التحديث لمربع خانة الاختيار .
محبكم
ابو باسل
.
السلام عليكم ورحمة الله وبركاته ،،،
تفضل أخي الكريم / ابو باسل
الكود الذي انتة عاملة صحيح بس نسيت الشرط ما حددتة ،
مثل
تعديل في الكود :
=Red]If delete = -1 Then
If MsgBox(" هل تريد بالتاكيد الإخفاء ", vbYesNo + vbMsgBoxRight + vbInformation, " إخفاء") = vbYes Then
delete = True
Refresh
Else
delete = Null
Refresh
End If
=Red]ElseIf delete = 0 Then
If MsgBox(" هل تريد بالتكيد الإضهار ", vbYesNo + vbMsgBoxRight + vbInformation, " إضهار ") = vbYes Then
delete = False
Refresh
Else
delete = True
Refresh
End If
End Ifوتعديل في المثال
مع التحية للجميع ،،،
عبدالمانع
تم تعديل هذه المشاركة بواسطة عبدالمانع في 28 يوليو 2005 في 09:43
.
الف... الف... شكر اخوي عبدالمانع . مشكور وما قصرت .
طيب :
ممكن طلب اخر .. ابغى عند التاشير عليه صح يلون لي السجل بلون اخر كالاحمر مثلا .
محبكم
ابو باسل
تم تعديل هذه المشاركة بواسطة ابو باسل في 28 يوليو 2005 في 10:25
السلام عليكم ورحمة الله وبركاته ،،،
تفضل بالطريقة هذه قد تفيدك
وحيث تم تمكين للماوس او الكيبورد بس لو كان التاشير على الخيار فلا يمكن من الاضافة شوف المثال قد يفيدك ،،،
مع التحية للجميع ،،،
عبدالمانع
يعطيك الف عافية اخوي عبدالمانع .
مشكور وما قصرت هذا ما اريده بالضبط . التعديل مو مهم هنا .. هناك شاشة اخرى للتعديل
محبكم
ابو باسل
السلام عليكم ورحمة الله وبركاته ،،،
أهلا وسهلا بك ،،، أخي / أبو باسل
وبالتوفيق إن شاء الله
مع التحية للجميع ،،،
عبدالمانع
هذا الموضوع مغلق.