اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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