استبدال رسالة لايمكن حذف السجل لانه يتضمن سجلات مرتبطة

[ahmad_mustafa]

السلام عليكم

هل يمكن استبدال رسالة ميكروسوفت لايمكن حذف السجل لانه يتضمن سجلات مرتبطة  كما هو موضح  بالصورة المرفقة برسالة خاصة بي 

[AbuuAhmed]

عن طريق النموذج استخدم زر حذف بدلا من محدد السجل.
هذا اللي خطر في بالي الآن، يمكن الزملاء لديهم تجارب أفضل.

 

DeleteParentRecord_01.accdb

تم تعديل يوليو 5, 2023 بواسطه AbuuAhmed

[ahmad_mustafa]

اشكرك ابو احمد  وجدت هذا الكود يوضع عند الخطأ

If DataErr = 3200 Then
     Response = MsgBox("لايمكن حذف السجل لان له  ببيانات اخرى  ", vbExclamation, "    ")
      
     Response = acDataErrContinue
     On Error Resume Next
 Me.Undo
End If

[AbuuAhmed]

4 دقائق مضت, ahmad_mustafa said:

اشكرك ابو احمد  وجدت هذا الكود يوضع عند الخطأ

شكرا، في أي حدث وضعت هذا الكود؟
هل يمكنك وضعه في مثالي ورفعه هنا؟

[AbuuAhmed]

وجدت الحدث، وهذه أول مرة أجربه منذ أن دخلت عالم الأكسس 🙂 
 

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 3200 Then
        Response = 0
        MsgBox "لا يمكن حذف هذا الموظف قبل حذف إجازاته"
    End If
End Sub

 

DeleteParentRecord_02.accdb

تم تعديل يوليو 5, 2023 بواسطه AbuuAhmed