اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

المطلوب وضع الكود في وحده نمطيه عامه


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

اسعدالله اوقاتكم بكل خير
طبعا انا استخدم هذه الطريقه وهذا الكود من عدة سنوات وهو للمبدع والاستاذ جعفر
طبعا الكود خاص بجلب الترجمه من جدول الترجمات
ويعمل بكفائه ولكن عندي نماذج كثير وايضاً فيه نماذج فرعيه كثيره داخل نموذج رئيسي وهنا لابد احط الكود في جميع النماذج
عند التحميل بالإضافة الى ان الجدول يحتوي على مايقارب 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