اريد اضافه حقل استعلام في جدول معين

[checles]

السلام عليكم 

عندي جدول Saw و جدول Receiving_Bundle 

مشترك ما بينهم Block_NO 

اريد اعمل Slabs_in_Bundle في جدول SAW 

يظهر فيه اجمالي Slabs الي في جدول Receiving_Bundle

اكون شاكر لو حد سعدني 

وشكرا

 

 

 

Database.accdb

[ابوخليل]

1 ساعه مضت, checles said:

 

يظهر فيه اجمالي Slabs الي في جدول Receiving_Bundle

 

هل الاضافات في جدول Receiving_Bundle مستمرة ؟ اي متجددة .. على مستوى Block_NO الواحد

اذا نعم

انت بحاجة الى زر تحديث لتحديث الاجمالي بين فترة واخرى .. على الاقل يتم التحديث عند الرغبة في عرض التقرير

 

[checles]

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

شكرا لحضرتك لو ممكن الطريقه 

اكون شاكر

[ابوخليل]

تفضل هذا الاستعلام يقوم بالمهمة

يمكنك استخدامه كاستعلام صريح ظاهر  او كجملة sql في المحرر

UPDATE SAW SET SAW.Slabs_in_Bundle = Nz(DSum("Slabs","Receiving_Bundle","Block_NO='" & [Block_NO] & "'"),0);

 

[منتصر الانسي]

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

اريد اعمل Slabs_in_Bundle في جدول SAW 

اخي الكريم

من الممارسات الجيدة عند تصميم قواعد البيانات العمل على تقليل حجم البيانات التي يتم تخزينها بقدر الإمكان فمثلاً لماذا نقوم بحفظ الاجمالي في الجدول وتضخيم حجم البيانات المحفوظة فيه ونحن بإمكاننا الحصول على نفس النتيجة بواسطة الإستعلامات

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

تحياتي

 

Database.accdb

[ابوخليل]

20 دقائق مضت, منتصر الانسي said:

اخي الكريم

من الممارسات الجيدة عند تصميم قواعد البيانات العمل على تقليل حجم البيانات التي يتم تخزينها بقدر الإمكان فمثلاً لماذا نقوم بحفظ الاجمالي في الجدول وتضخيم حجم البيانات المحفوظة فيه ونحن بإمكاننا الحصول على نفس النتيجة بواسطة الإستعلامات

 

تمام استاذنا

في اعمالي مثلا  جدول الاسماء ... سواء كانوا موظفين او عملاء او طلاب لا اعتمد على الجدول اطلاقا وانما يتم العمل من خلال استعلام صورة طبق الاصل .. لما يتميز به من صلاحيات وخصوصيات أولها استخدام الحجب بديلا للحذف .. وغيره من الخصائص العديدة

بالنسبة للسائل نسيت ان ارفع المرفق

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

DatabaseUp.rar

[kkhalifa1960]

مشاركة مع استاذي @ابوخليل تفضل استاذ @checlesمحاولتي .

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

Private Sub Form_Close()
    On Error GoTo ErrorHandler
    
    Dim db As Database
    Set db = CurrentDb
    
    ' تشغيل استعلام التحديث
    db.Execute "UPDATE SAW SET SAW.Slabs_in_Bundle = GetTotalSlabs(Block_NO) " & _
               "WHERE (((SAW.Block_NO) Is Not Null And (SAW.Block_NO)<>''))"
    
    MsgBox "تم تحديث Slabs_in_Bundle لجميع السجلات بنجاح!", vbInformation, "تحديث البيانات"
    
    Exit Sub
    
ErrorHandler:
    MsgBox "حدث خطأ أثناء التحديث: " & Err.Description, vbCritical, "خطأ"
End Sub

checles.rar

تم تعديل نوفمبر 17, 2025 بواسطه kkhalifa1960

[kkhalifa1960]

اعتذاري استاذ @منتصر الانسي لم انتبه لمداخلتك .

[منتصر الانسي]

لماذا الاعتذار أخي @kkhalifa1960 بالعكس فإثراء الموضوع بالافكار هي الغاية من المنتدى بحيث تكون الصورة كاملة امام السائل وهو من يقرر اي الإجابات التي تناسب عمله

[منتصر الانسي]

بعد اطلاعي على مرفقات الاخ @ابوخليل والاخ @kkhalifa1960 لاحظت أنكم إعتدمتم على النموذج للقيام بالتحديث ولكن ماذا لو تم الادخال عن طريق الجدول سيحدث خلل وهذا من احد اهم الاسباب التي تجعلنا لا نعتمد على الجداول في الاحتفاظ بالقيم المحتسبة

ولكن في هذه الحالة اعتقد أنه لو يتم الاعتماد على Data Macro الخاص بجدول Receiving_Bundle للقيام بعملية التجميع بعد تحديث السجل After Update سيكون افضل من الاعتماد على النموذج

 

[kkhalifa1960]

استاذ @منتصر الانسي راجع دالة التجميع المرفقه يمكن ما أخذت بالك منها مهما كان الادخال من نموذج أو على الجدول مباشرةً  !!!!

[منتصر الانسي]

1 دقيقه مضت, kkhalifa1960 said:

استاذ @منتصر الانسي راجع دالة التجميع المرفقه يمكن ما أخذت بالك منها مهما كان الادخال من نموذج أو على الجدول مباشرةً  !!!!

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

[kkhalifa1960]

ممكن تذكر كيف سيحدث الجدول من جدول آخر بدون استعلام تحديث سوا كان استعلام تحديث يدوي  أو استعلام من داخل حدث كما عند غلق نموذج الادخال أو أي نموذج آخر

[kkhalifa1960]

استاذ @checles تفضل المرفق بعد اضافة نموذج الادخال .

checles-1.rar

[ابوخليل]

3 ساعات مضت, منتصر الانسي said:

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

رغم عدم اتفاقي معك على ما تم تلوينه ، لأنه لا يتصور حدوثه

اعتقد كان قصدك ان يتم ادخال البيانات من نماذج اخرى غير نموذج التحديث

الا ان فكرتك الأساسية صحيحة لا غبار عليه .

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

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

الحقول المحسوبة والنتائج الأخرى مكانها الصحيح هو الاستعلام او التقرير

[checles]

لو ممكن حد يساعدني في الاستعلامات حيث يظهر اجمالي Slabs و M2 و Bundle_Number العدد وليس الاجمالي بشرط عند التكرار يحسبه واحد فقط

[منتصر الانسي]

18 ساعات مضت, kkhalifa1960 said:

ممكن تذكر كيف سيحدث الجدول من جدول آخر بدون استعلام تحديث سوا كان استعلام تحديث يدوي  أو استعلام من داخل حدث كما عند غلق نموذج الادخال أو أي نموذج آخر

مرفق لك المثال بعد استخدام ماكرو البيانات جرب تعديل حقلSlabs الي في جدول Receiving_Bundle وشاهد كيف ستتغير قيمة الحقل Slabs_in_Bundle في جدول SAW حيث يقوم ماكرو البيانات بما يشبه الـ Trigger في انظمة قواعد البيانات الكبيرة مثل Sql Server و Oracle وغيرها 

ولكن المشكلة الوحيدة هي ان هذا النوع من الماكرو لن يعمل الا مع اكسس 2010 ومابعده (صراحة غير متأكد من انه يعمل مع اكسس 2007) والاكيد انه لن يعمل مع ماقبل 2007

تحياتي 

Database.accdb