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

[N_ELMASRY]

السلام عليكم ورحمة الله وبركاته

الأخوة الأفاضل

أقوم بعمل استيراد للبيانات من الاكسيل لجدول بيانات بقاعدة البيانات، يحتوى على رقم السجل (لايتكرر) والاسم والرقم القومى (يجب أن يحتوى على 14 رقم) وكود النوع

عند الاستيراد تظهر رسالة تم الاستيراد بنجاح ولكن قد يكون هناك خطأ حيث لم يستورد جميع البيانات بسبب الشروط الموجوده على الجدول مثل : عدم تكرار رقم السجل أو ان الرقم الوقومى اقل أو اكثر من 14 رقم . 

أريد إظهار رسالة توضح للمستخدم أن الاستيراد قد تم ولكن هناك خطأ فى الحقل الفلانى (الذى لم يتم الاستيراد بسبب مخالفة الشرط عليه) أو لم يتم الاستيراد إذا لم يتم الاستيراد مطلقا، بمعنى رسالة توضح نوع الخطأ .

ومرفق قاعدة بيانات وملف اكسيل للتجربة عليه

ولكم جزيل الشكر 

والسلام عليكم ورحمة الله وبركاته

 

Import from Excel.rar

[N_ELMASRY]

هل من جديد

[N_ELMASRY]

هل من جديد

[أبو إبراهيم الغامدي]

أعلا بك عزيزي

نعم.. إليك الخطة..

_ نقوم بالاتصال بملف أكسل على هيئة قاعدة بيانات، ثم نقوم بفتح ورقة البيانات كمصدر لسجل البيانات.

_ بما أن الجدول الذي سنرحل إلية البيانات قد أنشئ في قاعدة البيانات الحالية فسنقوم بفحص البيانات القادمة من مصدر سجل البيانات على النحو التالي:

* التعامل مع السجل الأول..

__ فحص طول الرقم القومي فإذا لم يساوي 14 رقما فسوف يرسل السجل المفحوص إلى متغير للسجلات التي بها خطأ مع بيان نوع الخطأ.

__ إذا كان السجل سليما من ناحية الرقم القومي فسنقوم بإدراج السجل في جدول البيانات..

* التعامل مع السجل التالي

__ فخص الرقم القومي من ناحية الطول ومن ناحية التكرار... إلخ.

__ فحص السجل من ناحية تكرار رقم السجل مع السجل الذي سبق إدراجه في جدول البيانات ... إلخ.

_ عند الانتهاء من فحص جميع السجلات سنقوم بعرض السجلات التي بها خطأ في عنصر قائمة تحرير وسرد لمراجعتها واتخاذ الإجراء المناسب حبالها.

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

 

تم تعديل مايو 6, 2018 بواسطه أبو إبراهيم الغامدي

[N_ELMASRY]

جزاك الله خيرا للاهتمام والرد 

ولكن ملف الاكسيل قابل لتغيير اسمه مع كل مستخدم

مرفق ملف اكسيل بالاخطاء المحتمله

وجزاك الله خيرا 

Tbl_Data.xlsx

[أبو إبراهيم الغامدي]

السلام عليكم ورحمة الله

حسب تصويري السابق لحطة العمل أرجو أن يحوز المرفق على رضاك

Error In Import.zip

 

[N_ELMASRY]

جزاك الله خيرا

وجارى التطبيق

[فقير ومشتري الدنيه بضحكتي]

ضع قبل كتابتك للكود الكود الاتي 

on error resume goto w:

كتابة الكود الخاص بك هنا 

w: msgbox err.description   لعرض وصف للخطا