تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب كود خاص بجمع مجاميع
#1
طلب كود خاص بجمع مجاميع الباب حسب الصفوف المتشابه في الفليكس غريد   حسب المثال المرفق


الملفات المرفقة
.rar   n.rec.rar (الحجم : 88.59 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة:
#2
(17-04-21, 07:26 PM)abde6726 كتب : طلب كود خاص بجمع مجاميع الباب حسب الصفوف المتشابه في الفليكس غريد   حسب المثال المرفق

حاولت افتح الملف بس ما تمكنت 
كود التجميع : 
PHP كود :
Dim Sql As String
Sql 
"Select Sum(Col1) As Sum From TB_Name GROUP BY Col2"
'The SUM() function returns the total sum of a numeric column. 
الرد
تم الشكر بواسطة:
#3
اخي الكريم عذرا لم استطع تحميل صورة البرنامج حت تتمكن من الاجابة
اليك الرابط https://k.top4top.io/p_1933veq2d1.jpg
الرد
تم الشكر بواسطة:
#4
(18-04-21, 03:03 AM)abde6726 كتب : اخي الكريم عذرا لم استطع تحميل صورة البرنامج حت تتمكن من الاجابة
اليك الرابط https://k.top4top.io/p_1933veq2d1.jpg

هاااا فهمت عليك
طيب اكتب لك الكود في الرد القادم ان شاء الله
ولا يهمك
الرد
تم الشكر بواسطة:
#5
انا عندي هذا الكود الذي يجمع الاعمدة في قاعدة البيانات
و انا اريد جمع مجاميع الصفوف المتشابه
و الكود:If RA.State = 1 Then RA.Close
Sql = "Select SUM(total) as Total from recettes where Num>= 1 and Num<=500"
RA.Open Sql, db, adOpenKeyset, adLockOptimistic
If RA.RecordCount > 0 Then
If Not IsNull(RA![total]) Then Text2.Text = RA![total] Else Text2.Text = ""
Else
Text2.Text = "0"
End If
الرد
تم الشكر بواسطة:
#6
(18-04-21, 03:03 AM)abde6726 كتب : اخي الكريم عذرا لم استطع تحميل صورة البرنامج حت تتمكن من الاجابة
اليك الرابط   https://k.top4top.io/p_1933veq2d1.jpg

(18-04-21, 03:11 AM)abde6726 كتب : انا عندي هذا الكود الذي يجمع الاعمدة في قاعدة البيانات
و انا اريد جمع مجاميع الصفوف المتشابه  
و الكود:If RA.State = 1 Then RA.Close
Sql = "Select SUM(total) as Total from recettes where Num>= 1 and Num<=500"
RA.Open Sql, db, adOpenKeyset, adLockOptimistic
If RA.RecordCount > 0 Then
  If Not IsNull(RA![total]) Then Text2.Text = RA![total] Else Text2.Text = ""
Else
  Text2.Text = "0"
End If

اخي الحبيب بناءً على الصورة قمت بكتابة هذا الكود 

PHP كود :
Private Sub Get_TotalBy_article()

Set Rs = New ADODB.Recordset

Dim XStr
YStr As String
XStr 
"1.01.1a"
YStr "1.01.1b"


Set Rs DB.Execute("Select Sum(total) As TotalSum From recettes Where [article] = '" Trim$(XStr) & "'")

If 
Rs.Recordcount 0 Then
TextX
.Text Rs!TotalSum
End 
If

Set Rs DB.Execute("Select Sum(total) As TotalSum From recettes Where [article] = '" Trim$(YStr) & "'")

If 
Rs.Recordcount 0 Then
TextY
.Text Rs!TotalSum
End 
If

End Sub 
الرد
تم الشكر بواسطة:
#7
اخي الكريم شكرا جزيلا
الرد
تم الشكر بواسطة:
#8
هذا في حالة وجود صفوف تحتوي على article يعطي المطلوب
اما اذا كانت الصفوف لا تحتوي على article فيطلع التنبيه التالي invalid use of nul
و عليه اريد لهذا الكود ان يعمل و يعطيني نتيجة 0


الملفات المرفقة
.rar   n.rec.rar (الحجم : 88.72 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة:
#9
سلام عليكم

عدل هذا الجزء من الكود هكذا اخي 

كود :
TextX.Text = IIf(rs!TotalSum <> "", rs!TotalSum, "")


بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة: abde6726
#10
اخي أحمد عبد العليم السلام عليكم لقد قمت بتعديل الكود حسب ماطلبت ............. شكرا جزبلا
الرد
تم الشكر بواسطة: ahmedabdelaliem


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن تقسيم صفوف MSFlexGrid الى مجاميع gonm64 3 664 21-06-20, 05:51 AM
آخر رد: Ahmed_Mansoor
  حساب مجاميع الحركات المالية هل يمكن مع فيجوال بيسك ؟ princeofislam 13 3,602 10-04-16, 10:01 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم