في التقرير مطلوب حقل يظهر فيه قيم مختلفة من حقول أخرى

[ابوخليل]

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

في المرفق جدول وتقرير

الجدول يشتمل على رقم معرف وثلاث حقول أخرى رقمية مختلفة

التقرير يشتمل على حقل المعرف وحقل للقيمة

المطلوب اظهار قيم الحقول في التقرير بأسهل طريقة ممكنة

لا اريد استخدام استعلام التوحيد

لان الحقول كثيرة جدا في التقرير

 

Db3.mdb

[jjafferr]

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

 

اذا كنت تستخدم جدول واحد فقط ، فالاسهل ان تجمع هذه الحقول في الاستعلام مصدر بيانات التقرير ،

ممكن ان تجمعهم يدويا (اذا كان عدد الحقول قليل) ، وممكن جمعهم برمجيا اذا كانوا كثير 🙂

 

هذا الموضوع فيه الطريقتين: كيفية جمع قيمه اكثر من حقل ب استعلام - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

[ابوخليل]

شكرا لمرورك اخي جعفر

انا لا اريد الجمع .. اريد ان اعرض القيم تحت بعض كل قيمة في سجل ..  داخل الخلية نفسها

فلو انني عرضتها كما هي في الجدول لاحتجت الى 8 حقول (اعمدة) بجانب بعض

فالفكرة ان جميع الأعمدة نريد ان يتم عرضها من خلال خلية واحدة

[jjafferr]

اعتذر منك اخوي ابوخليل ، فهمي بطيء هذه الايام 😞

يا ريت بمثال في الاكسل او صورة علشان افهم 🙂

 

جعفر

[ابوخليل]

الآن البيانات في الجدول هكذا :

اريدها تظهر في التقرير هكذا :

[jjafferr]

هممم

انت تنظر لها: تريد الحقل اللي فيه المبلغ فقط ، مثلا السجل الاول = 6093.69 ،

وانا انظر لها: نجمع الحقول (وليس نعرضهم جنب بعض) ،  مثلا السجل الاول = 6093.69 +0 +0 = 6093.69 ،

والنتيجة ، الطريقتين تعطي نفس النتيجة 🙂

 

هل كلامي صحيح ؟

[ابوخليل]

انا اريد العرض اليومي بالمدخلات

اريدها بتقرير بسيط  باقل عدد من الحقول

 

آه يبدو اني فهمت وجهة نظرك

صح .. 

ما شاء الله عليك 

[jjafferr]

تفضل 🙂
 

في الاستعلام ، ننادي الدالة Add_Fields ، ونرسل لها رقم المعرف id :

.
 

وهذه هي دالة جمع بيانات حقول السجل الواحد :

Function Add_Fields(id As Long) As Double

    
    Dim rst As DAO.Recordset
    Dim fld As Field
    Dim T As Double
    
    'get this Name Record from the table
    Set rst = CurrentDb.OpenRecordset("Select * From [tblAmlyat] Where [id]= " & id)
    
    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 <> "id" Then
            'add the field values
            T = T + fld.Value
        End If
        
    Next fld
    
    'now send this Total to the query
    Add_Fields = T
    
    'clear memory
    rst.Close: Set rst = Nothing
    
End Function

 

جعفر

1382.Db3.mdb.zip

[SEMO.Pa3x]

9 دقائق مضت, jjafferr said:

تفضل 🙂

1382.Db3.mdb.zip 45.44 kB · 0 downloads

 

من الأفضل لكل شخص مبتدئ مثلي ان يقوم بتخزين جميع ما تكتبه من حلول وإجابات في ردودك 

لكي تكون مرجع أساسي في برمجة الأكسس 

تم تعديل يونيو 2, 2021 بواسطه SEMO.Pa3x

[jjafferr]

منذ ساعه, SEMO.Pa3x said:

من الأفضل لكل شخص مبتدئ مثلي

بسم الله عليك يا دكتور حسنين ، لا يكون صاير عندك انفصام في الشخصية 🙂

انتم النهر ، وانما انا شربة ماء فقط 🙂

 

جعفر

[ابوخليل]

حقيقة الحل جميل وهو اسهل طريق لتطبيق الفكرة

ولكن واجهت مشكلة منطقية وهي ان بعض السجلات تحتوي على اكثر من قيمة مثلا :

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

وحسب فكرة التجميع سوف يتم جمع قيمة الشراء الاساسية مع المدفوع وهذا خطأ

للعلم ان التقرير يعرض قائمة كاملة بجميع البنود : المشتريات/المصروفات/المدفوع كتسديد آجل/المبيعات / المرتجعات / وبنود اخرى تخص هذا المتجر

فلو اضطررت لتطبق هذا الحل فانا مضطر ايضا لتقسيم التقرير

وكما ذكرت في مشاركتي السابقة ان التقرير عبارة عن كشف مفصل للحركات اليومية

[jjafferr]

3 ساعات مضت, ابوخليل said:

ولكن واجهت مشكلة منطقية

ما عليه ، محتاج مثال لوسمحت بالبيانات اللي تتكلم عنها ، وبالطريقة اللي تريد التقرير 🙂

 

جعفر

[kha9009lid]

اعتقد يمكن التعديل على السطر

If fld.Name <> "id"  Then

باضة الحقول التي لاتدخل في التجميع

[أبو عبدالله الحلوانى]

5 ساعات مضت, ابوخليل said:

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

 

5 ساعات مضت, ابوخليل said:

وحسب فكرة التجميع سوف يتم جمع قيمة الشراء الاساسية مع المدفوع وهذا خطأ

حسب فهمي ان كان التجميع رأسيا علي مستوي كامل العمود فلن يحدث مشكلة فكل عمود يجمع بيانات موحدة فعمود الشراء سيكون به قيم المشتريات فحسب وهكذا - اللهم الا ان كان التجميع افقيا علي مستوي الصف ففي هذه الحالة كما ذكر أستاذنا خالد يمكن التعديل علي شرط اسم الحقل لاستبعاد او حتي خصم قيم حقول معينة وأعتقد أن هذا لن يكون صعبا عليكم.

مثال:

' a = مشتريات
' b = مدفوعات
' c = مصروفات
' d = مرتجع مشتريات
' e = مبيعات
' f = مرتجع مبيعات

	If fld.Name <> "id" Then
            'add the field values
            T =IIf(fld.Name= a, (T + fld.Value),IIf(fld.Name=b,(T - fld.Value),IIf(fld.Name=C,(T - fld.Value), _
			IIf(fld.Name=d,(T + fld.Value),IIf(fld.Name=e,(T + fld.Value),(T - fld.Value))))))
        End If

ولا ازعم ان قد فهمت المطلوب بشكل كافي ولكن محاولة من طويلب علم بمدرستكم لتطبيق ما تعلم منكم من قبل (فهذه بضاعتكم ردت اليكم) 

وجزاكم الله خيرا 

[ابوخليل]

شكرا لكم جميعا احبتي كل واحد باسمه

اعتقد ان المسألة لا حل لها سوى تجاوز احد الاعمدة ، واخراجه في تقرير يخصه

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

هنا كما تشاهدون في الصورة  المشتريات والمدفوعات ضمن سجل واحد ، وبما ان المدفوعات اشمل حيث يدخل ضمنها أشياء تدفع لأغراض شتى فسوف يتم اعتماده 

فالحل الذي اعتمدته هو ان افرد للمشتريات تقرير يخصها

[jjafferr]

4 ساعات مضت, ابوخليل said:

لا حل لها سوى تجاوز احد الاعمدة ،

....

فالحل الذي اعتمدته هو ان افرد للمشتريات تقرير يخصها

اعتقد الحل هو بإضافة عمود خاص للمشتريات في الاستعلام ، ولا يدخل هذا العمود في الجمع ، انظر ملاحظة اخونا خالد اعلاه ، واضف اسم العمود في السطر المُشار اليه :

If fld.Name <> "id" or fld.Name <> "المشتريات" Then

هكذا يصبح عندك 4 اعمدة في الاستعلام/التقرير:

المعرف ، المشتريات ، مجموع بقية الحقول ، المجموع العام (=المشتريات + مجموع بقية الحقول) 🙂

 

جعفر

[ابوخليل]

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

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

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

[jjafferr]

يا هلا ومرحبا 🙂

 

جعفر