هذا برنامج وضعه الاستاذ أشرف خليل عن كيفية استخراج الأرقام المفقودة
على هذا الرابط
http://www.arabteam2000.com/ib/index.php?s...t=0entry39765
وهذا الرابط أيضاً في نفس الموضوع
http://www.arabteam2000.com/ib/index.php?s...t=0entry54155
وعندما أردت استخدامه بعد حاجتي له لاحظت أنه غير دقيق في عمله .
فهل أجد منكم من يقوم بالتعديل على الكود ليكون دقيق 100%
في الملف المرفق توضيح الخطأ الذي يقع في الكود.
تحياتي
للرفع
الأستاذ فهد الدوسري
السلام عليكم ورحمة الله وبركاته
في الحقيقة سبب التكرار هو أسلوب إدخال الأرقام في الجدول
فعند تتبعي لتنفيذ الكود في الوحدة النمطية وجدته يقرأ السجل الأول بالرقم (8)
في حين أن الرقم الأصغر هو الرقم (1)
فيما يبدوا أنك قمت بإدخال الرقم (8) قبل غيره !!
لذلك قمت بعمل استعلام على جدول الأرقام مع عمل فرز تصاعدي على حقل الرقم
(يمكن الاستغناء عن الاستعلام في حالة معرفتك كيفية فتح جدول مع الفرز التصاعدي ـ داخل الوحدة النمطية ـ )
ثم قمت بفتح الاستعلام ـ في الوحدة النمطية ـ بدلاً من الجدول
الكود السابق لم يكن ليكشف عدم وجود الرقم (1) في حالة عدم تسجيله
فقمت بعمل بعض التغييرات للكشف على وجود الرقم (1) من عدمه ومن ثم تسجيله في حالة العدم .
يمكنك معرفة التغييرات عند اطلاعك على الوحدة النمطية
فائدة :
لتتبع عمل الكود : اضغط على مفتاح F8 حيث يقوم بتنفيذ الأوامر في الكود خطوة خطوة
ومع كل خطوة ضع الماوس على متغيرات الحقول لمعرفة محتواها ، ومن ثم معرفة موطن الخلل .
الملف المرفق به التعديل
أخوك أبو سليمان
تم تعديل هذه المشاركة بواسطة أبوسليمان في 24 ديسمبر 2003 في 13:34
لك مني الشكر الجزيل
ولكن الملف الذي وضعته أنت بامتداد exe وأنا لا أحمل هذا النوع من الملفات لخطورتها في بعض الأحيان .
فياليتك تضع الملف الخاص بالأكسس لكي أرى ما قمت به أنت .
ولك خالص تحياتي
قمت بعمل استعلام وفرز تصاعدي وعمل الكود تمام
لكن طريقة إضافة الرقم (1) إذا لم يكن موجود لم أتمكن منها حتى الآن وسوف أستمر في المحاولة إلا أن تضع الملف الذي عملته أنت.
ولدي استفسار عن مفتاح F8
متى أضغط عليه هل وأنا في تصميم الوحدة النمطية العامة أو في عرض النموذج أو متى بالضبط لكي أستفيد من هذه الميزة التي عن طريقها أتتبع أخطاء الأكواد فهذه الطريقة مفيدة جداً .
ولك تحياتي
تم تعديل هذه المشاركة بواسطة فهد الدوسري في 24 ديسمبر 2003 في 17:31
الأستاذ الكريم
فهد الدوسري
بالنسبة لمفتاح F8 فيتم ضغطه أثناء عملك في الوحدة النمطية .
أما بخصوص الملف المرفق السابق هو نفس ملف الأكسس مضغوط بال WinRar على شكل ملف تنفيذي وذلك ليعمل حتى في الأجهزة التي ليس بها برنامج الضغط WinRar
عمومًا الملف مرفق مرة أخرى بالضغط العادي دون التشغيل الذاتي
والله يحفظك ويرعاك
أخوك أبوسليمان
الله لا يحرمك الأجر والمثوبة أستاذي أبو سليمان
جزاك الله ألف خير
وهذا شيء يسير مما استفدته من هذا المنتدى العامر
ومنك خاصة أستاذي / فهد
والله يحفظكم ويرعاكم
أخوكم
أبو سليمان
مثال آخر يعرض نفس الفكرة و لو بطريقة مخالفة يمكن أن يستفيد منه الاخوة
بارك الله فى الجميع
أشرف خليل
هذا الموضوع مغلق.