حذف سجل من جدولين متشابهين

[SAYEDaly]

يوجد مثال للتعديل علية

كيف يمكن حذف سطر من النموذج الفرعي  الذى في جدول 2  ونفس السجل بنفس البيانات فى جدول  3

اى حذف نفس السجل من جدولين متشابهين لهما نفس البيانات

 

Data.rar

تم تعديل مارس 22, 2016 بواسطه SAYEDaly

[سعيد صواب]

حياك الله اخي الكريم

طبعا لم ادخل في تفاصيل مشروعك .. ولكن هذه اجابك لسؤالك تحديدا

ضع هذا الكود تحت زر امر في النموذج table1 

 

DoCmd.RunSQL "delete * from table2 where id =forms!table1!id"
DoCmd.RunSQL "delete * from table3 where id =forms!table1!id"
Me.Requery

بإمكانك تعطيل التحذيرات بأن يصبح شكل الكود كالتالي 

DoCmd.SetWarnings False
DoCmd.RunSQL "delete * from table2 where id =forms!table1!id"
DoCmd.RunSQL "delete * from table3 where id =forms!table1!id"
DoCmd.SetWarnings True
Me.Requery

بالتوفيق

تم تعديل مارس 22, 2016 بواسطه سعيد صواب

[SAYEDaly]

جزاك الله كل خير استاذ سعيد

لكن تم حذف جميع السجلات الفرعية

لكن ما اريدة هو حذف سجل واحد فقط من السجلات الفرعية

Data.rar

تم تعديل مارس 22, 2016 بواسطه SAYEDaly

[سعيد صواب]

حياك الله اخي الكريم

ممكن توضح اكثر ..

ايش الشرط اللي ممكن اعتمد عليه في الحذف ..

بالتوفيق

[SAYEDaly]

11 ساعات مضت, سعيد صواب said:

حياك الله اخي الكريم

ممكن توضح اكثر ..

ايش الشرط اللي ممكن اعتمد عليه في الحذف ..

بالتوفيق

كلام مضبوط   لايوجد شرط للاستناد الية فى عملية الحذف

الجدول رقم 2  لا توجد اى مشاكل فى حذف سجل محدد

كما هو موضح بالصور المرفقة

المشكلة تكمن فى حذف نفس السجل في الجدول رقم 3

 

 

 

S-Data.rar

[كرار صبري _ أبو جنى]

السلام عليكم ... من رخصة الاستاذ سعيد ... 

Private Sub Command8_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE table3.id, table3.Classe, table3.Tech, table3.Fees from table3 WHERE(((table3.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table3.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table3.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table3.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))"
DoCmd.RunSQL "DELETE table2.id, table2.Classe, table2.Tech, table2.Fees from table2 WHERE(((table2.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table2.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table2.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table2.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))"
DoCmd.SetWarnings True
Me.Requery
End Sub

 

[SAYEDaly]

39 دقائق مضت, karrar sabry said:

السلام عليكم ... من رخصة الاستاذ سعيد ... 

Private Sub Command8_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE table3.id, table3.Classe, table3.Tech, table3.Fees from table3 WHERE(((table3.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table3.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table3.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table3.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))"
DoCmd.RunSQL "DELETE table2.id, table2.Classe, table2.Tech, table2.Fees from table2 WHERE(((table2.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table2.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table2.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table2.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))"
DoCmd.SetWarnings True
Me.Requery
End Sub

 

أحسنت وسلمت يداك  

والشكر موصول الى الاستاذ سعيد

[كرار صبري _ أبو جنى]

لا شكر على واجب ...