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

[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]

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