كيفية جمع حقول تشك بوكس

[commpute]

الاخوة الاعزاء المحترمين

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

1- اذاكان لدي مثلا خمس مربعت checkbox هل بستطاعتي في النهاية ان يكون لدي عمود يقوم بجمعها بحيث احصل في النهاية على الرقم 5

2- كيف يمكن ان اجعل عرض النموذج بعرض الشاشة

وفي النهاية اشكركم على التفاعل والله يحفظكم ويرعاكم

الرجاء كتابة الكود لتوضيح

[rudwan]

هل تقصد حقل واحد في جدول فيه خمس سجلات تشيك بوكس تريد مجموعها

أم تقصد خمس مربعات تشيك بوكس مختلفه موجوده على النموذج تريد جمعها ؟

[commpute]

اريد لو تكرمت شرح الاثنين لأنني احتاجهما جميعا هذا ولكم جزيل الشكر

[rudwan]

آنا آسف لقد نسيت الموضوع

- اذا كان عندنا على النموذج عدة مربعات تشيك بوكس و نريد معرفة عددها , نضع على النموذج مربع نص وليكن اسمه Count

ثم نضع الكود التالي على النموذج

Private Sub Form_Current()
Dim ctl As Control
Dim i As long
 i=0
 For Each ctl In Me.Controls
    If ctl.ControlType = acCheckBox Then
    i = i + 1
    Next ctl
me.count=i
end sub

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

count=dcount("check1","MyTABLE","CHECK1=-1")

و هذا يعطي عدد السجلات الصح في هذا الحقل

و آسف مره أخرى على التأخير

تحياتي