استفسار عن تغيير اسم اليبل في الفورم

[أمير ادم]

السلام عليكم ورحمة الله وبركاته

الاخوه مشرفين واعضاء المنتدى

لدي نموذج رئيسي وفرعي اريد تغير اللغه من عربي الى انجليزي من خلال اليبل تم العمل بالفعل في النموذج الرئيسي ولكن لم اتمكن من تفعيلها مع الفرعي

واليكم المرفق بارك الله فيكم

LONG.accdb

تم تعديل سبتمبر 21, 2020 بواسطه أمير ادم

[husamwahab]

عليكم السلام

Me.Table2Subform.Form.NoOrder_Label.Caption = "NoOrder"

Me.Table2Subform.Form.NoOrder_Label.Caption = "رقم الطلب"

هذا الكود لرقم الطلب ويمكن التعديل على البقية بنفس الطريقة

[jjafferr]

وعليكم السلام 🙂

 

تفضل:

Me.Table2Subform!NoOrder_Label.Caption = "jjafferr"

 

جعفر

 

[أمير ادم]

jjafferr

• جعفر

بارك الله فيك استاذي الكريم نعم هو المطلوب اشكرك

[أمير ادم]

husamwahab

بارك الله فيك استاذي الكريم

[jjafferr]

اخي امير

 

لا يُنصح بكتابة اللغة العربية في الكود ، 

لذا اقترح عليك النظر في طريقة حفظ البيانات العربية (او اي لغة اخرى) في الجدول ، ومن ثم قرأتها من هناك ، من الرابط المرفق ، وخذ منه قدر حاجتك 🙂

 

 

جعفر

[د.كاف يار]

اخي الكريم 

الطريقة التي تستخدمها جدا مجهدة 

• ماذا لو أردت مستقبل اضافة لغة أخرى هل ستعيد بناء الكود من جديد ؟؟

💡 اقتراح

استخدم خدمة translate google 

فهي تحوي اغلب لغات العالم

 

ان جازت لك الفكرة ستجد ادناه الطريقة للاستفادة منها

 

انشئ Module جديد و اعطه اي اسم ترغب به و ثم اضف الكود التالي

Option Explicit
Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String
Dim strURL As String
Dim objHTTP As Object
Dim objHTML As Object
Dim objDivs As Object, objDiv As Object
Dim strTranslated As String

strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _
    "&sl=" & strFromSourceLanguage & _
    "&tl=" & strToTargetLanguage & _
    "&ie=UTF-8&prev=_m&q=" & strInput

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding
objHTTP.Open "GET", strURL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ""

Set objHTML = CreateObject("htmlfile")
With objHTML
    .Open
    .Write objHTTP.responsetext
    .Close
End With

'Range("H1") = objHTTP.responsetext

Set objDivs = objHTML.getElementsByTagName("div")

For Each objDiv In objDivs

    If objDiv.className = "t0" Then
        strTranslated = objDiv.innerText
        Translate = strTranslated
    End If

Next objDiv



Set objHTML = Nothing
Set objHTTP = Nothing
End Function

 

بعد ان اضفنا الشفرة الخاصة بجلب اللغة نبدء الأن باستدعاء تلك الشفرة بالطاريقة التالية

في حدث ازرار اللغة ضغط كود استدعاء الشفرة اعلاء لاستبدال اللغة المدخلة الى اللغة التي تريدها

 

' رسالة للتجربة
MsgBox Translate("اهلا و سهلا", "ar", "en")

 

 

بهذه الطريقة تستطيع بناء جدول يحتوي على جميع اللغات التي تريدها و بكل بساطه تستطيع ان تجعل برنامج يخدم جميع لغات العالم

 

تقبل مروري

تم تعديل سبتمبر 22, 2020 بواسطه د.كاف يار