ID استعلام حذف بواسط الـــ

[ابو عبد الله العراقي]

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

الأستاذة الأفضل الاخوة الأعزاء في منتدى اوفيسنا وبعد

في قاعدة البيانات المرفقة يوجد جدولين , table 1  يمثل أسماء الطلاب أما الجدول الاخر table2  يمثل أسماء الجلسات . حيث أن النموذج formtabl1   هو لا دخال أسماء الطلاب أما النموذج formtabl2  فمنه يتم اختيار الجلسات للطلاب الذين يدخلون جلسات تعليمية للتقوية .

علماً انه ليس لكل الطلاب يتم اختيار جلسات تقوية حيث انه يمكن ان يكون هناك طلاب ليس لديهم جلسات وهنا تبدأ المشكلة لما انني اريد ان احذف الطلاب الذين ليس لديهم جلسات أما كل الطلاب دفعة واحدة يتم الحذف أو حسب كود الطلاب  وذلك من خلال استعلام الحذف query1   الذي يقوم بعملية الحذف من خلال الـ ID   واستعلام الحذف Query2  الذي يحذف جميع الطلاب دفعة واحدة .  

المشكلة الحقيقة في حذف الطلاب عن طريق الكود وهي لما اريد احذف طالب ادخل رقم الـــ id  في مربع حوار ادخال القيم واضغط ok  ويحذف عادي او اضغط cancel  لا لغاء عملية الحذف لكن عندما لا أقوم بإدخال قيمة في مربع حوار واضغط ok   يقوم بنفس العملية التي لو ادخلنا كود الطالب وهذا غير صحيح المفروض يظهر رسالة بأنه لم يتم ادخال رقم الـــ id  لكي تتم عملية الحذف .

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

Database2.rar

[kanory]

4 ساعات مضت, ابو عبد الله العراقي said:

المشكلة الحقيقة في حذف الطلاب عن طريق الكود وهي لما اريد احذف طالب ادخل رقم الـــ id  في مربع حوار ادخال القيم واضغط ok  ويحذف عادي او اضغط cancel  لا لغاء عملية الحذف لكن عندما لا أقوم بإدخال قيمة في مربع حوار واضغط ok   يقوم بنفس العملية التي لو ادخلنا كود الطالب وهذا غير صحيح المفروض يظهر رسالة بأنه لم يتم ادخال رقم الـــ id  لكي تتم عملية الحذف .

تفضل .... غير الشيفرة التي لديك بهذه ....

On Error GoTo XYZ

If MsgBox("سوف تقوم بحذف الكلية التي ليس لها قسم", vbCritical + vbYesNo, "تحذير") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "query1"
    Me.List6.Requery
    MsgBox "تمت عملية حذف السجلات المطلوب حذفها بنجاح"
Else
    Exit Sub   ' خروج فوري إذا المستخدم ضغط "لا"
End If

Exit Sub   ' خروج قبل جزء معالجة الأخطاء

'====================
XYZ:
    MsgBox "حدث خطأ: " & Err.Description

 

تم تعديل منذ 11 ساعات بواسطه kanory

[ابو عبد الله العراقي]

شكرا جزيلا أستاذ على تواصل واهتمامك بالموضوع

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

 

تم تعديل منذ 3 ساعات بواسطه ابو عبد الله العراقي