أبو وليد

المشكله السابقه ممكن التغلب عليها المشكله الاخرى عنوان النموذج ما يتحول للعربي وياليت يكون على اليمن تنسيق now الوقت والتاريخ سويا اعتقد بعد ذلك يمكن ان يكون ثابت لجميع النماذج وفقك الله ورعاك

بارك الله فيك ممتاز ولكن به مشلكه واحده وهي عند تغيير اللغه اكثر من مرتين تزحف العناصر جهة اليمين مع كل تغيير للغه

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

مبدئيا رائع بارك الله فيك

اخ خضر بارك الله فيك يليت تحذف الملفات السابقه (حذفت)

لا شئ سوى اللغه

بارك الله فيك وانا في الانتظار

المنتدى لتبادل الخبرات والاستفادة وحتى لو حاول شخص لمساعدة اخرى ولم يوفق فلابد من الاحترام والاخ / خضر الرجبي من افضل المشرفين المساعدين لنا وخيرتهم فبارك الله له في علمه ورزقه

لو توصلنا الى تنفيذ امر في نموذج فرعي من النموذج الاساسي لحلت المشكله

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

الرجاء بعد التحميل ابعاد الملفات من الموقع فالبرنامج من نوع خاص يالعمل

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

شكرا لك وفقك الله سوف اجرب وارد لك عزيزي لا يوجد ما هو جديد نقلت الحدث الى بعد التحديث لا حظ عند فتح الصفحة الثانية يتم التغيير عند التغيير في النموذج لا يتم التغيير

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

ياليت تضبطه على مثالي السابق المكهرب

جربت وما نفعت سوف اضع للك رابط مثال من موقع اجنبي به وحده نمطيه اتوقع ان لها علاقه هذا المثال http://www.officena.net/ib/index.php?act=A...pe=post&id=1644

شكرا لك ولكن عزيزي هذا الحث في الحالي يتغير الوقت عندكل مره يفتح فيها النموذج انا اريد ما يتغير وقتالتغيير الا عند اجراء تغيير فقط سواء في النموذج الاساسي او الفرعي

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

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

جزاكم الله الف خير في حالة وجود كائن بالنموذج من نوع "مجموعة خيارات" فإن الدالة تغيير الاتجاه ستعطي نتائج غير متوقعة . لذلك تحتاج إلى إضافة أخرى سواء على الدالة المذكورة أعلاه أو مثال الأستاذ خضر . نعم يوجد ومع تجربت الكود اعلاه نجحت مع بعض التغييرات

لا ادري ماذا اقول لك الا الدعاء لك في ظهر الغيب

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

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

اردت المساعدة في كيفية تحويل النموذج من انجليزي الى عربي والعكس من مثال أوقات الصلاة حاولت اقتباس الفكرة ولم استطع المهم ما عرفته هو ان التسمية الاخرى تكتب في tag واخذت كود التحويل واريد بعض المساعده فيه Private Sub SetLang() Dim ctl As Control Dim TempCaption As String ' If Me.Lang.Caption = "English" Then sLang = "Eng" Else sLang = "Arb" TempCaption = Me.Caption Me.Caption = Me.Tag Me.Tag = TempCaption For Each ctl In Me With ctl ' Change Form Left 2 Right Or Rigth 2 Left .Left = Me.Width - (.Left + .Width) ' كيف تتم حسابات اليمين واليسار ' Change Language 4 LabelBox And TextAlign If .ControlType = acLabel Then If Not .Name Like "[gp]0*" Then .TextAlign = GetTextAlign(.TextAlign)' الكود وقف هنا لماذا؟؟؟ If .Tag <> "" Then TempCaption = .Caption .Caption = .Tag .Tag = TempCaption End If End If ' Change Language 4 TextBox If .ControlType = acTextBox Then TempCaption = .Format .Format = .Tag .Tag = TempCaption .TextAlign = GetTextAlign(.TextAlign) End If ' Show Language Colum If .ControlType = acComboBox Then If sLang = "Arb" Then .ColumnWidths = "0;567;0" If sLang = "Eng" Then .ColumnWidths = "0;0;567" ' ماذا تعني هذه الارقام .Requery End If End With Next ctl Call GetCityInf Call fDate(mDate) End Sub ولو امكن شرح كامل الكود فجزاكم الله خيرا

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