اجبار المستخدم على كتابة حروف كبيرةCapital . Small

[أبو وليد]

هذا الكود لعمل ذلك ولكن بشرط ان يكون مربع النص في النموذج الرئيسي

ما هو التغيير ليعمل في نموذج فرعي

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