المساعدة في مجموع علامات الصح للحضور

[حربي العنزي]

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

طلبي مشروح داخل النموذج للبرنامج المرفق 

مع جزيل الشكر والاحترام لكم جميعا

Prog400.rar

[أبو عبدالله الحلوانى]

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

لم يعمل المرفق لدى 

ولكن ان كنت تعنى عدد العلامات فبامكانك استخدام دالة العد "Dcount"

*أو حاول أن ترفق لنا المثال بعد ضغطه بصيغة أخرى

 

[jjafferr]

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

 

الوحدة النمطية التالية تقوم بالعمل

Option Compare Database
Option Explicit

    Public rst As DAO.Recordset
'

Public Function Calc_Empty_Fields()

    Dim i As Integer
    Dim RC As Integer
    Dim RF As Integer
    Dim j As Integer
    Dim Counter As Integer
    
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    RF = rst.Fields.Count
    
      
    'Records
    For i = 1 To RC
        
        Counter = 0

        'Fields
        For j = 0 To RF - 1
        
            If IsNumeric(rst(j).Name) And rst(j).Value = -1 Then
                
                Counter = Counter + 1
                
            End If  'rst
            
        Next j
        
        'rst.Edit
        '    rst!Sum_Check = Counter
        'rst.Update
        
        rst.MoveNext
    Next i
    
    Calc_Empty_Fields = Counter
    
    rst.Close: Set rst = Nothing
    
End Function

.

ونناديها من النموذج الفرعي هكذا

Private Sub Form_Current()

    Set rst = Me.RecordsetClone
    Me.sum_Check = Calc_Empty_Fields()
End Sub

.

جعفر

833.Prog400.mdb.zip

[حربي العنزي]

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

جزاك الله خيرا 

وانا مطلوب لك قيمر عرب بالكاهي 

هههههههههههههههههههه تستاهل يا طيب 

استاذي الفاضل ابو عبدالله الحلواني انا اسف شكرا جزيلا لردك السريع ربي يحفظك يارب