اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

image.png.505184f8ffd618518561a235baf65cdd.png

Database12222.zip

  • Like 4
  • Thanks 2

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information