حذف جميع اصناف الفاتورة وعودة الكمية الى جدول الاصناف

[qathi]

السلام عليكم اساتذتي واخواني اعضاء منتدانا الرائع
اسأل الله لكم دوام الصحة والعافية

توضيح:

بعد ادراج العميل من النموذج الرئيسي InvoiceHT_F
وادراج الاصناف للنموذج الفرعي InvoiceHT_SubF

واردنا حذف جميع الاصناف دفعة واحدة بالضغط على زر حذف الفاتورة ( من النموذج الرئيسي InvoiceHT_F)

المطلوب : ( يتم ارجاع كمية كل صنف الى جدول ItemsT حسب رقم واسم الصنف ) - للاصناف الموجودة في النموذج الفرعي InvoiceHT_SubF

 

ملاحضة:
جدول الاصناف ItemsT
جدول رئيسي للفاتورة InvoiceHT
جدول فرعي للفاتورة InvoiceTT
جدول العملاء CustomersT

شاكرا لكم على كل ماتقدموه لنا من وقتكم وجهدكم الثمين

مرفق الملف للتعديل علية:

InvoiceSale_9.rar

[ازهر عبد العزيز]

اخي qathi عذرا لكن اين الاستعلامات في برنامجك فالاستعلامات هي افضل شئ في الاكسس عملت لك استعلام بسيط  تستطيع معرفة الكمية المتوفره من خلالة من دون ان تقوم بانقاص الكمية في القائمة ولاني لا افهم طريقة عمل برنامجك عليك ان تستفيد من الحقل Expr1 في الاستعلام في برنامجك لمعرفة كمية الكتب المتوفرة فقط اضف هذا الحقل الى القائمة وضع الشرط المناسب في حال الكمية لاتسمح تحياتي 

InvoiceSale_9.accdb

تم تعديل يناير 18, 2023 بواسطه ازهر عبد العزيز

[ابو البشر]

11 ساعات مضت, qathi said:

السلام عليكم اساتذتي واخواني اعضاء منتدانا الرائع
اسأل الله لكم دوام الصحة والعافية

توضيح:

بعد ادراج العميل من النموذج الرئيسي InvoiceHT_F
وادراج الاصناف للنموذج الفرعي InvoiceHT_SubF

واردنا حذف جميع الاصناف دفعة واحدة بالضغط على زر حذف الفاتورة ( من النموذج الرئيسي InvoiceHT_F)

المطلوب : ( يتم ارجاع كمية كل صنف الى جدول ItemsT حسب رقم واسم الصنف ) - للاصناف الموجودة في النموذج الفرعي InvoiceHT_SubF

 

ملاحضة:
جدول الاصناف ItemsT
جدول رئيسي للفاتورة InvoiceHT
جدول فرعي للفاتورة InvoiceTT
جدول العملاء CustomersT

شاكرا لكم على كل ماتقدموه لنا من وقتكم وجهدكم الثمين

مرفق الملف للتعديل علية:

في حدث زر حذف الفاتورة استخدم هذا ...... جرب ...

    If MsgBox(" هـــل تـــريـــد حـذف فاتورة ", vbOKCancel, "! تـأكـيـد  ") = vbOK Then
DoCmd.SetWarnings False
DoCmd.GoToRecord , , acFirst
    For i = 1 To Me.Recordset.RecordCount
[Forms]![InvoiceHT_F]![InvoiceHT_SubF].SetFocus
  DoCmd.RunSQL "UPDATE ItemsT SET ItemsT.QuantityA = Nz([ItemsT].[QuantityA])+Nz([Forms]![InvoiceHT_F]![InvoiceHT_SubF].[Form]![QuantityS]) WHERE (((ItemsT.ItemID)=Nz([Forms]![InvoiceHT_F]![InvoiceHT_SubF].[Form]![ItemID])));"
    DoCmd.GoToRecord , , acNext
    Next i
      Me.Refresh
      SysCmd acSysCmdClearStatus
    End If
DoCmd.RunSQL "DELETE InvoiceTT.InvoiceNum FROM InvoiceTT WHERE (((InvoiceTT.InvoiceNum)=Nz([Forms]![InvoiceHT_F]![InvoiceNum])))"
DoCmd.SetWarnings True

 

[qathi]

8 ساعات مضت, ازهر عبد العزيز said:

عملت لك استعلام بسيط  تستطيع معرفة الكمية المتوفره من خلالة من دون ان تقوم بانقاص الكمية في القائمة

أخي واستاذي @ازهر عبد العزيز
شكرا على ردك بارك الله فيك
وعلى هذه الفكرة الجميلة

ممكن توضيح طريقتك هذه بخصوص اضهار رصيد الصنف مع مراعات الحركات الاخرى
- الشراء
- مرتجع شراء
- بيع
- مرتجع بيع
- التالف

علما ان اسم الحقل الخاص بالحركات ( Movement ) في الجدول الفرعي InvoiceTT

----------------------------------------------------------------

 

7 ساعات مضت, ابو البشر said:

في حدث زر حذف الفاتورة استخدم هذا ...... جرب ...

أخي واستاذي @ابو البشر
شكرا على ردك بارك الله فيك
وشكرا على على هذا الكود
قمت بتجربة الكود
 
الكود يعمل في ارجاء كمية اول صنف في الفاتورة فقط .. ولا يقوم بارجاء بقية الاصناف
هل ممكن حل هذه المشكلة ؟؟ بارك الله فيك

تم تعديل يناير 18, 2023 بواسطه qathi

[ابوخليل]

وجهة نظري ان الكميات مكانها جدول التفاصيل .. سواء كان العمل على جدولين او جدول واحد للمبيعات والمشتريات

جعلها في جدول الاصناف غير مناسب اوبالاصح غير احترافي

المبرمج او المصمم لقواعد البيانات يبحث عن التعامل المستقبلي السهل مع البيانات

[ابو البشر]

2 ساعات مضت, qathi said:

أخي واستاذي @ابو البشر
شكرا على ردك بارك الله فيك
وشكرا على على هذا الكود
قمت بتجربة الكود
 
الكود يعمل في ارجاء كمية اول صنف في الفاتورة فقط .. ولا يقوم بارجاء بقية الاصناف
هل ممكن حل هذه المشكلة ؟؟ بارك الله فيك

تفضل مثالك حسب طلبك .... كلام شيخنا صحيح ...

 

InvoiceSale_9.rar

[qathi]

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

وجهة نظري ان الكميات مكانها جدول التفاصيل .. سواء كان العمل على جدولين او جدول واحد للمبيعات والمشتريات

جعلها في جدول الاصناف غير مناسب اوبالاصح غير احترافي

المبرمج او المصمم لقواعد البيانات يبحث عن التعامل المستقبلي السهل مع البيانات

ياحيا باستاذنا الغالي الاصيل @ابوخليل .. شكرا على ردك .. وجودك معنا يسعدنا جدا .. الله لا يحرمنا من وجودك بيننا وردودك الذي ننتظرها

هل ممكن ملف يوضح الذي تقصده .. حتى افهم الطريقة الذي اشرت لها

 

أخي واستاذي @ابو البشر

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

ساقوم بتجربة الملف وواوافيك بالبنتائج ان شاء الله

[qathi]

39 دقائق مضت, ابو البشر said:

تفضل مثالك حسب طلبك

أخي واستاذي @ابو البشر شكرا لك .. على الكود الاحترافي بارك الله فيك وجزاك الله عني وعن الاسلام خيرا

أسأل الله ان يدخلك ووالديك وذريتك واهلك جنته الفردوس الاعلى

 

42 دقائق مضت, ابو البشر said:

كلام شيخنا صحيح ...

 

ارى ان ردودكم عن طريقة اخرى تنصحون بها والتي لم تتضح لي

أساتذتي أرجو ان ترفقو هنا ملف لما هو الشائع والطريقة الاحترافية والذي تسهل علىا في التعامل مع جميع الحركات وكذلك الاستدعاء في الاستعلامات والتقارير .. وذلك بسبب ندرة ماأجد من التوضيح في بناء قاعدة البيانات الافضل للبرنامج الذي يقوم به المبرمج

 

وشكرا لكم .. على ماتقدموه لنا من جهدكم ووقتكم الثمين