مساعده في نسخ قيمة الحقل السابق

[Safa]

السلام عليكم ..

محتاجة مساعدتكم في برنامجي .. اريد تحديث قيمة حقل في السجل الجديد بناءا على قيمة حقل في السجل السابق

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

الرصيد = المبلغ - ( باقي االتمويل + التمويل المضاف )

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

الرصيد.accdb

[ابوخليل]

عليكم السلام

مع ان تصميم الجدول سيء ويوجد عليه كثير من الملاحظات

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

فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة

ولو تم تضمين المسميات العربية لما تمكن احد من قراءة الكود بالصورة الصحيحة ، حيث ستختلط المسميات يمينا ويسارا 

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

الحل وحدة نمطية ترجع بآخر قيمة من الرصيد بالاعتماد على اعلى رقم في مفتاح الجدول

ثم نضع هذه الدالة في القيمة الافتراضية لحقل الباقي من التمويل

Public Function rsdsabq()
Dim i As Integer
i = DMax("id", "tbl_tmweel")
rsdsabq = DLookup("raseed", "tbl_tmweel", "id=" & i)
End Function

 

الرصيد.accdb

[jjafferr]

23 دقائق مضت, ابوخليل said:

فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة

شكرا جزيلا اخوي ابو خليل 🙂

 

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


جعفر

[ابوخليل]

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

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

الملاحظة المهمة في المثال الاصل العلاقة الغير مفهومة بين الجدولين  لذا قمت بحذف الجدول ، حتى يتم اعادته على الوجه الصحيح

[Safa]

On 3/22/2021 at 9:59 PM, ابوخليل said:

عليكم السلام

مع ان تصميم الجدول سيء ويوجد عليه كثير من الملاحظات

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

فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة

ولو تم تضمين المسميات العربية لما تمكن احد من قراءة الكود بالصورة الصحيحة ، حيث ستختلط المسميات يمينا ويسارا 

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

الحل وحدة نمطية ترجع بآخر قيمة من الرصيد بالاعتماد على اعلى رقم في مفتاح الجدول

ثم نضع هذه الدالة في القيمة الافتراضية لحقل الباقي من التمويل

Public Function rsdsabq()
Dim i As Integer
i = DMax("id", "tbl_tmweel")
rsdsabq = DLookup("raseed", "tbl_tmweel", "id=" & i)
End Function

 

الرصيد.accdb 512 kB · 5 downloads

شكرا عالملاحظات وان شاء الله من الان فصاعدا رح اعمل بيها 

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

شكرا عالملاحظات وان شاء الله من الان فصاعدا رح اعمل بيها 

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

On 3/22/2021 at 10:32 PM, ابوخليل said:

الملاحظة المهمة في المثال الاصل العلاقة الغير مفهومة بين الجدولين  لذا قمت بحذف الجدول ، حتى يتم اعادته على الوجه الصحيح

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

وقد قمت بكتابه اسم الجدول والمسميات باللاتينية كما اخبرتني