منع إختفاء المعلومات من الصف عند الضغط علي زر حذف

[shod90]

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

قابلتني مشكلة في البرنامج اللي شغال عليه الا و هي الأتي.

عند الضغط علي زر حذف في النموذج يخفي السجل ( الصف ) تلقائي لحين الإختيار من الرساله حذف أم إلغاء كما هو موضح في الصورة أدناة

هل في طريقة عند الذغط علي زر حذف لا يخفي الصف الا عند الغط علي نعم إحذف ؟

[Shivan Rekany]

تكدر تستخدم هذا الكود

On Error GoTo err
DoCmd.SetWarnings (WARNINGOFF)
If MsgBox("هل تريد حذف السجل المختارة", vbYesNo, "تنبيه") = vbYes Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
End If
DoCmd.SetWarnings (WARNINGSON)
err: