اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

عن هذا الملف

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

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

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

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

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

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

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

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

 

 


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

Recommended Comments

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

 

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information