مساعدة في الجمع

[عبدالقدوس48]

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

اريد مساعدة في جمع كل واحد على حدى في النموذج وشكرا

مثال.accdb

[Foksh]

الفكرة حالياً قد تكون صغيرة ، ولكن اذا توسعت فيها بعدد الاسماء يا صديقي سيكون الأمر طويلاً , على العموم تنفيذ الفكرة تفضل

 

مثال.accdb

[عبدالقدوس48]

ظهرت لي هذه الرسالة بعد فتح النموذج

[Foksh]

اخي الكريم أنشئ 3 مربعات نص واجعل اسمائهم كالتالي ( Text1 و Text2 و Text3 )

استخدم الكود التالي في حدث عند التحميل للنموذج

 

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim formName As String
    Dim totalSalary As Double
    
    strSQL = "SELECT [اسم العامل], SUM(راتب) AS مجموع_الرواتب FROM جدول1 GROUP BY [اسم العامل];"
    formName = Me.Name
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)
    Do While Not rs.EOF
        If rs![اسم العامل] = "محمد" Then
            Forms(formName).Controls("Text1").Value = rs!مجموع_الرواتب
        ElseIf rs![اسم العامل] = "علي" Then
            Forms(formName).Controls("Text2").Value = rs!مجموع_الرواتب
        ElseIf rs![اسم العامل] = "كمال" Then
            Forms(formName).Controls("Text3").Value = rs!مجموع_الرواتب
        End If
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

ونصيحة من أخوك ، ابتعد عن المسميات العربية في اسماء الحقول والكائنات ... الخ

[عبدالقدوس48]

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

[عبدالقدوس48]

نعم نجحت معي شكرا لك أخي

لو كان تجميع بالاسبوع او الشهر يعني بين تاريخين كيف

[Barna]

52 دقائق مضت, عبدالقدوس48 said:

لو كان تجميع بالاسبوع او الشهر يعني بين تاريخين كيف

جدولك ليس فيه تواريخ ؟؟؟؟

ولكن ماذا لو كانت الاسماء كثيرة ؟؟؟؟؟؟

مشاركة مع حبيبنا الاستاذ @Foksh

جرب هذه الطريقة !!!!!

 

 

مثال (5).accdb

[عبدالقدوس48]

شكرا لك أخي Barna وجزاك الله

[Foksh]

25 دقائق مضت, Barna said:

جدولك ليس فيه تواريخ ؟؟؟؟

ولكن ماذا لو كانت الاسماء كثيرة ؟؟؟؟؟؟

مشاركة مع حبيبنا الاستاذ @Foksh

جرب هذه الطريقة !!!!!

 

 

مثال (5).accdb 576 kB · 4 downloads

جزاك الله خيرا يا صديقي 🥰

هذا ما لمحت له في كلامي 

3 ساعات مضت, Foksh said:

ولكن اذا توسعت فيها بعدد الاسماء يا صديقي سيكون الأمر طويلاً

 

[kanory]

33 دقائق مضت, Foksh said:

هذا ما لمحت له في كلامي 

طيب ممكن نستخدم هذه الطريقة .... ولكن يبقى ايضا نقطة مربعات التسمية وعددها في النموذج ؟؟؟؟؟

    Dim db As Object
    Dim rst As DAO.Recordset
    Dim mySQL As String
    Dim i, m As Integer
    
    mySQL = "SELECT DISTINCT جدول1.[اسم العامل], DSum(""راتب"",""جدول1"",""[اسم العامل] ='"" & [اسم العامل] & ""'"") AS Expr1  FROM جدول1;"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst
    If Not rst.BOF Then rst.MoveFirst
        
     Dim ctl As Control
    For i = 1 To rst.RecordCount
        Me.Controls("a" & i).Caption = "مجموع" & " " & rst.Fields(0)
        Me.Controls("b" & i).Caption = rst.Fields(1)
        rst.MoveNext
    Next i
   
    rst.Close
    Set rst = Nothing

 

مثال (5).accdb

[Barna]

51 دقائق مضت, Foksh said:

هذا ما لمحت له في كلامي 

كلامك صحيح مئة بالمئة

15 دقائق مضت, kanory said:

ولكن يبقى ايضا نقطة مربعات التسمية وعددها في النموذج ؟؟؟؟؟

وفي النهاية لا يصح الا الصحيح

 

مثال (5).accdb

تم تعديل فبراير 29 بواسطه Barna

[Foksh]

28 دقائق مضت, kanory said:

طيب ممكن نستخدم هذه الطريقة .... ولكن يبقى ايضا نقطة مربعات التسمية وعددها في النموذج ؟؟؟؟؟

    Dim db As Object
    Dim rst As DAO.Recordset
    Dim mySQL As String
    Dim i, m As Integer
    
    mySQL = "SELECT DISTINCT جدول1.[اسم العامل], DSum(""راتب"",""جدول1"",""[اسم العامل] ='"" & [اسم العامل] & ""'"") AS Expr1  FROM جدول1;"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst
    If Not rst.BOF Then rst.MoveFirst
        
     Dim ctl As Control
    For i = 1 To rst.RecordCount
        Me.Controls("a" & i).Caption = "مجموع" & " " & rst.Fields(0)
        Me.Controls("b" & i).Caption = rst.Fields(1)
        rst.MoveNext
    Next i
   
    rst.Close
    Set rst = Nothing

 

مثال (5).accdb 528 kB · 1 download

نعم صحيح استاذ @kanory

بما النواتج ستخرج في مربعات نص فيجب ان نحددها بالإسم أو بمصفوفة متتالية text & i

15 دقائق مضت, Barna said:

كلامك صحيح مئة بالمئة

وفي النهاية لا يصح الا الصحيح

 

مثال (5).accdb 436 kB · 0 downloads

ابدعت استاذ @Barna

للإبداع حدود حدها الفضاء 🤝

[عبدالقدوس48]

مبع أخي جزاك الله خيرا