خانة إدخال البيانات ؟

[بوكفوس عبدالسلام]

السلام عليكم ...

عند إدخال البيانات في قاعدة البيانات أكسس باللغة الاجنبية  تكون الأحرف صغيرة ( small latter / miniscule ) مثلا ( abc )( صورة مرفقة ).

سؤالي : كيف يمكن جعلها أحرف كبيرة آليا عند الكتابة ( capital latter / miajuscule ) أي ( ABC )؟

تم تعديل فبراير 21, 2025 بواسطه بوكفوس عبدالسلام
إضافة معلومة

[kkhalifa1960]

تفضل استاذ @بوكفوس عبدالسلام .

فردي ......

Private Sub YourFieldName_AfterUpdate()
    Me.YourFieldName = UCase(Me.YourFieldName)
End Sub

استبدل YourFieldName باسم الحقل النصي الخاص بك.

هذا الكود سيحول أي نص يتم إدخاله في الحقل إلى أحرف كبيرة تلقائيًا عند التحديث. إذا كنت بحاجة إلى تطبيق ذلك على عدة حقول، يمكنك تكرار الخطوات لكل حقل.

 

جماعي ......

Private Sub Form_AfterUpdate()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            ctl = UCase(ctl)
        End If
    Next ctl
End Sub

هذا الكود سيقوم بالبحث عن جميع مربعات النص في النموذج ويحول أي نص يتم إدخاله فيها إلى أحرف كبيرة تلقائيًا عند التحديث

تم تعديل فبراير 21, 2025 بواسطه kkhalifa1960