کاربری
کاربر گرامی به خوش آمدید . اگر این نخستین بازدید شما از سایت است , لطفا ثبت نام کنید:

   

جهت تبلیغات در پرشین فروم کلیک کنید

نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: آموزش اکسس (بخش چهارم)

  1. #1

    پیش فرض آموزش اکسس (بخش چهارم)

    آموزش اکسس (بخش چهارم)

    صدور پيغامهاي فارسي بجاي پيغامهاي Error اكسس
    يكي از دوستان وبلاگي من پرسيده بود چطوري پيغام Error مربوط به ورود ركورد تكراري را در اكسس فارسي كنيم . ترجيح دادم جواب كاملي براي سئوال ايشون بدم تا همه استفاده كنن. بنابراين ابتدا جواب ايشون رو ميدم و بعد از اون بطور كاملتر براي همه وبلاگي هاي عزيز روش كنترل خطا را تشريح مي كنم .

    (توجه داشته باشيد كه در زير كدهاي نوشته شده از راست به چپ نمايش داده مي شوند)

    جواب دوست ما:
    در رويداد OnError مربوط به فرم ورود اطلاعات اين كد را مي نويسيم:

    If DataErr = 3022 Then
    MsgBox "اطلاعات وارده تكراري است"
    Response = acDataErrContinue
    End If


    جواب كلي :
    اساسا ، هر خطا در اكسس يا VB يك كد توليد مي كند . برنامه نويسان بايد يك بانك اطلاعات از كد خطاهايي كه رخ مي دهد داشته باشند تا بتوانند با چك كردن شماره خطا پيغام فارسي مناسب آن خطا را صادر كنند .

    بطور كلي دو روش كنترل خطا از اين قرارند:

    1- اگر خطا مربوط به كل فرم باشد بايد از طريق رويداد OnError فرم كنترل شود .
    معمولا خطاهايي كه مربوط به كدنويسي ما نبوده و صرفا توسط اكسس و در واكنش به اشتباهات كاربر صادر مي شود در اين رويداد كنترل مي شود . در اين رويداد ، پارامتر DataErr حاوي كد خطاست. (بعبارت واضح تر اگر مي خواهيد كد مربوط به هر Error را شناسايي كنيد مي توانيد اين دستور در رويداد OnError فرم بنويسيد: MsgBox DataErr )

    بطور كلي بعد از اينكه كد خطاها را شناسايي كرديد با نوشتن قالب برنامه زير در رويداد OnError فرم مي توانيد خطاها را كنترل كنيد :


    Dim Str as String

    Select Case DataErr
    Case 3022
    Str="اطلاعات وارده تكراري است"
    Case 2237


    Str = "اطلاعات وارده در ليست وجود ندارد"
    'خط فوق براي مواردي است كه يك مقداري كه در كمبو باكس وجود ندارد ، تايپ شده باشد

    Case ...
    Str=...
    ....
    End Select

    Msgbox Str
    Response = acDataErrContinue




    2- اگر خطا مربوط به كدهايي باشد كه خودمان در يك Sub نوشته ايم :
    در اين روش بايد در ابتداي Sub با دستور : <اسم زير روال كنترل خطا> On Error Goto ، كنترل خطا را به يك روال كنترل خطا ارجاع دهيم.
    ( تمام كدهايي كه ويزارد Command Button بطور خودكار در رويداد OnClick دكمه ها ايجاد مي كند نمونه خوبي براي اين روش هستند. ضمنا در اين روش بكمك Err.Number كد خطا شناسايي مي شود )

  2. 3 کاربر برای این پست سودمند از Ahmadreza Jafari عزیز تشکر کرده اند:


  3. Left Ad Image/Code 1 needs to be placed here, no larger than 260 pixels in height.
    Right Ad Image/Code 2 needs to be placed here, no larger than 260 pixels in height.
  4. #2

    پیش فرض

    ba tashakor az zahamate bimenate shoma doste gerami

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. گوگل از تجسس در جیمیل دانش‌آموزان عقب‌نشینی کرد
    توسط چنگیز در انجمن اخبار و تازه های دنیای کامپیوتر و تکنولوژی , نرم افزار
    پاسخ ها: 0
    آخرين نوشته: 02-05-14, 20:20
  2. آموزش اکسس (بخش ششم)
    توسط Ahmadreza Jafari در انجمن Microsoft Office Access
    پاسخ ها: 1
    آخرين نوشته: 17-03-09, 17:39
  3. آموزش اکسس (بخش دوم)
    توسط Ahmadreza Jafari در انجمن Microsoft Office Access
    پاسخ ها: 1
    آخرين نوشته: 21-10-07, 13:46
  4. آموزش اکسس (بخش اول)
    توسط Ahmadreza Jafari در انجمن Microsoft Office Access
    پاسخ ها: 0
    آخرين نوشته: 16-06-06, 04:50
  5. آموزش اکسس (بخش پنجم)
    توسط Ahmadreza Jafari در انجمن Microsoft Office Access
    پاسخ ها: 0
    آخرين نوشته: 16-06-06, 04:47

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

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

دوستان ما
لینک های مفید
ابزار ها
session بارگذاری مجدد کد امنیتی مندرج در تصویر را وارد کنید: