طرح الاخ المحاسب الجديد موضوع عن عدم الكتابه بالارقام وهو موضوع رائع ويعمل بشكل ممتاز ولكن المشكله انه عند تحويل الكيبورد الى اللغة العربيه يحدث خطاء ارجو من الاخ المحاسب الافاده تو الاخوه والموضوع موجود على الرابط التالى /index.php/topic/223430-%D8%AD%D9%82%D9%84-%D9%85%D8%B4%D8%B1%D9%88%D8%B7-%D8%A8%D8%A7%D9%86-%D9%84%D8%A7-%D9%8A%D9%83%D9%88%D9%86-%D8%A3%D9%82%D9%84-%D9%85%D9%86-%D8%B9%D8%AF%D8%AF-%D9%85%D8%B9%D9%8A%D9%86/
وهو موضوع رائع
Option Compare Database
Private Sub Text0_KeyPress(KeyAscii As Integer)
Dim Chkstr As String
Chkstr = "0123456789"
If KeyAscii > 26 Then 'Çí Çä ÇáãÝÊÇÍ ÇáÐí Êã äÞÑå áíÓ ãä Öãä ãÝÇÊíÍ ÇáÊÍßã ãËá Ctrl
If InStr(1, Chkstr, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub
