حذف پیغام حذف رکورد

[hf.farhadi]

با سلام
برای حذف یک رکورد و برگرداندن پیام فارسی به کاربر جهت تایید نهایی ، یک باتون ایجاد نموده و نام آن را cmdDel قرار دهید
سپس این کد رو در رویداد On Click باتون cmdDel، کپی کنید

Private Sub cmdDel_Click()

On Error GoTo Err_CmdDel_Click

    DoCmd.SetWarnings (warningsoff)

    Dim stDocName As String

    Me.AllowEdits = True

    msg = MsgBox("شما در حال حذف اطلاعات جاری هستید . آیا ادامه میدهید ؟", vbExclamation + vbMsgBoxRight + vbYesNo + vbDefaultButton2, "توجه")



    If msg = vbYes Then

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

    Form.Refresh

    End If

    

Exit_CmdDel_Click:

    Exit Sub



Err_CmdDel_Click:

    MsgBox Err.Description

    Resume Exit_CmdDel_Click

    

End Sub