استفسار عن دالة sum

[2saad]

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته

بعد اذن حضراتكم

هل ينفع استخدم دالة sum  في استعلام من خلال وحدة نمطية

 

 

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته
طبعا ينفع عزيزي
 

Function GetTotalSum(tableName As String, fieldName As String) As Double
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    Dim totalSum As Double
    
    Set db = CurrentDb
    sql = "SELECT SUM([" & fieldName & "]) AS TotalSum FROM [" & tableName & "]"
    Set rs = db.OpenRecordset(sql)
    
    If Not rs.EOF Then
        totalSum = rs!TotalSum
    Else
        totalSum = 0
    End If
    
    rs.Close
    Set rs = Nothing
    
    GetTotalSum = totalSum
End Function

ويمكنك استدعاءها هكذا: 

 

Sub TestGetTotalSum()
    Dim total As Double
    total = GetTotalSum("Orders", "OrderTotal")
    MsgBox "Total Sum of OrderTotal: " & total
End Sub

 

[2saad]

شكرا جزيلا أخي الفاضل وبارك الله فيك وزادك الله من علمه

لو ينفع ملف يوضح هذا أكون شاكر لحضرتك

[kkhalifa1960]

تفضل استاذ @2saad طلبك مستخدماً موديول الاستاذ @AlwaZeeR . بالنموذج والاستعلام

DDTestSumModule.rar

تم تعديل يونيو 4, 2024 بواسطه kkhalifa1960

[AlwaZeeR]

4 ساعات مضت, kkhalifa1960 said:

تفضل استاذ @2saad طلبك مستخدماً موديول الاستاذ @AlwaZeeR . بالنموذج والاستعلام

احسنت العمل صديقي خليفة👍

اجعل الوحدة: Public Function

وامسح المكررة في النموذج لا نحتاج الا واحدة فقط للعمل في جميع اماكن القاعدة

::

تحياتي

[AlwaZeeR]

اجعل الوحدة: Public Function

وامسح المكررة في النموذج لا نحتاج الا واحدة فقط للعمل في جميع اماكن القاعدة

::

تحياتي

DDTestSumModule.accdb

[2saad]

بارك الله فيكم جميعا وزادكم الله من علمه وجعله في ميزان حسناتكم علي ما تقدموه من جهد ومساعدة الآخرين

أنا مرفق ملف بالمطلوب

ووضعت وحدة نمطيه للمطلوب جمعه في ( module1 ) 

عايز اجمع ماهو موجود في qr1 في QRYsum1 زي ما أنا عامل للمسلم والمسيحي بناء علي الصفnader.rar ....

انظر الصورة هو ده المطلوب تجميعه 

[2saad]

ارجو المساعدة