مساعدة في كود اختيار من checkbox لحلقات القرآن الكريم

[عاشق الحووور]

أجزاء القرآن.accdb السلام عليكم ورحمة الله وبركاته

أعضاء المنتدى أرغب في مساعدتي لكتابة كود عند اختيار من chexbox يكتب في مربع نص موضح ذلك في المثال المرفق ولكم مني جزيل الشكر

تم تعديل فبراير 11 بواسطه عاشق الحووور
توضيح

[ابوخليل]

عليكم السلام ورحمة الله وبركاته

التصميم لم يعجبني لأسباب :

- التصميم جامد لا يمكنك التطوير مستقبلا

- من الخطأ تسمية الحقول بأرقام

- ايضا من الافضل الابتعاد عن تسمية الحقول والكائنات الأخرى بحروف عربية

اذا ليس لديك مانع ان اعيد التصميم  فسوف اقدم لك العون والمساعدة

 

[ابوخليل]

على كل حال تفضل الحل حسب طلبك

Private Sub countAjza()
Dim ctlC As Control
Dim i As Integer
Dim x As String
    For Each ctlC In Me.Controls
        If TypeOf ctlC Is CheckBox Then
    If ctlC.Value = True Then
 i = i + 1
 x = x & "," & ctlC.Name
  End If
  End If
  Next ctlC
c1 = i
c2 = x
 
End Sub

 

 

أجزاء القرآن2.rar

[عاشق الحووور]

الله يجزاك عني خير الجزاء صحيح هذا هو المطلوب