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

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

قام بنشر

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

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

sa.rar

قام بنشر

جرب هذا

Public Function Lang_Selection()


On Error GoTo err_Form_Load
mySQL = "Select * From tbl_Controls_Properties"
mySQL = mySQL & " WHERE Form_Name='" & Forms.FM_1.Name & "'"
mySQL = mySQL & " AND Language='" & Forms!frm_Main!Lang & "'"

Dim rst As DAO.Recordset
Dim X() As String
Set rst = CurrentDb.OpenRecordset(mySQL)
rst.MoveLast: rst.MoveFirst
iTwips = 576 '576 twips/cm , 1440 twips/inch
For i = 1 To rst.RecordCount
Forms.FM_1(rst!Ctl_Name).Caption = rst!ctl_Caption
Forms.FM_1(rst!Ctl_Name).Left = rst!ctl_Left * iTwips
If Len(rst!ctl_Style & "") <> 0 Then
X = Split(rst!ctl_Style, "|")
With Forms.FM_1(rst!Ctl_Name)
.FontName = X(0)
.FontSize = X(1)
.FontWeight = X(2)
.FontItalic = X(3)
.FontUnderline = X(4)
.ForeColor = X(5)
If rst!Language = "A" Then
'0=General
'1=Left
'2=Center
'3=Right
'4=Distribute
.TextAlign = 3
Else
.TextAlign = 1
End If
End With
End If
rst.MoveNext
Next i
Exit Function
err_Form_Load:

If Err.Number = 438 Or Err.Number = 13 Then
'ignor,
Resume Next
Else
MsgBox Err.Number & vbCrLf & Err.Description
End If


End Function

 

قام بنشر

أخي @سلمان الشهراني هل باقي نماذج نفس نماذج كما هو في المرفق ولا مختلف بعدد حقول و اسماء الحقول و اسماء تسميات مثلا ، لان المطلوب يتطلب كثير من العمل  حتى لا يذهب تعبنا بمهب الريح و سؤال الثاني في برنامجك عند اختيار لغة الانجليزي هل تتغير تجاه النموذج الى  من يسار الى اليمين يعني تسميات الى اليسار و مربعات نص على اليمين ، ارجو توضيح و نحن في خدمة ان شاء الله

  • Like 1
قام بنشر (معدل)

خدمك المال والبنون

بنسبه للسؤال الاول نعم 

مايقارب 50 نموذج باسماء مختلفه وحقول مختلفه

بنسبه للسؤال الثاني

لايتغير اتجاه النموذج ولا مربعات النص 

ثابته فقط الترجمه تتغير 

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

تم تعديل بواسطه سلمان الشهراني
قام بنشر
8 ساعات مضت, سلمان الشهراني said:

مايقارب 50 نموذج باسماء مختلفه وحقول مختلفه

أسماء نماذج طبعا مختلفة انا سئلتك أسماء مربعات وتسمياتها داخل نماذج ، و نسيت اسئلك مصادر عناصر تحكم تلك النماذج هل هو نفس جدول ولا كل نموذج له جدول

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

 sa.rar

  • Like 1
قام بنشر

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

image.png.3ceaacb31688e6a681eb87670de7ee01.png

عرض عند اختيار لغة العربية

image.png.0e026a591c32ce9713f9b42f03ffc627.png

و اللغة الانجليزية

image.png.37ec7586903782868b40301e2dae3ab9.png

sa.rar

  • Like 1
قام بنشر (معدل)

بارك الله وفيك
وزادك الله من علمه والف شكر لك استاذي
باذن الله راح اجرب واوافيك بالنتيجه

اضفت لك شاشتين وصورت لك شكل الشاشه قبل اي تعديل وشكل الشاشه بعد اضافة الوحده النمطيه

تم تعديل بواسطه سلمان الشهراني
قام بنشر (معدل)

طيب انظر التعديل عند اختيار لغة العربية ستكون كل عناصر في مكانهم كما هو  اما عند انجلزية تتغير الى اليسار

sa.rar

 

تم تعديل بواسطه ابو عارف
تغير المرفق
  • Like 1
قام بنشر (معدل)

1.jpg.f4577fb7e2775dbd31de5f6296bb9528.jpgالله يعطيك الف الف عافيه
ممتاز عمل بشكل سليم مع النماذج التي لايوجد بها نماذج فرعيه
اما النماذج التي تتضمن نموذج فرعي فتظهر رساله عند الفتح وبعد الفتح تجد ان النموذج الرئيسي سليم ولا يوجد مشكله
اما النموذج الفرعي فلم تتغير الترجمه ولا الاتجاه

 

 

 

 

 

1.jpg

2.jpg

تم تعديل بواسطه سلمان الشهراني

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information