'Test if control contains text If IsNull(Screen.ActiveControl) = False Then 'convert text to Upper Case Screen.ActiveControl = StrConv(Screen.ActiveControl, vbUpperCase) End If
هذا الكود لعمل ذلك ولكن بشرط ان يكون مربع النص في النموذج الرئيسي
ما هو التغيير ليعمل في نموذج فرعي
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
بسم الله الرحمن الرحيم
يمكنك تجربة هذا الكود فى حدث الـ KeyPress الخاصة بالأداة
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
شكرا لك عزيزي
نجح الكود
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…