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

[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

[iebu12]

خیلی ممنون
اگه کاربر با استفاده از کلید Delete صفحه کلید یک رکورد رو حذف کرد چی؟
به نظر من بهتره در رویداد On Delete فرم کد بنویسیم.

با تشکر

[iebu12]

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

[kavehm13]

ممنونم دوست عزیز