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

[m3343kh]

با سلام
یک فرم دارم که در رویداد 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

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

Untitled.png
از کدهای زیر در قسمت 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

[Mehr@ban]

سلام

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

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

[amirzazadeh]

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

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]

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

[amirzazadeh]

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

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

[m3343kh]

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

[amirzazadeh]

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

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

[m3343kh]

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