اشكرك اخي العزيز
جربت هذا الكود المرفق يطلع رسالة بانه تم حذف ولاكن لا يحف فارجو بيان الخلل اكون ممنون
الجدول اسمه الرئيسي
والنموذج الفرعي الذي مراد مسح خاناته اسمه al
Private Sub الرتبة_Change()
Dim de As String
On Error Resume Next
de = MsgBox("حذف العلاوات القديمة ", vbYesNo + vbInformation, "تنبيه")
If de = vbYes Then
DoCmd.RunSQL "delete*form al الرئيسي.تاريخ استحقاق العلاوة الثانية,الرئيسي.تاريخ استحقاق العلاوة الاولى WHERE (((الرئيسي.تاريخ استحقاق العلاوة الاولى) Is Null)) OR (((الرئيسي.تاريخ استحقاق العلاوة الثانية) Is Null));"
DoCmd.Requery
End If
End Sub
Private Sub الرتبة_Change()
Dim de As String
On Error Resume Next
de = MsgBox("حذف العلاوات القديمة ", vbYesNo + vbInformation, "تنبيه")
If de = vbYes Then
DoCmd.RunSQL "delete*form al الرئيسي.تاريخ استحقاق العلاوة الثانية,الرئيسي.تاريخ استحقاق العلاوة الاولى WHERE (((الرئيسي.تاريخ استحقاق العلاوة الاولى) Is Null)) OR (((الرئيسي.تاريخ استحقاق العلاوة الثانية) Is Null));"
DoCmd.Requery
End If
End Sub