اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

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

الرقم القومى

استخدمت الكود التالى للتحقق من كون الأرقام المدخلة فيه = 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

تحياتي,,,

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information