راهنمایی تکمیل کد

[datmas]

سلام من راهنمایی میخوام برای کدی که از همین سایت گرفتم.
فایل نمونه پیوست میکنم.
روی فرم یک باتن دارم برای حذف کل رکوردها ولی دو تا مشکل دارم.
۱-عدم وجود پیغام بله یا خیر ( آیا از حذف اطلاعات اطمینان دارید). که یکسره بدون پرسیدن سوال پاک میکنه.
۲- ارور پیغام مسیج . البته اینو نمیدونم چرا تو فایل نمونه ارور میده ولی تو فایل اصلی خودم اصلا ارور نمیده.

[datmas]

دوستان کسی کمکم نمیکنه؟

[amirzazadeh]

On Error GoTo err_Command25_Click If Form_frm.text150 = 0 Then
MsgBoxFa "åí Ñ˜æÑÏí ÌåÊ ÍÐÝ íÇÝÊ äÔÏ", vbExclamation + vbMsgBoxRight, "ÊæÌå"
DoCmd.CancelEvent

Else
If MsgBox("آيا مطمئن هستيد", vbYesNo, "اخطار") = vbYes Then
Dim stDocName As String

stDocName = "query1"

DoCmd.SetWarnings False


DoCmd.OpenQuery stDocName, acNormal, acEdit
On Error Resume Next
frm.Requery

DoCmd.SetWarnings True
MsgBoxFa "ÍÐÝ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ", vbInformation + vbMsgBoxRight, "ÍÐÝ"
Me.Requery
End If
End If
Exit_Command25_Click:
Exit Sub

err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click
End Sub

[datmas]

با سپاس از عنایت جناب امیرزاده.خیلی دوست داشتم یه بار شما جوابمو بدید.ممنون از لطفتون.