عدم حذف الصفر في بداية الرقم عند تعيين خاصية عنصر التحكم الى ارقام

[Abdulkader 7]

السلام عليكم

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

مثال :

09856552

تصبح على الشكل التالي :    9856552

اريد ان لا يحف الصفر

 

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

 

مرفق للرفع والتعديل من معلمينا .....

قاعدة بيانات3.zip

تم تعديل فبراير 23, 2013 بواسطه syria

[أبو آدم]

أخي العزيز

 

هناك مجموعة من الخيارات لموضوع منع إدخال الأحرف في مربع النص و قصر الإدخال على الأرقام

 

منها : في خصائص الحقل في النموذج >>  قناع الإدخال InputMask  :  أكتب ############ بعدد الأرقام الذي تريدها في الحقل

...........

ومنها : في حدث عند التغيير للحقل  (Text1)  إنسخ الكود

 

 

 

Private Sub Text1_Change()
Ut_IntegerValidation Text1
End Sub
 

وفي محرر الفيجوال للنموذج إنسخ الروتين

 

 

 

Public Function Ut_IntegerValidation(ByVal MyTextBox As Control)

If Not IsNumeric(MyTextBox.Text) Then
MyTextBox.Text = ""
ElseIf IsNumeric(MyTextBox.Text) Then
If Val(MyTextBox.Text) < 0 Then
MyTextBox.Text = ""
End If
End If

End Function
 

 

ولها أيضا حلول أخرى  .......

 

والتطبيق في المرفق (2003 و 2007)

...........

 

 

NA_IsNumeric.rar

[أبا عمر]

جزاك ربي خيرا أستاذي أبو آدم جعله ربي في موازين حسناتك يوم تلقاه

تم تعديل فبراير 24, 2013 بواسطه أبا عمر

[أبو آدم]

اللهم آمين ... آمين

 

شكراً لك لدعائك الطيب ، فكلنا بحاجة لدعوة طيبة مستجابة بإذنه تعالى

........

[شامل2]

بارك الله فيك اخينا ابو آدم

[Abdulkader 7]

شكراً لك استاذي الكريم على الفائدة وجعلها الله في ميزان حسناتك .... تقبل تحياتي .....

[أبو آدم]

الحمدلله الذي بفضله تقضى الحاجات

 

تمت الاجابة