اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Safa
إذهب إلى أفضل إجابة Solved by ابوخليل,

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

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

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

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

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

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

الرصيد.accdb

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

  • أفضل إجابة

عليكم السلام

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

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

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

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

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

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

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

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

 

الرصيد.accdb

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

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

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

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

 

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


جعفر

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

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

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

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

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

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:

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information