حذف سجل واحد من عدة جداول دفعة واحدة

[almizjaji]

السلام عليكم ورحمة الله وبركاته

أولا أحب أن اشيد بهذا المنتدي الذي له فضل على بعد الله سبحانه وتعالى في تعلم الكثير من اسرار اكسيس الحبيب ولكل من شارك بسؤال او جواب له الشكر مني والدعاء له بالخير والثبات وللأخوة المبدعين خاصة اقول لهم استمرو ا في ابداعكم لأنكم تعلمون غيركم ومن تعلمونهم يعلمون اناسا غيركم وهكذا ينتشر العلم وللمعلم الأول فضل آخر المتعلمين مقابل ذلك ان الله يزيد بسطة في العلم من علم ونشر علمه لغير ابتغاء وجه الله مهما تعلمت العلم للدنيا الا انه اخيرا يأبي ان يكون الا لله ...

ثانيا لدي سؤال مهم ومحيرني ولمن يساعدني فيه له منى خالص الدعاء في ظهر الغيب وهو

لدي ثلاثة جداول الأول اسمه m_school والثاني m_studentوالثالث st_info وفي كل جدول يوجد الحقل باسم schoolnumdوهو رقم المدرسة وهو ليس مفتاح اساس في جميع الجداول المطلوب اريد ان احذف بيانات مدرسة محددة برقمها عن طريق مربع نص مثلا ادخل رقم المدرسة المراد حذفيها من جميع الجداول وبعدها يقوم بحذف جميع بيانات المدرسة دفعة واحد من جميع الجداول ارجو ان اكون وضحت سؤالي ..

شكرا للجميع الرجاء الرد بسرعة فخير البر عاجله وكونوا من الذين يسارعون في الخيرات

[majed123]

عملت مثال على نفس الطلب اللي بدك إياه

بس ما عرفت كيف أضع المثال بالمرفقات

بس الفكرة بسيطة

حاول تفهم الكود التالي انشاء الل يساعدك

Dim DelDetails As String
    Dim DelDetails2 as String
    DelDetails = "DELETE m_student.StudentID, m_student.StudentName, m_student.schoolnumd FROM m_student WHERE (((m_student.schoolnumd)=" & Me.txtschoolnumd & "));"
    DelDetails2 "DELETE st_info.InfoID, st_info.schoolnumd FROM st_info WHERE (((st_info.schoolnumd)=" & Me.txtschoolnumd & "));"
        DoCmd.SetWarnings (0)
        DoCmd.RunSQL (DelDetails)
        DoCmd.RunSQL (DelDetails2)
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        DoCmd.SetWarnings (1)

ضع هذا الكود في زر أمر حذف داخل فورم المدرسة

تم تعديل يوليو 15, 2006 بواسطه التقني

[almizjaji]

ساجرب الكود وارد عليك مع شكري وتقديري لك

[almizjaji]

Private Sub ÃãÑ0_Click()
Dim DelDetails As String
Dim DelDetails2 As String
DelDetails = "DELETE m_stufdent.schoolnumd  FROM m_stufdent WHERE (((m_stufdent.schoolnumd)=" & Me.schoolnumd & "));"
DelDetails2 "DELETE m_school.schoolnumd  FROM m_school WHERE (((m_school.schoolnumd)=" & Me.schoolnumd & "));"
DoCmd.SetWarnings (0)
DoCmd.RunSQL (DelDetails)
DoCmd.RunSQL (DelDetails2)
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings (1)
End Sub

وضعت الكود المذكور اعطاني رسالة خطأ وهي

methode or data not be found

تم تعديل يوليو 15, 2006 بواسطه التقني

[التقني]

السلام عليكم

تم التعديل على ردود الاخ almizjaji فيما يتعلق بطريقة عرض الكود فقط

وينقل الى القسم المختص