اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

Merge Names.rar

قام بنشر

تفضل أخي @أبو منتظر ، تم إنشاء وظيفةة واحدة في النموذج تقوم بالمهام جميعها ، واستدعائها عند النقر قيم الـ 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

 

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information