اذهب الي المحتوي
أوفيسنا

كيفية جمع قيمه اكثر من حقل ب استعلام


moham_q

الردود الموصى بها

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

في حقل جديد

MySum: [اسم الحقل الأول]+[اسم الحقل الثاني]+[اسم الحقل الثالث]+[اسم الحقل الرابع]

 

حيث mySum دا عنوان الحقل الجديد الذي تريده للجمع

رابط هذا التعليق
شارك

1 دقيقه مضت, علي المصري said:

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

في حقل جديد


MySum: [اسم الحقل الأول]+[اسم الحقل الثاني]+[اسم الحقل الثالث]+[اسم الحقل الرابع]

 

حيث mySum دا عنوان الحقل الجديد الذي تريده للجمع

 

رابط هذا التعليق
شارك

الاخ علي هذا الملف يحوي حقول للرواتب لاشهر سنة 2015 وسنة 2014 لموظفين ومنهم لديه راتب ومنهم تم الحجب عنه لعدة اسباب الذي احتاجه هو مجموع الرواتب لكل قيد من اول حقل لاخر حقل ويتم وضعه في حقل جديد ... خالص الشكر والتقدير

salary2015+2014.rar

رابط هذا التعليق
شارك

وعليكم السلام :rol:

 

هناك طريقة افضل لحفظ سجلاتك في الجدول ، فطريقتك مأخوذة من الاكسل مثلا ، وليست صحيحة لقواعد البيانات :blink:

262.Clipboard01.jpg.70f1f84920f171851043

.

عملت لك جدول جديد ، وجلبت لك البيانات اليه:

262.Clipboard02.jpg.b1846a84bcc6f1cec441

.

والبيانات:

262.Clipboard03.jpg.faca6469c7e9c3923393

.

وعليه ، عملت عدد 2 استعلام جدولي ، واحد شامل لكل السنوات:

262.Clipboard05.jpg.5401d1af77db8f64a876

.

ونتائجه:

262.Clipboard06.jpg.b8f0aebef0caccfc097c

.

واستعلام سنوي (يعني استخدم خاصية التصفية) ، لكل سنة على حدة:

262.Clipboard08.jpg.38f58714c34cb28c7d68

.

والنتيجة:

262.Clipboard09.jpg.4486df9fb5b0f2416a6e

.

 

جعفر

 

 

262.salary2015+2014.accdb.zip

  • Like 3
رابط هذا التعليق
شارك

السبب الذي قلت ان جدولك ليس صحيحا لقاعدة البيانات ، هو انك يجب ان تضيف حقل جديد كل شهر ،

فالطريقة الصحيحة لعمل الجداول هو اضافة سجلات وليس اضافة حقول :blink:

 

وهناك مثل مشهور في قواعد البيانات يقول : الحقول غالية والسجلات رخيصة :rol:

 

اما اذا تريد تمشي حالك الان بالجدول الموجود ، ومجرد تريد ان تجمع قيم جميع الحقول ،

اعمل استعلام فيه جميع الاسماء ، وننادي منه الدالة Add_Salaries والتي عملناها في الوحدة النمطية ، ونرسل معها اسم الشخص:

262.Clipboard010.jpg.fe9ede9d4c0168bd820

.

وهذا كود الدالة Add_Salaries:


Function Add_Salaries(F As String) As Double

    'F = Full Name
    
    Dim rst As DAO.Recordset
    Dim fld As Field
    
    'get this Name Record from the table
    Set rst = CurrentDb.OpenRecordset("Select * From [salary2015+2014] Where Full_Name='" & F & "'")
    
    T = 0   'initial Total
    
    'loop through the fields
    For Each fld In rst.Fields
    
        'Debug.Print fld.Name & vbTab & fld.Value
        
        'skip the Full_Name field name
        If fld.Name <> "Full_Name" Then
            'add the field values
            T = T + fld.Value
        End If
        
    Next fld
    
    'now send this Total to the query
    Add_Salaries = T
    
End Function

.

حيث اننا في الدالة نطلب سجل الشخص من الجدول salary2015+2014 ،

ثم نقول بقراءة الحقول وجمعها ،

زنرسل النتيجة الى الاستعلام ، فتصبح نتيجة الاستعلام:

262.Clipboard11.jpg.b21642f93f34655be8e2

.

 

جعفر

 

262.salary2015+2014.accdb.zip

تم تعديل بواسطه jjafferr
  • Like 3
رابط هذا التعليق
شارك

الاخ العزيز جعفر اشكرك على اجابتك الرائعة ومجهودك الكبير في تقديم الحل وهو ماكنت احتاجه فعلا .... سلمت يداك وبارك الله فيك وبجميع الاعضاء في المنتدى ... تحياتي لك

تم تعديل بواسطه mohammed_hq
رابط هذا التعليق
شارك

  • 4 years later...

وعليكم السلام اخي ابراهيم 🙂

 

اهلا وسهلا بك في المنتدى 🙂

رجاء عدم الرد في المواضيع القديمة ، فقد لا تحصل على رد ، وانما اعمل موضوع جديد لسؤالك ، وارفق رابط الموضوع لطرح طلبك 🙂

 

ردا على سؤالك ، تفضل هذا الرابط :

 

 

 

جعفر

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information