nssj قام بنشر أغسطس 10, 2022 قام بنشر أغسطس 10, 2022 الإخوة الكرام .. في الملف المرفق كود لإنشاء جدول مع استيراد بعض بياناته من جدول آخر .. والكود يعمل بشكل جيد بحمد الله .. لكن بعد الانتهاء تخرج هذه الرسالة وهي تخرج فقط عند نجاح العملية .. أما عند وجود أخطاء فلا تخرج ADDBOOK.accdb
nssj قام بنشر أغسطس 10, 2022 الكاتب قام بنشر أغسطس 10, 2022 تمام .. راحت الرسالة 🙂 ولكن أخي الكريم للاستفادة اسمح لي ببعض الاستفسارات: هذه السطر أستخدمه كثيرا في أكواد أخرى وبطريقة مشابهة لما في هذا الكود، ولم أجابه هذه المشكلة إلا هنا .. هل يوجد خطأ آخر في الكود يتسبب بهذه المشكلة ؟ وهل يؤثر حذفه على الكود إذا كانت هناك أخطاء أخرى عند التنفيذ ؟
Moosak قام بنشر أغسطس 10, 2022 قام بنشر أغسطس 10, 2022 الأفضل أن تكتبها هكذا أخي العزيز .. 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 إلى عدم وجود حالة خطأ... لذلك نضع له حالة خاصة به بأن يتم تجاهل الرسالة . 2
nssj قام بنشر أغسطس 11, 2022 الكاتب قام بنشر أغسطس 11, 2022 (معدل) شراً للأخوين الكريمين Barna Moosak ولكن من المخجل القول بأن سبب الحيص بيص الذي وقعت فيه هو خطأ واضح في الكود 🙄، وهو أنني نسيت جملة (Exit Sub) قبل (ERR:) والكود بشكله الصحيح واكتشفت هذا الخطأ وأنا أجري التجارب لاختراع كود جديد 😀 وأعتذر للإخوة الكرام على إزعاجهم بسبب هذا الخطأ البدائي 😐 تم تعديل أغسطس 11, 2022 بواسطه nssj 1 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.