• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

mas123

الاعضاء المجتهدين
  • عدد المشاركات

    564
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

40 عادي

عن mas123

  • الرتبة
    عضو مجتهد
  • تاريخ الميلاد 01/01/1977

طرق الإتصال

معلومات الملف الشخصي

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

أحدث الزائرين لملفلك الشخصي

5,982 زياره للملف الشخصي
  1. قاموس الماس الناطق (الإصدار الثالث) عربي انجليزي انجليزي عربي من برمجة أخيكم محمد صالح نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا http://www.4shared.com/rar/QkprD6Zs/mas-Dictionary-v3.html
  2. ما شاء الله أداة رائعة جزاك الله كل خير
  3. يبدو أنك أخي الكريم لم تشاهد الملف المرفق مني في المشاركة السابقة فهو يقوم بما تريده تماماً من حيث قراءة دقة الشاشة الحالية للمستخدم وتخزينها في الجدول وعرضها في النموذج وتغيير دقة الشاشة لأي دقة تريدها وتكتبها في مربعي النص السفليين مع الضغط على زر تغيير هذا إذا أردت تغيير دقة شاشة المستخدم لتتناسب مع برنامج ........... أما إذا أردت إعادة تحجيم النموذج سواء بتكبيره أو تصغيره ليتناسب مع دقة شاشة المستخدم فيمكنك استعمال الكود المذكور في المشاركة المشار إليها سابقاً .......... وربنا يوفقني ويوفقك في الوصول للمطلوب
  4. أخي الكريم إذا اردت تغيير دقة الشاشة للمستخدم وإعادتها عند إغلاق القاعدة يمكنك استعمال الملف المرفق ....... وإذا اردت تحجيم النموذج بما يتناسب مع دقة شاشة المستخدم فقط ضع في موديول الكود التالي 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
  5. أخي الكريم جاري إعداد ملف للتعامل مع اللغات المتعددة ولي فقط لغتين وعلى الطريقة الأولى خاصتي ومدمج معها كود تغيير الاتجاه (الخاص بأخينا asiliem) إذا كانت اللغة هي العربية أو الفارسية أو العبرية
  6. شكرا لكل من شارك في الموضوع
  7. إذا استخدمت البحث ستجد الكثير هذا واحد منهم http://www.arabteam2000-forum.com/index.php?showtopic=251416
  8. أخي الكريم وليد عند فتح البرنامج يقوم بفتح جميع سجلات مدد الموظف الحالي فقط وليس جميع سجلات مدد الموظفين وبالنسبة لموضوع الإدخال في مربعات النص هذا شيء يرجع لك افعله كما تشاء كما يمكنك تنفيذ إدخال المدة في ثلاثة مربعات ثم استدعاء الأمر format("00",text1) وبالنسبة لموضوع إغلاق الأكسس هذا لأن البرنامج يقوم بالكثير من العمليات لإظهار الناتج بصورته النهائية وحساب جميع أنواع المدد منفصلة ويبدو أن إمكانيات الجهاز الخاص بك غير مرتفعة بالقدر الذي يسمح للجهاز بتنفيذ المطلوب بدون إغلاق قاعدة البيانات ................ وأخيراً أخي الكريم هذا الموضوع للجانب التعليمي ويمكنك الاستفادة من الأكواد الموجودة به وتطويعها بما يتناسب مع احتياجاتك ولستَ ملزما بجعلها بالصورة الواردة في المثال التوضيحي الذي قمتُ بتصميمه وأهم ما في الكود هو تنفيذ الاستعلامات بالكود يمكنك الاستعانة به
  9. يمكنك الاستعانة بهذا الرابط http://www.arabteam2000-forum.com/index.php?showtopic=152148
  10. نعم أخي يمكن تنفيذ ذلك للكل مرة واحدة باستعمال أوامر التكرار for و next
  11. جرب هذا المرفق أخي الكريم وليد بفضل الله تم التوصل لكل ما ترغب ولكل الاحتمالات وولا تنسوني من صالح دعائكم mas_add_diffsV3.rar
  12. إذا سمحت لي بسؤال ما فائدة استخلاص الأيام لوحدها والشهور لوحدها والسنين لوحدها ؟؟؟ إذا كان المقصود تسهيل عملية جمع المدد فهذا موجود هناك بدون فصل وليس معنى هذا أنه يصعب الفصل بين النتائج
  13. بارك الله بك أختي الفاضلة واسمحي لي بسؤال بسيط هل يتم تنفيذ المطلوب الذي تريدينه بالأكواد الخاصة بك؟ ... بمعنى أنه إذا رفعت مستوى الأمان إلى الرابع ثم قمت بتشغيل ملف به الأكواد التي تفضلت وشرحتيها هل يتم تخفيض الأمان؟؟!! إذا كانت الإجابة بلا وهذا أكيد فالعملان متساويان ويزيد كودي عن أكوادك فقط الاختصار إلى أبسط صورة ....... أتمنى مراجعة الأمر جيداً وإخباري بالنتيجة وإذا سمحت يكون الرد في الموضوع الآخر تحياتي للجميع أخوكم محمد صالح
  14. إخواني حملت الملفات من ميديا فاير ولكن عند فك الضغط يقول أنه يوجد خطأ في مصدر الملفات وخاصة الجزء 1 و 2 ! E:\Downloads\Compressed\1Access_2007.part1.rar: Packed data CRC failed in Access 2007.iso. The volume is corrupt ! E:\Downloads\Compressed\1Access_2007.part2.rar: Packed data CRC failed in Access 2007.iso. The volume is corrupt هل حدثت هذه المشكلة معكم؟؟!! وما الحل؟؟