2saad قام بنشر يونيو 3 مشاركة قام بنشر يونيو 3 اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته بعد اذن حضراتكم هل ينفع استخدم دالة sum في استعلام من خلال وحدة نمطية رابط هذا التعليق شارك More sharing options...
أفضل إجابة AlwaZeeR قام بنشر يونيو 3 أفضل إجابة مشاركة قام بنشر يونيو 3 وعليكم السلام ورحمة الله وبركاته طبعا ينفع عزيزي 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 4 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر يونيو 3 الكاتب مشاركة قام بنشر يونيو 3 شكرا جزيلا أخي الفاضل وبارك الله فيك وزادك الله من علمه لو ينفع ملف يوضح هذا أكون شاكر لحضرتك رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يونيو 4 مشاركة قام بنشر يونيو 4 (معدل) تفضل استاذ @2saad طلبك مستخدماً موديول الاستاذ @AlwaZeeR . بالنموذج والاستعلام DDTestSumModule.rar تم تعديل يونيو 4 بواسطه kkhalifa1960 1 رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يونيو 4 مشاركة قام بنشر يونيو 4 4 ساعات مضت, kkhalifa1960 said: تفضل استاذ @2saad طلبك مستخدماً موديول الاستاذ @AlwaZeeR . بالنموذج والاستعلام احسنت العمل صديقي خليفة👍 اجعل الوحدة: Public Function وامسح المكررة في النموذج لا نحتاج الا واحدة فقط للعمل في جميع اماكن القاعدة :: تحياتي رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يونيو 4 مشاركة قام بنشر يونيو 4 اجعل الوحدة: Public Function وامسح المكررة في النموذج لا نحتاج الا واحدة فقط للعمل في جميع اماكن القاعدة :: تحياتي DDTestSumModule.accdb رابط هذا التعليق شارك More sharing options...
2saad قام بنشر يونيو 4 الكاتب مشاركة قام بنشر يونيو 4 بارك الله فيكم جميعا وزادكم الله من علمه وجعله في ميزان حسناتكم علي ما تقدموه من جهد ومساعدة الآخرين أنا مرفق ملف بالمطلوب ووضعت وحدة نمطيه للمطلوب جمعه في ( module1 ) عايز اجمع ماهو موجود في qr1 في QRYsum1 زي ما أنا عامل للمسلم والمسيحي بناء علي الصفnader.rar .... انظر الصورة هو ده المطلوب تجميعه رابط هذا التعليق شارك More sharing options...
2saad قام بنشر يونيو 4 الكاتب مشاركة قام بنشر يونيو 4 ارجو المساعدة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان