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

admin

عضو إداري
ادارة المنتدى

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

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

كود:
Private Sub VinNo_KeyPress(KeyAscii As Integer)

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

End Sub
هـــذا كل شئ بالتوفيق لكم جميعا
مع خــالص تحياتي
admin
 

أعلى