اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

 

الإخوة الكرام .. في الملف المرفق كود لإنشاء جدول مع استيراد بعض بياناته من جدول آخر .. والكود يعمل بشكل جيد بحمد الله .. لكن بعد الانتهاء تخرج هذه الرسالة

 d1.jpg.2279b269e557c8c2af6d6f2b79662493.jpg

وهي تخرج فقط عند نجاح العملية .. أما عند وجود أخطاء فلا تخرج

ADDBOOK.accdb

قام بنشر

تمام .. راحت الرسالة 🙂

ولكن أخي الكريم للاستفادة اسمح لي ببعض الاستفسارات:

هذه السطر أستخدمه كثيرا في أكواد أخرى وبطريقة مشابهة لما في هذا الكود، ولم أجابه هذه المشكلة إلا هنا .. هل يوجد خطأ آخر في الكود يتسبب بهذه المشكلة ؟

وهل يؤثر حذفه على الكود إذا كانت هناك أخطاء أخرى عند التنفيذ ؟

قام بنشر

الأفضل أن تكتبها هكذا أخي العزيز ..

ERR:
    If ERR.Number = 3078 Then
        MsgBox "الجدول المصدر ( " & Me.txt1 & " ) غير موجود !!", vbInformation + vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "خـطـأ"
        DoCmd.RunSQL "DROP table [" & Me.txt2 & "]"
        Exit Sub
    ElseIf ERR.Number = 0 Then
        Exit Sub
    Else
        MsgBox ERR.Number & vbCrLf & ERR.Description, vbInformation
    End If

السطر الذي ذكره أخي العزيز @Barna مهم جدا ومفيد لتعقب الأخطاء .. وهو الذي أعطاك أن رقم الخطأ = 0 .. ويشير رمز الخطأ 0 إلى عدم وجود حالة خطأ... لذلك نضع له حالة خاصة به بأن يتم تجاهل الرسالة .

  • Like 2
قام بنشر (معدل)

شراً للأخوين الكريمين  Barna Moosak

ولكن من المخجل القول بأن سبب الحيص بيص الذي وقعت فيه هو خطأ واضح في الكود 🙄، وهو أنني نسيت جملة (Exit Sub) قبل (ERR:) والكود بشكله الصحيح

 07.jpg.4e5605e3fbd1ad0a395c731b1635a70c.jpg

واكتشفت هذا الخطأ وأنا أجري التجارب لاختراع كود جديد 😀

وأعتذر للإخوة الكرام على إزعاجهم بسبب هذا الخطأ البدائي 😐

تم تعديل بواسطه nssj
  • Thanks 1
  • Haha 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information