اذهب الي المحتوي
أوفيسنا

كل الانشطه

هذه الصفحة تحدث تلقائياً

  1. الساعة الأخيرة
  2. Today
  3. من جمال الفكرة قمت بتنفيذها مباشرة الآن أصبح بالإمكان تصدير الكائنات المطلوبة فقط لعمل الأداة مع التحقق لعدم تصديرها أكثر من مرة
  4. وااااااااو إبداع وتوظيف جميل وذكي ورائع فوق الخيار للأفكار .. وأنت هنا من أرفع له القبعة أخي منتصر جزاك الله خيراً لصبرك على 7299 سجل في الجدول المخصص للأيقونات . وحقيقة أنت قمت بتوظيف الفكرة التي تقاعست عن تنفيذها في أداة صانع القوائم المختصرة ، ولكن هنا أنت أعدت لي الحماس بالتنفيذ 😜
  5. والله كنت أتمنى يكون هذا النموذج من تصميمي فلا أخفيك أنني في البداية كنت قد قمت بتصميم نموذج قريب من هذا بشكل كبير ولكنه كان يعتمد على جدول يحتفظ بالصور داخله ولم تعجبني الفكرة فهذا سيتطلب إستيراد الجدول لتعمل الأداة وبعد البحث في مخزون الأمثلة لدي وجدت أحد الأمثلة الأجنبية الذي كان يتضمن هذا النموذج ولكنه كان يقوم بوظيفة أخرى وبطريقة مختلفة فقمت بإستغلاله والتعديل عليه بما يناسب الهدف المطلوب هنا والحمدلله نجحت الفكرة التي كانت في بالي للطريقة التي أريد تنفيذ العمل بها عند فتح القالب ستجد الملاحظة هذه أسفل النموذج (تختفي الملاحظة عندما تكون Addin ولكنك طرحت فكرة جميلة سأحاول تنفيذها ولكني أرى أن الأفضل أن يتم ذلك عن طريق زر أمر وليس تلقائياً فقد يقوم الشخص بفتحها لمجرد الاطلاع عليها أو فتحها عن طريق الخطأ وليس لاستخدامها
  6. فقط لدي ملحوظة بسيطة بعد التطبيق العملي .. 🙂 عند حفظ الأداة كإضافة للبرنامج .. وعند تطبيق الأكواد على قاعدة جديدة فإنها لا تعمل بسبب أنها لا تحتوي على الموديولين التابعين لها وهذا سيحوجك إلى استيرادهما من ملف القالب () ويعيدنا إلى نقطة الإنطلاق من البداية 😅 (بمعنى أنني لازلت محتاج يكون هذا الملف موجود جنبي) ! السؤال هو : هل يمكن إدراج الموديولين تلقائيا في القاعدة التي يتم استخدام الأداة فيها ؟
  7. الله .. الله .. الله أحييك أخي منتصر على الإضافات الأخيرة بصراحة شي خيال ما شاء الله تبارك الله .. 😇 وخصوصا نموذج الأيقونات عجيييييب ويختصر للمستخدم عملية البحث .. شي متعوب عليه فعلا .. بارك الله فيك .. سير ياشيخ الله يوفقك دنيا وآخرة يارب 🤲
  8. بمبادرة جميلة من الأخ @Foksh والذي تكرم بإضافة الوظيفة التي تسمح بإضافة الأيقونات لعناصر القائمة فله جزيل الشكر وجزاه الله خيراً فقمت بتعديل نموذج بناء صيغة كود إنشاء القائمة المختصرة للسماح بدمج هذه الوظيفة ضمن صيغة الكود كذلك تم إضافة العبارة Case Else في بناء صيغة الأمر لتجاوز أي مشكلة قد تحدث كما ذكر هنا وأخيراً وليس آخراً تم تصحيح الخطأ الذي ذكرة الأخ @Moosak في ملاحظته هذه أرجو أن تنال التعديلات إستحسانكم وفي إنتظار أي ملاحظات أو مقترحات إضافية (فكما ترون فإن لملاحظاتكم القيمة الأثر الكبير في تحسين الأداة) تحياتي للجميع
  9. لا حول ولا قوة الا بالله الفاضل / أبو مسلم الحازم أشكرك أخي الكريم، ولكن وجب التنويه إلى أن الحل الصحيح والجهد الفعلي يعود للأخ [الاشتاذ أ / محمد صالح]، وما ردي إلا تأكيد لصحة كلامه فقط. أرجو ان تصحح الامر او من الإدارة أو المشرفين نقل اختيار «تمت الاجابة» إلى رده . مع جزيل الشكر لك وللجميع."
  10. السلام عليكم ورحمة الله وبركاته اريد التواصل معك لدى فرورم واريد اضافة الاكواد عليه وللاسف لم استطيع هل ممكن مساعدتي لو تكرمت
  11. Yesterday
  12. كلامك صحيح وفي محله ولكني أريد توضيح نقطة هنا من باب العلم بالشئ لا أكثر هذا ليس شرط في كل الحالات ولكنه سيكون كإجراء وقائي حتى نتأكد من أن لا يتم تنفيذ إجراء بغير قصد فمثلاً في المثال الأول في النسخة التوضيحية نلاحظ عدم حصول أي شيئ عند عدم تحديد أي عنصر في القائمة ولو عدنا للكود خلف زر الأمر سنجد عدم وجود عبارة Case Else Dim intResult As Integer intResult = GetOptions("نموذج إدخال البيانات" & _ ";نموذج تعديل البيانات" & _ ";نموذج إستعراض البيانات" & _ ";نموذج تحديد معايير تصفية التقارير") Select Case intResult Case Is = 1 DoCmd.OpenForm "frm01" Case Is = 2 DoCmd.OpenForm "frm02" Case Is = 3 DoCmd.OpenForm "frm03" Case Is = 4 DoCmd.OpenForm "frm04" End Select ولكن في المثال الثاني سنجد أنه سيتم تنفيذ إجراء لم يكن في الحسبان في هذه الحالة سيتطلب منا إضافة عبارة Case Else وعلى رأي المثل الوقاية خير من العلاج إن شاء الله سأقوم يإضافة هذا الأمر ضمن بناء صيغة الأمر بالإضافة إلى معالجة الملاحظة المقدمة من الأخ @Moosak وذلك في النسخة الجديدة التي أقوم فيها بإضافة الهدية القيمة المقدمة منك
  13. المغادلات صحيحة استبدل بالفاصلة المنقوطة كما افادك الاستاذ مع تصحيح تواريخ الميلاد للاسم الاول والاخير وتكون متوافقة بين الجدولين
  14. يا أخي الملف انت تعلم انه لا يحفظ عندما تكون به المعادلة خطأ إلا إذا صححت جرب المعادلة على الملف المرسل و اعد ارساله لي
  15. يا سيدي الفاضل الملف فارغ ليس به المعادلات المذكورة في أول رد لي مع ملاحظة أنه يمكنك استبدال الفاصلة ( , ) بالفاصلة المنقوطة ( ; ) حسب إعدادات جهازك
  16. رجاء إرسال ملفك الذي لم تنجح فيه المعادلات؛ للتوصل للسبب لأن المعادلات صحيحة مليون بالمائة مع توضيح اصدار الويندوز والأوفيس لديك
  17. جزاكم الله كل خير على هذا البرنامج .. لى استفسار عند حضرتك .. لو اردت مراجعة بيانات ال Back-End فى التحزيم كيف اجدها .. وايضا لو حبيت اربط جهاز اخر بال Bake-End كيف استطيع فعل ذلك ..
  18. الاسبوع الماضي
  19. ألحمدلله وهذه هي أكبر مكافأة أن أجد أن ما أقدمه من أدوات تجعل العمل أسهل هذا لأن الغرض من زر الأمر هو تجربة كيف سيكون شكل القائمة ولم يتم إستخدام العبارة الشرطية Select case معه وكان الأمر مجرد طلب إظهار مربع الرسالة بالنتيجة مهما كانت ولكن لو تلاحظ فلن تظهر هذه المشكلة في أي مثال من أمثلة النسخة التوضيحية
  20. ما شا الله عليك أخي منتصر .. موسوعة عامرة بالأفكار الرائعة 😊👌🌼 كنت أستخدم القوائم المنسدلة لعمل هذه الخيارات .. والآن سهلت علي الأمر .. جزاك الله عنا كل خير .......................................................... فقط ملاحظة بسيطة .. أنه عند الضغط خارج المجموعة يتم تفعيل الخيار الأول من القائمة .. والأصل أنه يخرج من الدالة ..
  21. إضافة أكثر من رائعة أخي @Foksh وبإذن الله سأقوم بدمجها مع الأداة ليتم تحديد الأيقونات من خلال نموذج بناء صيغة الأمر ألف شكر أستاذنا الكبير
  1. أظهر المزيد
×
×
  • اضف...

Important Information