طريقة جعل المبلغ الاجمالي يأخذ قيمة افتراضية من حقل ويتناقص تدريجيا حسب الدفعات

[عبد اللطيف سلوم]

بسم الله والصلاة والسلام على رسول الله

احبتي خبراء الاكسس الافاضل 

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

** مرفق صورة  ** مرفق قاعدة البيانات 

 

وصف المشكلة .....  عندما اقوم بكتابة المبلغ الاجمالي يدويا .......  ما في مشكلة

والدفعه الجديدة اقوم بكتابة المبلغ الاجمالي الذي نتج عن الدفعه السابقة وهو (الباقي )

هل هناك طريقة بدل يدويا ان تكون اوتوماتيك ؟؟

اتمنى ان تكون الفكرة وصلت 

واتمنى مساعدة عاجلة حسب وقت فراغكم 

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

student_school1.rar

[عبد اللطيف سلوم]

انا بعرف انه صعب ويحتاج الى خبير بوزن صديقي @Shivan Rekany

 

[عبد اللطيف سلوم]

رفع 

[عبد اللطيف سلوم]

السلام عليكم 

جمعه مباركة 

حبيت هذا المنتدى وتعلق به 

لكن تجاهلكم لطلبات الاعضاء يدفعنا للبحث عن حلول في منتدى اخر

وقتنا ثمين وانتظار 18 ساعة على حل معضلة لا تأخذ 5 دقائق من وقت خبير  يستفزنا !!!

سامحوني على هذا التعليق 

 

( صاحب الحاجة ارعن ) 

 

 

[Shivan Rekany]

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

لكن تجاهلكم لطلبات الاعضاء

اھلا بك من جديد ... نحن لا نتجاهل طلبات اي اعضاء ... لكن كلنا يعمل الردود حسب وقته

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

يدفعنا للبحث عن حلول في منتدى اخر

يعني لا يحتاج نحن نرد على الموضوع لانك وصلت للمطلوب صحيح ؟

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

وقتنا ثمين

وما رأيك عن وقتنا ؟

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

سامحوني على هذا التعليق

سامحك الله
اتفضل انا استخدمت هذه الاكواد لمطلبك

هذا الكود هو بيعطيك مطلبك

Private Sub Form_Current()
    If Me.Recordset.RecordCount = 0 Then
            Me.الاجمالي.DefaultValue = Nz(Form_student.Total, 0)
        Else
            Me.الاجمالي.DefaultValue = Form_student.Total - Nz(DSum("[دفع]", "Money", "[رقم الطالب]=" & Form_student.المعرف), 0)
    End If           
End Sub

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

Private Sub دفع_AfterUpdate()
    DoCmd.RunCommand acCmdSaveRecord
    Call Form_Current
End Sub

واستخدمت هذا اذا حذفت سجل ... 
 

Private Sub Form_AfterDelConfirm(Status As Integer)
    Call Form_Current
End Sub

اتفضل مع القاعدة
 

student_school1.rar

[عبد اللطيف سلوم]

29 دقائق مضت, Shivan Rekany said:

اھلا بك من جديد ... نحن لا نتجاهل طلبات اي اعضاء ... لكن كلنا يعمل الردود حسب وقته

يعني لا يحتاج نحن نرد على الموضوع لانك وصلت للمطلوب صحيح ؟

وما رأيك عن وقتنا ؟

سامحك الله
اتفضل انا استخدمت هذه الاكواد لمطلبك

هذا الكود هو بيعطيك مطلبك

Private Sub Form_Current()
    If Me.Recordset.RecordCount = 0 Then
            Me.الاجمالي.DefaultValue = Nz(Form_student.Total, 0)
        Else
            Me.الاجمالي.DefaultValue = Form_student.Total - Nz(DSum("[دفع]", "Money", "[رقم الطالب]=" & Form_student.المعرف), 0)
    End If           
End Sub

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

Private Sub دفع_AfterUpdate()
    DoCmd.RunCommand acCmdSaveRecord
    Call Form_Current
End Sub

واستخدمت هذا اذا حذفت سجل ... 
 

Private Sub Form_AfterDelConfirm(Status As Integer)
    Call Form_Current
End Sub

اتفضل مع القاعدة
 

student_school1.rar

اشكرك اخي الكريم @Shivan Rekany

واعتذر عما بدر مني
وشكركم على سعة صدوركم وعلى جهودكم الجبارة ووقتكم الثمين لتقديم المساعدة للاعداء 

 

جعله الله في ميزان حسناتكم 

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

 

دمتم بخير  وجمعه مباركة عليكم 

[Shivan Rekany]

18 دقائق مضت, Salloum_soft said:

اشكرك اخي الكريم @Shivan Rekany

واعتذر عما بدر مني
وشكركم على سعة صدوركم وعلى جهودكم الجبارة ووقتكم الثمين لتقديم المساعدة للاعداء 

 

جعله الله في ميزان حسناتكم 

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

 

دمتم بخير  وجمعه مباركة عليكم 

يعني وصلت الى النتيجة المطلوبة
اذا نعم اعمل علامة صح امام الجواب الصحيح
تحياتي

[عبد اللطيف سلوم]

1 دقيقه مضت, Shivan Rekany said:

يعني وصلت الى النتيجة المطلوبة
اذا نعم اعمل علامة صح امام الجواب الصحيح
تحياتي

كيف اضع علامة صح ؟؟ ووين ؟؟ مش عارف

[عبد اللطيف سلوم]

اخي العزيز @Shivan Rekany

ما زبطت معي 

 

كوني غيرت بتفاصيل قاعدة البيانات 

بدي اغلبك معي

رح ارفع قاعدة البيانات الجديدة 

حاولت تطبيق الكود عليها ما زبط

 

 

salloum.rar

[Shivan Rekany]

منذ ساعه, Salloum_soft said:

حاولت تطبيق الكود عليها ما زبط

اتفضل

 

salloum.rar

[عبد اللطيف سلوم]

8 دقائق مضت, Shivan Rekany said:

فيها خطأ اخي الكريم 

شاهد الصورة المرفقة

 

 

 

[Shivan Rekany]

السبب یرجع لانی استخدمت فی المعرف فی الکود لکن فی نموذجک الفرعی لا یکتب المعرف
وانا لا استخدم الاسم لان ھناک احتمال التکرار فی الاسم
اتفضل الیک ربط بين النموذج الفرعي و الرئيسي بالمعرف و الاسم معا
 

salloum.rar

[عبد اللطيف سلوم]

منذ ساعه, Shivan Rekany said:

السبب یرجع لانی استخدمت فی المعرف فی الکود لکن فی نموذجک الفرعی لا یکتب المعرف
وانا لا استخدم الاسم لان ھناک احتمال التکرار فی الاسم
اتفضل الیک ربط بين النموذج الفرعي و الرئيسي بالمعرف و الاسم معا
 

salloum.rar

اشكرك يا امير 

تم حل المشكلة 

 

[عبد اللطيف سلوم]

لا اله الا الله

رجعت نفس المشكلة

اول سجل صحيح

لما ادخل طالب جديد يعطي قراءة السجل السابق

انا غلبتك معي اخي @Shivan Rekany   يبدو ان الموضوع معقد

 

جرب اعمل سجل جديد ........... رح تكتشف الخطا

[Shivan Rekany]

12 دقائق مضت, Salloum_soft said:

جرب اعمل سجل جديد ........... رح تكتشف الخطا

اتفضل تم الحل المشكلة

4 ساعات مضت, Salloum_soft said:

كيف اضع علامة صح ؟؟ ووين ؟؟ مش عارف

في يمين اسمي بها رقم صفر شوف اي جوا هو اصح اعمل علامة صح امامه

salloum.rar

تم تعديل نوفمبر 3, 2017 بواسطه Shivan Rekany

[عبد اللطيف سلوم]

جاري التجربة

4 دقائق مضت, Shivan Rekany said:

اتفضل تم الحل المشكلة

 

 

نفس المشكلة يا صاحبي

اول نتيجة تطلع غلط 

وبعد هيك يشتغل صح

يمكن يحتاج تحديث انموذج ؟؟

ما بعرف 

[Shivan Rekany]

13 دقائق مضت, Salloum_soft said:

نفس المشكلة يا صاحبي

اول نتيجة تطلع غلط 

وبعد هيك يشتغل صح

يمكن يحتاج تحديث انموذج ؟؟

ما بعرف 

لیس ھناک ای خطأ

[عبد اللطيف سلوم]

6 دقائق مضت, Shivan Rekany said:

لیس ھناک ای خطأ

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

 

وبدون زر التحديث المبلغ ما ينزل 

 

ما بعرف السبب يمكن انا استخدم اكسس 2010 لغة عربية 

 

[عبد اللطيف سلوم]

الحمد لله الامور تمام 

 

اشكرك من اعماق قلبي اخي @Shivan Rekany

واشكر القائمين على هذا المنتدى الرائع المبارك 

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