ابا حفص

مثله لكن بشكل اكثر عمليه في انه يسدد الفارق الموجود في خانة المتبقي من الشيك ولا يعتمد علي ادخال المدخل للقيم .. نموذج رئيسي فيه بيانات الشيك ونموذج فرعي فيه المطالبات المطلوب سدادها اعمل تشيك بوكس امام كل مطالبه مثل المثال اللي حضرتك مرفقه حاطط زر ( تسديد ) وبعد التحديث ينظر الي قيمة المطالبه اذا كان الشيك اكبر منها يسددها واذا كانت اقل يسدد جزء منها واذا انتهت قيمة الشيك يظهر رساله ان الشيك انتهت قيمته

السلام عليكم جميعا .. كنت اسال عن كيفية توزيع قيمة الشيك علي مطالبات العميل بحيث ان لا تتجاوز قيمة السداد قيمة الشيك وفي حين ان قيمة الشيك اقل من قيمة المطالبة يسدد جزء منها كما هو موجود في اوراكل .. حاولت ان اعمل نموذج رئيسي للشيك وبيانته ثم نموذذج فرعي للمطالبات .. عملت تشك بوكس للسداد وربطت به الكود المرفق في حدث بعد التحديث لكن للاسف يقوم الجهاز بسداد قيمة اكبر من قيمة الشيك .. ارجو من الزملاء الاساتذه مراجعة الكود واعطائي ملاحظاتهم وتصحيحهم ان كان ذلك ممكنا Private Sub ALL_AfterUpdate() Dim ch_val As Double Dim clm_val As Double Dim rem_val As Double Dim clm_total_pay As Double //عرفت حقل قيمة الشيك بالاسم ch_val ch_val = Forms!SubformBasedOnQuery5![CLAIM subform]!Text47 // عرفت حقل قيمة المطالبة بالاسم CLMVAL clm_val = Forms!SubformBasedOnQuery5![CLAIM subform]!CLMVAL //حقل Text31 هو حقل غير منضم جعلت فيه اجمالي ما يتم سدادة من المطالبات clm_total_pay = Forms!SubformBasedOnQuery5![CLAIM subform]!Text31 // هنا جعلت الباقي من قيمة الشيك بعد خصم اجمالي ما تم دفعه rem_val = ch_val - clm_total_pay If [ALL] = True Then // لو كان قيمة المتبقي من الشيك اكبر من قيمة المطالبة فسدد المطالبه وقم بتسجيل قيمة الشيك ورقمه واتاريخه If ch_val >= clm_val Then Refresh Me!restof_ch.SetFocus DoCmd.RefreshRecord Me.Recalc [Forms]![SubformBasedOnQuery5]![CLAIM subform]![CHECK NO] = [Forms]![SubformBasedOnQuery5]![رقم الشيك] [Forms]![SubformBasedOnQuery5]![CLAIM subform]![Text35] = [Forms]![SubformBasedOnQuery5]![تاريخ ورود الشيك] [Forms]![SubformBasedOnQuery5]![CLAIM subform]![PAYVAL] = [Forms]![SubformBasedOnQuery5]![CLAIM subform]![CLMVAL] [Forms]![SubformBasedOnQuery5]![CLAIM subform]![CHECK VAL] = [Forms]![SubformBasedOnQuery5]![v1] '[Forms]![SubformBasedOnQuery5]!Text20 = ch_val - clm_val Refresh Else // لو كان قيمة الشيك المتبقية تساوي صفر فاعطني الرساله ثم الغي علامة الصح من امام سداد الشيك If rem_val = 0 Then MsgBox "لا يمكن سداد المطالبة قيمة الشيك انتهت" [ALL] = False [Forms]![SubformBasedOnQuery5]![تم السداد بالكامل] = True DoCmd.GoToRecord acDataForm, "SubformBasedOnQuery5", acNext Else // لو كان قيمة المتبقي من الشيك اقل من قيمة المطالبه Me!restof_ch.SetFocus DoCmd.RefreshRecord Me.Recalc MsgBox "قيمة الشيك لا تكفي المطالبة بالكامل سيتم سداد جزء منها" 'Forms!SubformBasedOnQuery5![CLAIM subform]!Text47 - Forms!SubformBasedOnQuery5![CLAIM subform]!Text31 [Forms]![SubformBasedOnQuery5]![CLAIM subform]![CHECK NO] = [Forms]![SubformBasedOnQuery5]![رقم الشيك] [Forms]![SubformBasedOnQuery5]![CLAIM subform]![Text35] = [Forms]![SubformBasedOnQuery5]![تاريخ ورود الشيك] [Forms]![SubformBasedOnQuery5]![CLAIM subform]![CHECK VAL] = [Forms]![SubformBasedOnQuery5]![v1] Forms!SubformBasedOnQuery5![CLAIM subform]!PAYVAL = rem_val '[Forms]![SubformBasedOnQuery5]!Text20 = rem_val [Forms]![SubformBasedOnQuery5]![تم السداد بالكامل] = True DoCmd.GoToRecord acDataForm, "SubformBasedOnQuery5", acNext End If End If Refresh Else Forms!SubformBasedOnQuery5![CLAIM subform]![CHECK NO] = "" [Forms]![SubformBasedOnQuery5]![CLAIM subform]![Text35] = "" [Forms]![SubformBasedOnQuery5]![CLAIM subform]![PAYVAL] = "0.00" [Forms]![SubformBasedOnQuery5]![CLAIM subform]![CHECK VAL] = "0.00" '[Forms]![SubformBasedOnQuery5]!Text20 = rem_val [Forms]![SubformBasedOnQuery5]![تم السداد بالكامل] = False Refresh End If '[Forms]![SubformBasedOnQuery5]!Text20 = [Forms]![SubformBasedOnQuery5]![CLAIM subform]!restof_ch End Sub

هل من الممكن اضافة اكتر من متغير يعني احنا اخدنا PRID و تاريخ المعاينه هل من الممكن اضافة المزيد من المتغيرات

النتيجة رائعه وممتازه ... جزاك الله خير يا سيدي الفاضل اسمح لي سيدي الفاضل AlwaZeeR بعد الشكر ان اطلب من حضرتك ان كان لدي حضرتك وقت : ان تشرح لي ماذا فعلت لكي اتعلم مستقبلا ان تشير الي مصادر لاتعلم كيف ماهي لغة البرمجه المستخدمه في المديول

ممتازة بارك الله فيك لكني لا اريدها في شكل سطور منفصله كما الصورة الثانيه .. اريدها في متتاليه وتفصل بينها , كما الصورة الاولي .. حاولت اصلاحها لكن لم استطع

code الصورة الاولي - هي للاستعلام الاول الاساسي اللي اريد تجميع الخليه المسماه ... في خليه واحده code صورة الثانيه - هي نتيجة الداله وتجميع الخليه طبقا لمتغير PRID الصورة الثالثه - هي ما اريد ولكن النتايج المظلله هي نتائج خاطئة لا اريد وجودها اريد اضافة متغير اخر مع المتغير الموجود لفلترة النتائج طبقا للتاريخ

حاولت اضافة متغير اخر لكن ظهرلتي رسالة الخطا هذه

https://www.officena.net/ib/topic/36136-تمت-الاجابة-تجميع-حقول-سجلات-في-سجل-واحد/ هذا هو الموضوع اللذي اشير اليه ومرفق لسيادتكم المديول في مثال في Query2 يتم التجميع طبقا لمتغير واحد فقط وهو رقم المشروع او ( PRID ) في Query3 من المفترض ان يتم التجميع طبقا لمتغييرين اتنين وهو ما اريد اضافته ( PRID ) و (تاريخ المعاينه ) ) Horizontal.rar

Horizontal منذ فتره قام احد الافاضل ( منتصر الانسي ) بشرح هذا الكود كما هوا مرفق وهو خاص بتجميع عدد من السجلات في سجل واحد .. وكنت اود التعديل عليه بادراج اكثر من متغير للدالة Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) هذا سطر تعريف الدالة ومتغيراتها والتي تتمثل في اسم الجدول او الاستعلام , اسم الحقل المراد التجميع بحسبه , اسم الحقل الذي سيتم تجميعه , اسم الحقل الذي سيرتبط به حقل التجميع (وأعتقدانه يمكن فهمها اكثر من واقع المثال) Dim DB As Database, rs As Recordset Set DB = CurrentDb هنا يتم تعريف متغيرين الأول من نوع Database أي قاعدة بيانات (وجعلناها قاعدة البيانات الحالية التي نعمل بها) والثاني rs من نوع Recordset وهذا النوع من المتغيرات وبشكل مبسط يمكن تعريفه كأنه جدول أو إستعلام Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) هنا اسندنا للمتغير rs جملة SQL التي تمثل مصدر بياناته Do If rs.AbsolutePosition = rs.BOF Then هذه بداية الحلقة التكرارية التي ستتنقل بين سجلات الـ Recordset ثم تقوم جملة IF هنا بإختبار ما إذا كان موقع السجل الحالي (AbsolutePosition) في بداية (BOF) الـ Recordset Horizontal = rs(Feld2) عندها يجعل النتيجة تمثل قيمة الحقل المجمع Else Horizontal = Horizontal & ", " & rs(Feld2) End If وإلا تكون النتيجة هي قيم الحقل المجمع في السجلات السابقة مضافاً اليها الفاصلة (ويمكن تعديلها بما تشاء) ثم قيمة الحقل المجمع للسجل الحالي rs.MoveNext الإنتقال للسجل التالي Loop Until rs.EOF إختبار ما إذا وصلت الحلقة التكرارية إلى آخر سجل (EOF) في الـ Recordset rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function عندها يتم إغلاق الـ Recordset و الـ DB وتصفية الذاكرة من أي قيم محفوظة فيها وإنهاء الدالة

جزاك الله خيرا استاذنا .. كيف يمكنني اضافة اكتر من متغير .. بمعني اريد اضافة اكتر من شرط للتجميع

هل من الممكن اضافه متغير اضافي ... بمعني لو اردت اضافه تايخ اخر او رقم اخر كيف ممكن الاضافه للمديول

اشكرك شكرا جزيلا ... فعلا الحل سهل موفق دائما شكرا جزيلا لاهتمامك

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

مشكور علي الاهتمام مرفق الملف المطلوب به استعلام اريد ان اجعل الراتب الاساسي كل عام مضاف اليه 10 % بشكل تراكمي عام 2019 كان اساسي الراتب 1200 دولار فاريد ان يكون العام التالي 2020 الراتب الاساسي 1320دولار والعام التالي له 2021 يكون 1452 دولار وهكذا حتي انتهاء الخمس سنوات salary.accdb

المطلوب هو دالة او معالجه لعمل القيم تراكميه .. للاسف لم افهم المثال المضروب او علاقته بما اطلب