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