طلب مساعدة فى تجميع عدد خانات اختيار التى تحتوى على علامة صح لسجل وراجاع رقم المجموع

[walid0alex]

السلام عليكم

عندى صف بة 12 خانة اختيار اريد حساب عدد الخانات التى تحتوى على علامة صح

وشكرا لكم

[jjafferr]

وعليكم السلام

 

واهلا وسهلا بك في المنتدى ،

رجاء تعطي توضيح ومثال لطلبك ، وباريت على ملف اكسس او اكسل او صورة مثلا ، حتى يفهمه الجميع ويبادر بالمساعدة

 

جعفر

 

[walid0alex]

شكرا لك اخى العزيز جعفر

مرفق ملف اكسس

Database1.rar

[alaa aboul-ela]

السلام عليكم

اتمنى ان يحظى الملف القبول وان يكون به الاجابة على طلبك ..

تحياتي 

 

حساب عدد الزيارات وتجميع الحقول المؤشر عليها بعلامة صح.accdb

بطريقة اخرى

اسماء الشهور بالعربي

 

حساب عدد الزيارات وتجميع الحقول المؤشر عليها بعلامة صح - Copy.rar

[jjafferr]

وعليكم السلام

 

أخي وليد ، وكما لاحظت ، عندما تعطي التفاصيل كاملة ، ففرصة الحصول على الاجابة تكون اسرع

 

قدم لك اخي علاء احد طرق الجمع في الاستعلام ،

وهنا اقدم لك طريقة اخرى ، عن طريق النموذج ، والكود يمكن استعماله لأغراض اخرى لفحص الكائنات في النموذج:

Private Sub cmd_Count_Click()

    Dim ctl As Control
    
    'نبدأ بتصفير خانة المجموع
    Me.[عدد الزيارات الشهرية] = 0
    
    'عمل حلقة لقراءة جميع كائنات النموذج
    For Each ctl In Me.Controls
        
        'هل الكائن هو حقل اختيار
        If ctl.ControlType = acCheckBox Then
            
            'هل الحقل به علامة صح
            If ctl.Value = -1 Then
                
                'اجمع القيم
                Me.[عدد الزيارات الشهرية] = Me.[عدد الزيارات الشهرية] + 1
                
            End If  'ctl.Value
        End If  'ctl.ControlType
    Next
    
End Sub

 

جعفر

 

905.Database1.accdb.zip

[walid0alex]

شكرا اخوانى الأعزاء على الردود

واسف اخى جعفر على عدم ارفاق مثال من اول مرة