عدم اجرای کدdelet record

[amirkazem]

باسلام.کدزیربرای انتخاب وحذف یک رکوردخاص دریک برنامه هستش.رکوردموردنظرازلیست باکس موجوددریک فرم انتخاب شده وجهت ویرایش یاحذف درفرم دیگربازمی شود..لی دکمه (حذف)که کدزیرمربوط به آن هست، اجرانمی شود.به نظرشمادلیل عدم اجرای کدچه می تونه باشه؟
On Error GoTo Err_Command4_Click
If MsgBox(" کليه اطلاعات دانش آموزحذف خواهدشد.آيامطمئن هستيد؟ ", vbYesNo + vbCritical + vbDefaultButton2, "حذف ") = vbNo Then
MsgBox "عمليات حذف مشخصات لغوشد"
Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord acDataForm, , acNewRec
MsgBox "کليه مشخصات دانش آموزحذف شد", vbOKOnly, "اعلان"

End If
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:

Resume Exit_Command4_Click

[amirkazem]

دوستان سلام.محبت بفرماییدببینیداشکال این کدچه هست که رکوردانتخاب شده ولودشده درفرم ویرایش مشخصات رااجرانمی کند.(رکوردموردنظرحذف نمی شود)
Private Sub Toggle31_Click()
On Error GoTo Err_Command4_Click
DoCmd.SetWarnings False
If MsgBox(" ˜áíå ÇØáÇÚÇÊ ÏÇäÔ ÂãæÒÍÐÝ ÎæÇåÏÔÏ.ÂíÇãØãÆä åÓÊíÏ¿ ", vbYesNo + vbCritical + vbDefaultButton2, "ÍÐÝ ") = vbNo Then
MsgBox "ÚãáíÇÊ ÍÐÝ ãÔÎÕÇÊ áÛæÔÏ"
Exit Sub
Else
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "˜áíå ãÔÎÕÇÊ ÏÇäÔ ÂãæÒÍÐÝ ÔÏ", vbOKOnly, "ÇÚáÇä"
DoCmd.GoToRecord acDataForm, , acNewRec
End If
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:

Resume Exit_Command4_Click
End Sub

[amirkazem]

تشکر.مشکل حل شد.فقط می خواستم ازکدی استفاده کنم که هنگام حذف رکورد، پیغام اطمینان هم به کاربررانشان داده بشه.