قمت بانشاء جدولين وربط بينهم بعلاقة رأس بأطراف وأنشات نموذج وضمنه نموذج فرعي
وضعت زر ليقوم بحذف السجل وطبعاً سيحذف السجلات المرتبطة من الفرعي (تتالي حذف)
وعند الحذف تظهر رسالة :
العلاقات التي تحدد اسلوب الحذف المتعاقب على وشك أن تسبب في حذف 1 سجل من الجدول والجداول المرتبطة
كيف يمكن تغيير هذه الرسالة مثلا؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
هل تريد حذف هذا السجل
jmt
حاول كتابة هذا الكود في حدث عند النقر لزر الأمر الذي افترض اسمه cmdDel
If MsgBox("هل تريد الحذف فعلاً ؟", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then
Search.SetFocus ' ضع هنا الحقل الذي تريد نقل التركيز إليه
Exit Sub
Else
DoCmd.SetWarnings False
Me.AllowEdits = True
Refresh
DoCmd.RunCommand acCmdDeleteRecord
Refresh
DoCmd.SetWarnings True
Search.SetFocus
End Ifهذا الموضوع مغلق.