مدیریت خطا در VBA اکسس

با سلام
یک فرم دارم که در رویداد AfterUpdate یکی از کومبوها کد زیر را نوشته ام.

Private Sub NV_AfterUpdate ()
DoCmd.SetWarnings False
DoCmd.RunSQL ("UPDATE MDNVtbl SET MDNVtbl.Check=True WHERE (((MDNVtbl.IDnv)=[Forms]![MDfrm]![NV]));")
*********DoCmd.RunCommand acCmdSaveRecord*********
Me.subfrm.Requery
DoCmd.RunCommand acCmdRecordsGoToLast
End Sub

اما هنگام ورود داده تکراری پیغام زیر را میدهد و بعد از کلیک دکمه دیباگ ، قسمت محصور در * را زرد رنگ را نشان میدهد.(* را جهت نشان دادن محل خطا استفاده کردم و عملا در فرمم استفاده نشده است)

ضمیمه 148409
از کدهای زیر در قسمت On Error فرم استفاده کردم اما باز هم همین خطا ظاهر میشود. لطفا راهنمایی بفرمایید.

Dim StrErrFa As String
Dim StrErrEn As String
StrErrFa = Nz(DLookup("[ErrFA]", "Errorstbl", "[ErrCode]=" & DataErr))
StrErrEn = Nz(DLookup("[ErrEN]", "Errorstbl", "[ErrCode]=" & DataErr))
Response = DataErr
MsgBox "ÝÇÑÓí : " & StrErrFa & vbCrLf & vbCrLf & "English : " & StrErrEn, vbApplicationModal, "ÎØÇí ÔãÇÑå : " & DataErr

سلام

این آموزش رو بخونید شاید چیزی دستتون بیاد

مدیریت خطا در اکسس

از اين كد براي مديريت خطاي ورود داده تكراري ميتونيد استفاده كنيد:

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

Const conDuplicateKey = 3022

    Dim strMsg As String



    If DataErr = conDuplicateKey Then

        Response = acDataErrContinue

        strMsg = "پيام دلخواه شما"

        MsgBox strMsg

    Undo

      End If



End Sub

ممنون
ولی این کد جواب نمیدهد.

نقل قول:

---

نوشته شده توسط m3343kh

ممنون
ولی این کد جواب نمیدهد.

---

لطفا فايلتون رو بارگذاري كنيد

سلام فایل نمونه خدمتتان ارسال میشود.

سلام
كد رو به اين شكل اصلاح كنيد:

Private Sub NameA_AfterUpdate()

DoCmd.SetWarnings False

DoCmd.RunSQL ("UPDATE tblA SET tblA.Check=True WHERE (((tblA.IDa)=[Forms]![frmMain]![NameA]));")

DoCmd.RunCommand acCmdSaveRecord

Me.NameA.Requery

Me.subfrm.Requery

DoCmd.RunCommand acCmdRecordsGoToLast

End Sub

سلام
تشکر ویژه:تشویق: