[مصمم هاوي]

عندي مشكلة بسيطة ولكن للأسف لم أستطيع تنفيذها !!!
نفرض أن لدى عدد (12) من التشك بوكس.
المطلوب أريد كود لتحديد الكل
وأخر لإلغاء التحديد

[مصمم هاوي]

اهلا بك اخي الحبيب 

اتمنى ان يكون هذا هو المطلوب 
تحديد الكل : 

PHP كود :

Private Sub SelectAll()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is CheckBox Then
            ctrl.Value = vbChecked
        End If
    Next ctrl
End Sub 


الغاء تحديد الكل: 

PHP كود :

Private Sub Un_SelectAll()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is CheckBox Then
            ctrl.Value = vbUnchecked
        End If
    Next ctrl
End Sub 


بارك الله فيك أخي الحبيب أمير على سرعة الرد؛ ولكن يوجد خطأ كما هو موضح في المثال الصغير المرفق


  تحديد التشك بوكس.rar (الحجم : 1.92 ك ب / التحميلات : 11)

[مصمم هاوي]

اهلا بك اخي عمران ، 
اتمنى ان يكون هذا هو المطلوب :

هذا هــو المطلـوب
فتح الله عليك أخــــــــي العزيـــــــز وصديقــــــــــــي الحبيب أميـر
وجعلـه فــي ميزان حسناتك.
وأسألُ اللــه أن يُفرج كربك، ويُيسر همّك