وعليكم السلام أخي الكريم رزق
بارك الله فيك على الموضوع وعلى حرصك على إفادة الأعضاء ..
اطلعت على الملف ووجدت أنك قمت بالمطلوب ولكن بطريقة طويلة بعض الشيء
وإليك اختصار لكودك باستخدام الحلقات التكرارية حيث يتم عمل حلقة تكرارية من 1 إلى 7 على صناديق الاختيار الموجودة على الفورم وتخزين النتائج في متغير نصي وفي النهاية وضع المتغير النصي في صندوق النص

Private Sub CommandButton1_Click()
    Dim i           As Integer
    Dim str         As String

    For i = 1 To 7
        With Me.Controls("CheckBox" & i)
            If .Value = True Then str = str & IIf(str = "", "", " ") & .Caption
        End With
    Next i

    TextBox1.Value = str
End Sub

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

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

جزاكم عنا كل خير

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

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

جهد رائع

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

بارك الله فيك

جميل منك ياجميل

جزاك الله خيرا اخى الكريم على مجهودك الرائع

المشاركة الأصلية كتبت بواسطة: YasserKhalil وعليكم السلام أخي الكريم رزق
بارك الله فيك على الموضوع وعلى حرصك على إفادة الأعضاء ..
اطلعت على الملف ووجدت أنك قمت بالمطلوب ولكن بطريقة طويلة بعض الشيء
وإليك اختصار لكودك باستخدام الحلقات التكرارية حيث يتم عمل حلقة تكرارية من 1 إلى 7 على صناديق الاختيار الموجودة على الفورم وتخزين النتائج في متغير نصي وفي النهاية وضع المتغير النصي في صندوق النص

CODE

Private Sub CommandButton1_Click()
    Dim i           As Integer
    Dim str         As String

    For i = 1 To 7
        With Me.Controls("CheckBox" & i)
            If .Value = True Then str = str & IIf(str = "", "", " ") & .Caption
        End With
    Next i

    TextBox1.Value = str
End Sub

رائع