اذهب الي المحتوي
أوفيسنا

حذف منتج من فاتورة 1.0.0

fadialariqi
 مشاركة

الصوره التوضيحيه %s

عن هذا الملف

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

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

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

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

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

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

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

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

 

 

 مشاركة
الملف السابق برنامج مخزن
الملف التالي ToolTip

اراء المستخدمين

Recommended Comments

kanory

kanory 4,197

قام بنشر

ضع هذا الكود بدل الموجود لديك ..... 

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

 

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.

×
×
×
  • اضف...

Important Information

  I accept