كود للكتابة في الحقل باستخدام أحرف كبيرة

[admin]

السلام عليكم ورحمة الله وبركاه
--------------------------------------------
اهلا ومرحبا بكم في قسم عــالم الاكسيس
--------------------------------------------

​

أقدم لكم اليوم :
كـــــــود للكتابة بالاحرف الكبيرة (Capital letters) في حقول الاكسيس
​

Private Sub VinNo_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

هـــذا كل شئ بالتوفيق لكم جميعا​

مع خــالص تحياتي
admin
​