أبو منتظر قام بنشر مايو 14 مشاركة قام بنشر مايو 14 بعد التحية والسلام على جميع أعضاء المنتدى المحترمين في الملف المرفق نموذج Profiles2 يُظهر أسماء خمسة أطفال وأمام كل منها مربع خيار المطلوب عمل كود على زر أسماء الحضور عند نقره يقوم بمسح محتويات الحقل (NoteD) أولاً , ومن ثم يقوم بتكوين نص نتيجة دمج أسماء الأطفال المفعلة مربع خياراتهم فقط في نفس الحقل . ولكم مقدّما جزيل الشكر والتقدير Merge Names.rar رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مايو 14 مشاركة قام بنشر مايو 14 تفضل أخي @أبو منتظر ، تم إنشاء وظيفةة واحدة في النموذج تقوم بالمهام جميعها ، واستدعائها عند النقر قيم الـ 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 1 رابط هذا التعليق شارك More sharing options...
أبو منتظر قام بنشر مايو 15 الكاتب مشاركة قام بنشر مايو 15 بوركت أخي Foksh ..نعم الأجابة , وكود رائع . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان