اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

لدى مربع نص فى نموذج إدخال اسمه

الرقم القومى

استخدمت الكود التالى للتحقق من كون الأرقام المدخلة فيه = 14 رقما

Private Sub الرقم_القومى_BeforeUpdate(Cancel As Integer)

If Not Len(Trim(الرقم_القومى)) = 14 Then

MsgBox "أدخل الرقم القومى بصورة صحيحة"

Cancel = True

Exit Sub

End If

End Sub

و هل سبب عدم تنفيذ الكود أن اسم مربع النص عربى؟

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

قام بنشر

استاذنا الكبير كيماس نشكرك على الابداع المتواصل

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

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

قام بنشر (معدل)

أصل هذه بيانات مصدرة من إكسل

و أسماء الحقول كلها كانت عربية

ما الحل

هل أعيد تسمية الحقول

و أيضا أعيد بناء نموذج الإدخال؟

جرب هذا الكود

Private Sub الرقم_القومي_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If Not Len(Trim(الرقم_القومى)) = 14 Then

MsgBox "أدخل الرقم القومى بصورة صحيحة"

Cancel = True

Exit Sub

End If

End Sub

تم تعديل بواسطه ولد المجرب
قام بنشر

مشكور اخي ابواحمد وسمع الله منك

اخي kemas هما نفس الشيئ وليس بينهما اي فارق ويمكنك تجربة ذلك في الكود

ولكن عادة ما يتم اعطاء القيمة True الرقم -1 و False الرقم 0

تحياتي,,,

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information