Hema_Elhelow قام بنشر أبريل 23, 2022 مشاركة قام بنشر أبريل 23, 2022 احتاج الى تعريب ملف قاعدة البيانات https://www.mediafire.com/file/jdao5gryu8snc10/tf10251225+(1).accdt/file هل من مساعدة رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أبريل 23, 2022 مشاركة قام بنشر أبريل 23, 2022 تفضل اضف هذا الكود في جميع الصفحات في حدث عند الفتح 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 4 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان