Deg Chkid التأكد من رقم الهوية

تحياتي اذا ممكن حد يساعدني

تحياتي

اذا ممكن حد يساعدني

أخي الفاضل

ممكن تستخدم الدالة Replace

مثال

Me.Textbox1 = Replace([Textbox1], "2", "8")

شكر اليك اخي الكريم

بارك الله فيك

sharawee707 كتب:

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

شكر لكم على مجهودكم الجبار

وبارك الله فيكم

إذا ممكن حد يساعدني في البرنامج بخصوص

DEG CHKID

التأكد من رقم الهوية

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

رقم الهوية يتكون من 9 أرقام الرقم الاخير ناتج عن عملية حسابية كما في البرنامج

البرنامج يعطيك النتيجة هل الرقم صحيح أم خطأ ما في مشكلة بالبرنامج

المطلوب عند إدخال الرقم الخاطئ يجب أن يعطيني الرقم الصحيح تلقائياً

مثال

رقم الهوية صحيح

200000008

فاذا غيرنا أي رقم بدل 8 والمعلم بالاصفر

فيعطينا خطأ

فاذا ادخلنا نفس الرقم ولكن بدل الرقم 8 مثلا 2

فيصبح 200000002 كيف يمكن ان يعطيني البرنامج الرقم الصح أي يحول 2 تلقائيا إلى 8

شكراً لك

شكراا علي المجهوود الرائع

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

وشكرا