دمج أسماء متعددة في جملة واحدة

[أبو منتظر]

بعد التحية والسلام على جميع أعضاء المنتدى المحترمين 

في الملف المرفق نموذج Profiles2 يُظهر أسماء خمسة أطفال وأمام كل منها مربع خيار 

المطلوب عمل كود على زر أسماء الحضور عند نقره يقوم بمسح محتويات الحقل (NoteD) أولاً , ومن ثم يقوم بتكوين نص نتيجة دمج أسماء الأطفال المفعلة مربع خياراتهم فقط في نفس الحقل .

ولكم مقدّما جزيل الشكر والتقدير 

Merge Names.rar

[Foksh]

تفضل أخي @أبو منتظر ، تم إنشاء وظيفةة واحدة في النموذج تقوم بالمهام جميعها ، واستدعائها عند النقر قيم الـ Check Box .

Private Sub UpdateNoteD()
    Dim checkedItems As String
    Dim firstItemChecked As Boolean
    firstItemChecked = False
    If Me.uu = True Then
        If Not firstItemChecked Then
            checkedItems = checkedItems & "حضر " & Me.Adress
            firstItemChecked = True
        Else
            checkedItems = checkedItems & "، " & Me.Adress
        End If
    End If
    If Me.VV = True Then
        If Not firstItemChecked Then
            checkedItems = checkedItems & "حضر " & Me.Child2
            firstItemChecked = True
        Else
            checkedItems = checkedItems & "، " & Me.Child2
        End If
    End If
    If Me.ww = True Then
        If Not firstItemChecked Then
            checkedItems = checkedItems & "حضر " & Me.Child3
            firstItemChecked = True
        Else
            checkedItems = checkedItems & "، " & Me.Child3
        End If
    End If
    If Me.XX = True Then
        If Not firstItemChecked Then
            checkedItems = checkedItems & "حضر " & Me.Child4
            firstItemChecked = True
        Else
            checkedItems = checkedItems & "، " & Me.Child4
        End If
    End If
    If Me.yy = True Then
        If Not firstItemChecked Then
            checkedItems = checkedItems & "حضر " & Me.Child5
            firstItemChecked = True
        Else
            checkedItems = checkedItems & "، " & Me.Child5
        End If
    End If
    Me.NoteD = checkedItems
End Sub

ويتم استدعائها بالأمر  UpdateNoteD

 

Merge Names.mdb

 

[أبو منتظر]

بوركت أخي Foksh ..نعم الأجابة , وكود رائع .