ما سبب هذه الرسالة عند حذف السجل الأخير

[أحمد العيسى]

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

باستخدام الكود التالى يمكن حذف أى سجل داخل قاعدة بيانات

ما عدا  عند حذف السجل الأخير فى نفس القاعدة تظهر هذه الرسالة

كيف يمكن معالجة خطأ هذه الرسالة ؟؟

إذ أن المفترض بعد هذا الحذف ظهور صفحة فارغة من كل الحقول  لإدخال سجل جديد

الكود

Private Sub Cmdel_Click()
On Error GoTo Err_Cmdel_Click
   If MsgBox(":ستقوم الآن بحذف السجل المسجل بملف رقم" & vbCrLf _
   & vbCrLf _
   & [Nr] & "        " & vbCrLf _
   & [Name_T] & vbCrLf _
   & " " & vbCrLf _
   & "هل أنت متأكد ؟" & vbCrLf _
   & "أضغط ( نعم ) للإستمرار  ، أو ( لا ) لإلغاء الأمر", vbQuestion + vbYesNo _
   + vbMsgBoxRight, "تحذيـــر") = vbYes Then
   Me.Recordset.Delete
   Me.Recordset.MoveNext
   End If
   
Exit_Cmdel_Click:
Exit Sub

Err_Cmdel_Click:
    MsgBox Err.Description
    Resume Exit_Cmdel_Click
    
End Sub

 

تم تعديل منذ 3 ساعات بواسطه أحمد العيسى

[Foksh]

أعتقد أنه تم الإجابة عن هذا السؤال في موضوعك السابق ، والذي لم تقم بالرد عليه ومتابعته 🙂 .

 

الجواب في هذه المشاركة هنا

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