mas123

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

قاموس الماس الناطق (الإصدار الثالث) عربي انجليزي انجليزي عربي من برمجة أخيكم محمد صالح نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا http://www.4shared.com/rar/QkprD6Zs/mas-Dictionary-v3.html

ما شاء الله أداة رائعة جزاك الله كل خير

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

أخي الكريم إذا اردت تغيير دقة الشاشة للمستخدم وإعادتها عند إغلاق القاعدة يمكنك استعمال الملف المرفق ....... وإذا اردت تحجيم النموذج بما يتناسب مع دقة شاشة المستخدم فقط ضع في موديول الكود التالي Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate fc.FontSize = fc.FontSize * wrate Next End Function وفي حدث عن تحميل النموذج قم باستدعاء الدالة كالتالي resizefrom Me, 800, 600 حيث 800 في 600 هي دقة الشاشة المناسبة لعرض النموذج بدون تحجيم (يمكنك كتابة دقة الشاشة الحالية التي تصمم فيها البرنامج) وإذا تغيرت عن هذا يتغير حجم النموذج سواء بالتكبير أو بالتصغير جرب وأخبرني بالنتيجة mas_resolution.rar

أخي الكريم جاري إعداد ملف للتعامل مع اللغات المتعددة ولي فقط لغتين وعلى الطريقة الأولى خاصتي ومدمج معها كود تغيير الاتجاه (الخاص بأخينا asiliem) إذا كانت اللغة هي العربية أو الفارسية أو العبرية

شكرا لكل من شارك في الموضوع

إذا استخدمت البحث ستجد الكثير هذا واحد منهم http://www.arabteam2000-forum.com/index.php?showtopic=251416

أخي الكريم وليد عند فتح البرنامج يقوم بفتح جميع سجلات مدد الموظف الحالي فقط وليس جميع سجلات مدد الموظفين وبالنسبة لموضوع الإدخال في مربعات النص هذا شيء يرجع لك افعله كما تشاء كما يمكنك تنفيذ إدخال المدة في ثلاثة مربعات ثم استدعاء الأمر format("00",text1) وبالنسبة لموضوع إغلاق الأكسس هذا لأن البرنامج يقوم بالكثير من العمليات لإظهار الناتج بصورته النهائية وحساب جميع أنواع المدد منفصلة ويبدو أن إمكانيات الجهاز الخاص بك غير مرتفعة بالقدر الذي يسمح للجهاز بتنفيذ المطلوب بدون إغلاق قاعدة البيانات ................ وأخيراً أخي الكريم هذا الموضوع للجانب التعليمي ويمكنك الاستفادة من الأكواد الموجودة به وتطويعها بما يتناسب مع احتياجاتك ولستَ ملزما بجعلها بالصورة الواردة في المثال التوضيحي الذي قمتُ بتصميمه وأهم ما في الكود هو تنفيذ الاستعلامات بالكود يمكنك الاستعانة به

يمكنك الاستعانة بهذا الرابط http://www.arabteam2000-forum.com/index.php?showtopic=152148

نعم أخي يمكن تنفيذ ذلك للكل مرة واحدة باستعمال أوامر التكرار for و next

جرب هذا المرفق أخي الكريم وليد بفضل الله تم التوصل لكل ما ترغب ولكل الاحتمالات وولا تنسوني من صالح دعائكم mas_add_diffsV3.rar

إذا سمحت لي بسؤال ما فائدة استخلاص الأيام لوحدها والشهور لوحدها والسنين لوحدها ؟؟؟ إذا كان المقصود تسهيل عملية جمع المدد فهذا موجود هناك بدون فصل وليس معنى هذا أنه يصعب الفصل بين النتائج

راجع هذا الرابط http://www.arabteam2000-forum.com/index.php?showtopic=251287

بارك الله بك أختي الفاضلة واسمحي لي بسؤال بسيط هل يتم تنفيذ المطلوب الذي تريدينه بالأكواد الخاصة بك؟ ... بمعنى أنه إذا رفعت مستوى الأمان إلى الرابع ثم قمت بتشغيل ملف به الأكواد التي تفضلت وشرحتيها هل يتم تخفيض الأمان؟؟!! إذا كانت الإجابة بلا وهذا أكيد فالعملان متساويان ويزيد كودي عن أكوادك فقط الاختصار إلى أبسط صورة ....... أتمنى مراجعة الأمر جيداً وإخباري بالنتيجة وإذا سمحت يكون الرد في الموضوع الآخر تحياتي للجميع أخوكم محمد صالح