احتاج تعريب قاعدة بيانات هل من مساعد

[Hema_Elhelow]

احتاج الى تعريب ملف قاعدة البيانات

https://www.mediafire.com/file/jdao5gryu8snc10/tf10251225+(1).accdt/file

هل من مساعدة

 

[د.كاف يار]

تفضل اضف هذا الكود في جميع الصفحات في حدث عند الفتح

Dim ctl As Control
For Each ctl In Me.Controls
    If TypeName(ctl) = "Label" Then
        Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "")
        Form.Controls(ctl.Name).FontName = "Times New Roman"
        Form.Controls(ctl.Name).FontWeight = 900
    End If
    If TypeName(ctl) = "CommandButton" Then
        Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "")
        Form.Controls(ctl.Name).FontName = "Times New Roman"
        Form.Controls(ctl.Name).FontWeight = 900
    End If
    If TypeName(ctl) = "Page" Then
        Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "")
    End If
Next ctl

الترجمة بإستخدام Google

Database12222.zip