نمایش نتایج 1 تا 8 از 8

نام تاپیک: مدیریت خطا در VBA اکسس

  1. #1
    کاربر جدید
    تاریخ عضویت
    شهریور 1394
    پست
    15
    تشکر کردن
    7
    یک بار تشکر شده در یک پست

    مدیریت خطا در 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
    اما هنگام ورود داده تکراری پیغام زیر را میدهد و بعد از کلیک دکمه دیباگ ، قسمت محصور در * را زرد رنگ را نشان میدهد.(* را جهت نشان دادن محل خطا استفاده کردم و عملا در فرمم استفاده نشده است)

    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

  2. #2
    کاربر دائمی آواتار Mehr@ban
    تاریخ عضویت
    آبان 1389
    محل زندگی
    بچه محله امام رضا
    پست
    358
    تشکر کردن
    401
    85 بار تشکر شده در 68 پست

    نقل قول: مدیریت خطا در VBA اکسس

    سلام

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

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

  3. 2 کاربر از Mehr@ban به خاطر این مطلب مفید تشکر کرده اند:


  4. #3
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,775
    تشکر کردن
    507
    1,612 بار تشکر شده در 835 پست

    نقل قول: مدیریت خطا در VBA اکسس

    از اين كد براي مديريت خطاي ورود داده تكراري ميتونيد استفاده كنيد:
    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

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

  5. 2 کاربر از amirzazadeh به خاطر این مطلب مفید تشکر کرده اند:


  6. #4
    کاربر جدید
    تاریخ عضویت
    شهریور 1394
    پست
    15
    تشکر کردن
    7
    یک بار تشکر شده در یک پست

    نقل قول: مدیریت خطا در VBA اکسس

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

  7. #5
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,775
    تشکر کردن
    507
    1,612 بار تشکر شده در 835 پست

    نقل قول: مدیریت خطا در VBA اکسس

    نقل قول نوشته شده توسط m3343kh مشاهده تاپیک
    ممنون
    ولی این کد جواب نمیدهد.
    لطفا فايلتون رو بارگذاري كنيد

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

  8. #6
    کاربر جدید
    تاریخ عضویت
    شهریور 1394
    پست
    15
    تشکر کردن
    7
    یک بار تشکر شده در یک پست

    نقل قول: مدیریت خطا در VBA اکسس

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

  9. #7
    مدیر بخش آواتار amirzazadeh
    تاریخ عضویت
    مهر 1386
    محل زندگی
    تبريز
    پست
    1,775
    تشکر کردن
    507
    1,612 بار تشکر شده در 835 پست

    نقل قول: مدیریت خطا در VBA اکسس

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

    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

    DON'T START;OTHERWISE DON'T STOP
    .................................................
    قوانين سايت

  10. کاربرانی که به خاطر مطلب مفید amirzazadeh از وی تشکر کرده‌اند:


  11. #8
    کاربر جدید
    تاریخ عضویت
    شهریور 1394
    پست
    15
    تشکر کردن
    7
    یک بار تشکر شده در یک پست

    نقل قول: مدیریت خطا در VBA اکسس

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

تاپیک های مشابه

  1. سئوالی در خصوص مدیریت خطا در وب سرویس
    نوشته شده توسط mhaeri در بخش WCF , Web Services , .Net Remoting
    پاسخ: 2
    آخرین پست: شنبه 23 خرداد 1394, 17:31 عصر
  2. مبتدی: مدیریت خطا در اکسس
    نوشته شده توسط pedram_ns در بخش Access
    پاسخ: 1
    آخرین پست: دوشنبه 26 دی 1390, 18:56 عصر
  3. سوال: خطا در كدنويسي اكسس
    نوشته شده توسط Asgharian.Sh در بخش Access
    پاسخ: 8
    آخرین پست: یک شنبه 22 آذر 1388, 17:39 عصر
  4. مدیریت خطا در پایگاه داده های اکسس
    نوشته شده توسط vjp در بخش بانک های اطلاعاتی در Delphi
    پاسخ: 7
    آخرین پست: چهارشنبه 08 آبان 1387, 20:03 عصر
  5. مدیریت خطا در رویداد OnPostError یک DataSet
    نوشته شده توسط dkhatibi در بخش برنامه نویسی در Delphi
    پاسخ: 5
    آخرین پست: دوشنبه 07 آبان 1386, 17:51 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •