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

[iebu12]

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

با تشکر

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

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

[Abbas Amiri]

سلام
ازکد زیر استفاده کنید

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)

    If MsgBox("Delete Error message", vbCritical + vbYesNo) = vbNo Then

        Cancel = True

    End If

    Response = acDataErrContinue

End Sub

[iebu12]

سلام
ازکد زیر استفاده کنید

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)

    If MsgBox("Delete Error message", vbCritical + vbYesNo) = vbNo Then

        Cancel = True

    End If

    Response = acDataErrContinue

End Sub

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

با تشکر

[iebu12]

خیلی عذر می خوام ولی فکر نکنم سوالم خیلی سخت باشه.
من می خوام رکورد هایی که کاربر با استفاده از record selector انتخاب می کنه رو داشته باشم.

خیلی ممنون

[Abbas Amiri]

سلام
سوال سختی نیست ، همانطور که سوال راحتی هم نیست . شما باید بااستفاده از خصوصیت SelTop و SelHeight به ترتیب شماره اولین رکورد و تعداد رکوردهای انتخاب شده را بدست آورید بعد در یک رکوردست به شماره رکورد مشخص شده(SelTop) بروید به تعداد رکورد انتخاب شده مقادیر فیلدهای هررکورد را نمایش دهید.
البته یک نکته هست زمانی که شما با دکمه Delete عمل میکنید در رویداد آن دیگر آن دو مقدار راندارید . پس باید در روال MouseUp فرم این دوخصوصیت را در دو متغیر عمومی ذخیره کرده و در روال Delete ازآنها اسفاده کنید .
بنده الگوریتم این کارساده شما را بطورکامل شرح دادم . بسم ا...
ضمن اینکه درمورد استفاده ازاین خصوصیات دریک تاپیک مثالی داشتم
موفق باشید

[hashemi.hanieh]

با این کد پس از ارائه پیغام مورد نظر مجددا پیغام اکسس نشان داده میشه... آیا به جز راه حل زیر راه دیگه ای وجود داره؟

در رویداد on open :
docmd.setwarning false
و در رویداد on close :
docmd.setwarning true
رو تایپ کنیم؟
میشه همشو تبدیل به یه کد کنیم؟

[hashemi.hanieh]

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

[hashemi.hanieh]

با این کد پس از ارائه پیغام مورد نظر مجددا پیغام اکسس نشان داده میشه... آیا به جز راه حل زیر راه دیگه ای وجود داره؟

در رویداد on open :
docmd.setwarning false
و در رویداد on close :
docmd.setwarning true
رو تایپ کنیم؟
میشه همشو تبدیل به یه کد کنیم؟

[alirezabahrami]

با این کد پس از ارائه پیغام مورد نظر مجددا پیغام اکسس نشان داده میشه... آیا به جز راه حل زیر راه دیگه ای وجود داره؟

در رویداد on open :
docmd.setwarning false
و در رویداد on close :
docmd.setwarning true
رو تایپ کنیم؟
میشه همشو تبدیل به یه کد کنیم؟

سلام
1- دستور docmd.setwarning false یک S کم داره باید آن را بصورت DoCmd.SetWarnings False بکار ببرید.
2- دستور DoCmd.SetWarnings False در ابتدای کد های مربوطه و DoCmd.SetWarnings True درانتها بکار میرود نه در رویداد در رویداد on open و on close .
یا علی

[kavehm13]

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

[Ali_Fallah]

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Response = 0

End Sub