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

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

 قد تحتاج في برنامجك منع المستخدم من الكتابة في مربع نص  باستثناء كتابة الارقام وعند استخدام قواعد التحقق فانها تسمح بادخال النص او الرمز وبعد ذلك تظهر رسالة بان الادخال خاطئ وعلية فان عملية منع الادخال بشكل نهائي تكون من خلال الكود التالي في حدث عند الضغط على زر(KeyPress) الخاص بمربع النص Text1

VBA 

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 48 To 57   'الارقام من 0 الى 9
        
        Case Else       'اذا تم ادخال اي قيمة عد الارقام المحددة اعلاة يتم تنفيذ الاتي 
        
        KeyAscii = 0 ' سيتم الغاء عملية ادخال الحرف او الرمز واعتبار انه لم يتم ادخال شيء 
    End Select
End Sub

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