[Emam emam]

(27-01-19, 06:57 PM)princelovelorn كتب :

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

مجرد فكرة

دالة لحساب عدد السجلات بدلالة رقم الموظف ودلالة checkbox في حالة true تاتي لك بعدد ايام حضوره 

وأخرى لحساب  عدد السجلات بدلالة رقم الموظف ودلالة checkbox في حالة false تاتي لك بعدد ايام غيابه

مثال على الدالة 

كود :

    Public Function Rows_Count_Tbl(Table As String, idemp As String, status As Boolean)
        Dim sql As String = ""
        sql = "SELECT * FROM " & TABLE & " where id='" & idemp & "' and status = '" & status
        Dim adp As New OleDb.OleDbDataAdapter(sql, con)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        Dim rowscount As String
        rowscount = dt.Rows.Count
        MsgBox(dt.Rows.Count)
        adp.Dispose()
        ds.Dispose()
        dt.Clear()
        Return rowscount
    End Function

طريقة الاستخدام

كود :

  'عدد ايام الحضور
       Dim numtrue As Integer
       numtrue = Rows_Count_Tbl("table", 1, True)

       'عدد ايام الغياب
       Dim numfalse As Integer
       numfalse = Rows_Count_Tbl("table", 1, False)

تمنياتي لك بالتوفيق 

بارك الله فيك اخي علي ردك
سأجرب الكود وأوافيك بالأخبار ان شاء الله .
مشكور علي مجهودك اخي وبارك الله فيك مره اخري