سلمان الشهراني قام بنشر أغسطس 29, 2019 مشاركة قام بنشر أغسطس 29, 2019 اسعدالله اوقاتكم بكل خير طبعا انا استخدم هذه الطريقه وهذا الكود من عدة سنوات وهو للمبدع والاستاذ جعفر طبعا الكود خاص بجلب الترجمه من جدول الترجمات ويعمل بكفائه ولكن عندي نماذج كثير وايضاً فيه نماذج فرعيه كثيره داخل نموذج رئيسي وهنا لابد احط الكود في جميع النماذج عند التحميل بالإضافة الى ان الجدول يحتوي على مايقارب 2500 سجل وهنا يحدث تاخير في فتح النموذج بعض الوقت المطلوب هو وضع الكود في وحده نمطيه عامه ومن ثم استدعائه في جميع شاشات البرنامج اتوقع انه اخف على البرنامج واسرع في فتح الشاشات وشاكر للجميع sa.rar رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 30, 2019 مشاركة قام بنشر أغسطس 30, 2019 اتفضل sa.rar 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 30, 2019 الكاتب مشاركة قام بنشر أغسطس 30, 2019 (معدل) سلمت يمينك ولله يعطيك الف عافيه ولكن يوجد مشكله في اسم النمودج في الوحده المنطيه يفضل تكون عامه لجميع النماذج تم تعديل أغسطس 30, 2019 بواسطه سلمان الشهراني رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 30, 2019 الكاتب مشاركة قام بنشر أغسطس 30, 2019 بس فيه مشكله وهو انه تم التحديد على نموذج FM_1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 30, 2019 مشاركة قام بنشر أغسطس 30, 2019 جرب هذا 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 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 30, 2019 الكاتب مشاركة قام بنشر أغسطس 30, 2019 الله يعطيك العافيه لسى يعطي رسالة خطاء كما هو في الصوره رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر أغسطس 30, 2019 مشاركة قام بنشر أغسطس 30, 2019 أخي @سلمان الشهراني هل باقي نماذج نفس نماذج كما هو في المرفق ولا مختلف بعدد حقول و اسماء الحقول و اسماء تسميات مثلا ، لان المطلوب يتطلب كثير من العمل حتى لا يذهب تعبنا بمهب الريح و سؤال الثاني في برنامجك عند اختيار لغة الانجليزي هل تتغير تجاه النموذج الى من يسار الى اليمين يعني تسميات الى اليسار و مربعات نص على اليمين ، ارجو توضيح و نحن في خدمة ان شاء الله 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 30, 2019 الكاتب مشاركة قام بنشر أغسطس 30, 2019 (معدل) خدمك المال والبنون بنسبه للسؤال الاول نعم مايقارب 50 نموذج باسماء مختلفه وحقول مختلفه بنسبه للسؤال الثاني لايتغير اتجاه النموذج ولا مربعات النص ثابته فقط الترجمه تتغير كما هو في المثال المرفق سابقا تم تعديل أغسطس 30, 2019 بواسطه سلمان الشهراني رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر أغسطس 31, 2019 مشاركة قام بنشر أغسطس 31, 2019 8 ساعات مضت, سلمان الشهراني said: مايقارب 50 نموذج باسماء مختلفه وحقول مختلفه أسماء نماذج طبعا مختلفة انا سئلتك أسماء مربعات وتسمياتها داخل نماذج ، و نسيت اسئلك مصادر عناصر تحكم تلك النماذج هل هو نفس جدول ولا كل نموذج له جدول على العموم انت جرب المرفق و وافيني بنتيجة sa.rar 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 31, 2019 الكاتب مشاركة قام بنشر أغسطس 31, 2019 الله ينور عليك استاذي الكريم ممتاز عمل ولكن فقط حكاية تغيير مربعات التسميه لمى تنتقل من اليمين لليسار يتلخبط النموذج ياليت تبقى ثابته بنسبه لمصادر عناصر تحكم تختلف المصادر رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر أغسطس 31, 2019 مشاركة قام بنشر أغسطس 31, 2019 عليك نور أخي ممكن ارفاق النموذج رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر أغسطس 31, 2019 مشاركة قام بنشر أغسطس 31, 2019 تفضل أخي اليك التعديل على حسب ترتيب عناصر في نموذج حيث يبدء محاذات عناصر من اقرب عنص الى اليسار، و عرض مربع النص الى اعرض مربع في نموذج ،و تسميات ايضا الى اعرض تسمية في نموذج هذا ومهما كان مصادر عناصر و مهما كان مكانهم في نموذج. عرض عند اختيار لغة العربية و اللغة الانجليزية sa.rar 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 31, 2019 الكاتب مشاركة قام بنشر أغسطس 31, 2019 (معدل) بارك الله وفيك وزادك الله من علمه والف شكر لك استاذي باذن الله راح اجرب واوافيك بالنتيجه اضفت لك شاشتين وصورت لك شكل الشاشه قبل اي تعديل وشكل الشاشه بعد اضافة الوحده النمطيه تم تعديل أغسطس 31, 2019 بواسطه سلمان الشهراني رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 31, 2019 الكاتب مشاركة قام بنشر أغسطس 31, 2019 بعد التجربه تظهر النتيجه كما في الصور رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر سبتمبر 1, 2019 مشاركة قام بنشر سبتمبر 1, 2019 (معدل) طيب انظر التعديل عند اختيار لغة العربية ستكون كل عناصر في مكانهم كما هو اما عند انجلزية تتغير الى اليسار sa.rar تم تعديل سبتمبر 1, 2019 بواسطه ابو عارف تغير المرفق 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر سبتمبر 1, 2019 الكاتب مشاركة قام بنشر سبتمبر 1, 2019 (معدل) الله يعطيك الف الف عافيه ممتاز عمل بشكل سليم مع النماذج التي لايوجد بها نماذج فرعيه اما النماذج التي تتضمن نموذج فرعي فتظهر رساله عند الفتح وبعد الفتح تجد ان النموذج الرئيسي سليم ولا يوجد مشكله اما النموذج الفرعي فلم تتغير الترجمه ولا الاتجاه تم تعديل سبتمبر 1, 2019 بواسطه سلمان الشهراني رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر سبتمبر 1, 2019 مشاركة قام بنشر سبتمبر 1, 2019 قريبا إن شاء الله بسيطة 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر سبتمبر 2, 2019 الكاتب مشاركة قام بنشر سبتمبر 2, 2019 الله يسعدك دنيا واخره رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر سبتمبر 2, 2019 مشاركة قام بنشر سبتمبر 2, 2019 و هذا حل مشكلة نموذج فرعي إن شاء الله ملحوظة: لا تضع كود لاستدعاء وحدة نمطية في حدث عند الفتح او عتد تحميل في نموذج فرعي sa.rar رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر سبتمبر 2, 2019 الكاتب مشاركة قام بنشر سبتمبر 2, 2019 الله يرضى عليك ويعطيك الف عافيه تعبتك معاي ولكن لك مني الدعاء في ظهر الغيب زادك الله من علمه وبارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر سبتمبر 3, 2019 مشاركة قام بنشر سبتمبر 3, 2019 آمين وأنت أيضا بارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.