لماذا تظهر هذه الرسالة في هذا الكود (كود لإنشاء جدول جديد)

[nssj]

 

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

 

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

ADDBOOK.accdb

[Barna]

الغي هذا السطر ......

 

[nssj]

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

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

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

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

[Moosak]

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

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 إلى عدم وجود حالة خطأ... لذلك نضع له حالة خاصة به بأن يتم تجاهل الرسالة .

[nssj]

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

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

 

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

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

تم تعديل أغسطس 11, 2022 بواسطه nssj