حذف منتج من فاتورة مشتريات أو مبيعات

[fadialariqi]

الساده الافاضل محترفين أكسس , لدي مشكله في حذف منتج من فاتورة , قمت بأنشاء جدول 

الجدول الاول أسمه Fatoora1 و محتوياته هي ( رقم الفاتورة , تاريخ الفاتورة , المخزن , المورد , طريقة الدفع , الضريبة , الخصم , المدفوع )

الجدول الثاني أسمه Fatoora2 و محتوياته هي ( معرف الحركه , إسم المنتج , سعر الشراء , الكمية , الوحدة , الإجمالي )

تم ربط جميع الجداول في إنشاء العلاقات 

تم إنشاء نموذج للفاتورة

السؤال الذي اريد له أجابه و اتمنى من المحترفين مساعدتي في إيجاد حل له ( كيف أستطيع حذف منتج من الفاتورة ؟ )

حاولت كثيراً و عندما أحذف منتج من فاتورة رقم 1 يتم كذلك حذف نفس المنتج من فاتورة رقم 2 😭

مرفق رابط قاعدة البيانات https://bit.ly/Fatoora1

 

 

[محمد أبوعبدالله]

السلام عليكم

واعتقد انك تحتاج الى عمل قائمة مختصرة

تفضل هذا الموضوع به الفائدة الكبيرة باذن الله

تحياتي

[kanory]

استخدم هذا الكود <<<<<<<>>>>>>>>

On Error Resume Next
Dim resbtndelete As String
resdelete = MsgBox("هل تريد حذف المنتج ؟", vbYesNo, "تنبيه")
If resbtndelete = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tbl_Fatoora2.ID_Haraka, tbl_Fatoora2.Product_Name_Haraka " & _
" FROM tbl_Fatoora2 " & _
" WHERE (((tbl_Fatoora2.ID_Haraka)=[forms]![frm_Fatoorabuy]![Invoice_ID]) AND ((tbl_Fatoora2.Product_Name_Haraka)=[Forms]![frm_Fatoorabuy]![w1].[Form]![Product_Name_Haraka]));"
DoCmd.SetWarnings True
'DoCmd.RunSQL ("delete * from tbl_fatoora2 where [ID_Haraka]=" & Forms!frm_Fatoorabuy!Invoice_ID)
DoCmd.Requery
End If

 

[fadialariqi]

مشكور أخي @kanoryجزاك الله ترليون خير 

أشكرك أخي @محمد أبو عبدالله على تفاعلك مع الموضوع