اريد عمل الكتابه فى الجدول بحروف Capital و small

[خالد عبد المنعم]

السلام عليكم شكرا لك اخى التقنى و شكرا للاخ امير عاطف

انا اريد عمل الكتابه فى الجدول بحروف Capetal و اخرى بحروف small

من غير استخدام زر caps lock

[التقني]

وعليكم السلام ورحمة الله

حياك الله أخي العزيز

بالنسبة لتحويل الحروف الانجليزي الى كبيرة فيمكن استخدام هذا الكود :

ضع هذا الكود في الجنرال General لمحرر الفيجوال البيسك :

Public Sub ConvertToUpper()
'Test if control contains text
   If IsNull(Screen.ActiveControl) = False Then
'convert text to Upper Case
       Screen.ActiveControl = StrConv(Screen.ActiveControl, vbUpperCase)
   End If
End Sub

ثم ضع هذا الكود لحدث بعد التحديث لمربع النص وليكن اسمه Name والذي سيتم فيه التحويل :

Private Sub Name_AfterUpdate()
'Convert the text entered to Upper Case
   ConvertToUpper
End Sub

هذا الكود من عمل الأخت زهره حفظها الله ورعاها .

بالتوفيق