اجمالي الفاتورة في النموذج الرئيسي

[husseinharby]

السلام عليكم

في نموذج بأسم sale

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

في الخانات المخصصة لذلك في النموذج الرئيسي

بشرط ان تظل هذه الخانات منضمة الي النموذج

Desktop.rar

[أبوبسمله]

وعليكم السلام

اخى الفاضل هل هذا ما تريد؟

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

A_New Microsoft Access Database.accdb

[husseinharby]

شكرا استاذ احمد

لكن واجهني مشكلتين

اولا عندما اقوم بفتح سجل جديد او فاتورة جديدة تظهر رسالة خطأ المرفقة مع البرنامج

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

اهم نقطة تهمني في الموضوع ان يظهر الاجمالي فورا بعد ادخالي البيانات في النموذج الفرعي

وشكرا لاهتمامك وذوقك الرفيع

Downloads.rar

تم تعديل مارس 6, 2020 بواسطه husseinharby

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

اتفضل اخى الفاضل

لتلافى رساله الخطأ عند ادراج فاتوره جديده قمت بوضع 0 للقيمه الافتراضيه للحقل sale_id

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

Dim x, z As Variant
Dim rs As DAO.Recordset
'متيغر للفرعي و الرئيسي
x = Me.details_Subform!sale_id
z = sale_id
'تحديث
Me.Requery
Me.details_Subform.SetFocus
Me.details_Subform.Requery

'بحث
    Set rs = Me.RecordsetClone
    'عن السجل المطابق في النموذج الرئيسي
    rs.FindFirst "[sale_id]=" & z
    Me.Recordset.Bookmark = rs.Bookmark
        'التركيز للفرعي
Me.details_Subform.SetFocus
DoCmd.GoToRecord , , acLast
DoCmd.GoToRecord , , acNext
 'بحث عن اخر سجل كان الموشر عليه
DoCmd.FindRecord x, , , , , acCurrent

ثم فى حدث بعد التحديث وبعد تاكيد الحذف قمت بوضع الكود التالى لتشغيل الكود الاول

Call Form_sale.Form_LostFocus

ان شاء الله يكون ما طلبت ونسالكم الصلاه على معلم الامه جميعا سيدنا محمد صل الله عليه وسلم

والدعاء لى ولاخواننا واساتذتنا جزاهم الله خيرا

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

A_New Microsoft Access Database (1).accdb

تم تعديل مارس 6, 2020 بواسطه أحمد الفلاحجى

[husseinharby]

الصلاة والسلام علي سيدنا محمد 

بارك الله فيك

[أبوبسمله]

27 دقائق مضت, husseinharby said:

الصلاة والسلام علي سيدنا محمد 

بارك الله فيك

عليه افضل الصلاه والتسليم

وفيك بارك الله اخى

بالتوفيق ان شاء الله