نجوم المشاركات

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. الكثير من المواضيع التي ناقشت موضوع التحكم بالقوائم المختصرة داخل التقارير أو النماذج .. وكان للكثيرين من الأساتذة والخبراء والموهوبين أفكار جميلة جداً حول كيف تصنع قائمة مختصرة عند النقر على الزر الأيمن داخل نموذج أو تقرير . ومن هنا اليوم أضع بين أيديكم أداة تقوم بهذه المهمة بشكل سحري . 1️⃣ القدرة على إنشاء قوائم مختصرة دون أن تكتب أي أمر برمجي أو حتى البحث عن الخيارات داخل آكسيس لإضافة قائمة مختصرة .... إلخ . 2️⃣ القدرة على استيراد قوائم مختصرة من قاعدة بيانات أخرى إلى قاعدة بياتك الحالية من خلال الأداة . 3️⃣ القدرة على تصدير قوائم مختصرة إلى قواعد بيانات أخرى . 4️⃣ التحكم بالترتيب للأوامر داخل القوائم بحرية وسهولة ، وإتاحة إمكانية تسمية الأوامر كما تحب . 5️⃣ إتاحة إمكانية إعادة تسمية قائمة مختصرة موجودة مسبقاً . 6️⃣ التحكم بحذف قوائم معينة لا تريدها من خلال زر واحد . 7️⃣ إتاحة الفرصة لإضافة أوامر خاصة من خارج آكسيس ، أو ماكرو . أي أنك تستطيع استدعاء دوال عامة من مشروعة داخل زر في القوائم التي تصنعها . والكثير من الميزات التي يجب عليك اكتشافها بنفسك . 📸 واجهة الأداة المتواضعة :- فيديو توضيحي لطريقة الاستخدام بشكل سريع .. ملف الأداة مفتوح المصدر ، للتحميل :- Menu Builder.zip لمعرفة وظيفة كل زر ، فقط قف على الزر وستظهر لك الوظيفة المخصصة له .

برنامج صغير خفيف .. يخدم الايجار اليومي وغيره ويصلح لأي خدمة ايجارات قابل للتطوير بمجرد تنفيذ اجراء الايجار يطبع فاتورة استلام .. وعند تنفيذ اجراء الارجاع يطبع فاتورة بالمبالغ المستحقة حاليا هذه الفواتير تفتح كتقارير يتم عرضها .. وهي مصممة للعمل على الطابعة الحرارية امل ان تجدوا المتعة والفائدة كلمة المرور = 1 Equps.rar

1️⃣ إضافة زر لمعاينة القائمة التي تم انشائها ، بدلاً من الدخول إلى تقرير أو نموذج وتعيينها وتجربتها . 2️⃣ إضافة فكرة القوائم الفرعية . بحيث يكون زر داخل القائمة الرئيسية يتفرع منه قائمة فرعية أخرى ... وهكذا . 3️⃣ إضافة مميزة بحفظ القائمة كـ VBA داخل ملف نصي يتم حفظه على سطح المكتب . بحيث يمكنك من نسخه وتشغيله مرة واحدة فقط في مشروعك لإنشاء القائمة المختصرة التي انشأتها من خلال الأداة ، أو استوردتها من قاعدة أخرى 😉 . 4️⃣ إضافة زر لتعيين/إزالة قائمة مختصرة لعدد من النماذج أو التقارير مرة واحدة ، دون الحاجة لتعيينها واختيارها يدوياً لكل نموذج أو تقرير . 5️⃣ إضافة ميزة مسح جميع القوائم المختصرة من جميع كائنات ( نماذج وتقارير ) قاعدة البيانات الحالية . وليس بتحديد كائنات محددة كما في النقطة4️⃣ . 6️⃣ إضافة الميزة الذهبية الجديدة وهي دمج الأداة إلى إضافات آكسيس وكأنها جزء منه وتجدها داخل الإضافات - Addin . كما في الصورة الموضحة :- 7️⃣ إضافة زر لإزالة الأداة من الـ Addin بشكل كامل ونهائي . 📸 واجهة الأداة بعد التحديث :- كل هذه الميزات وأكثر في المرفق التالي للنسخة المحدّثة :- Menu Builder.zip ( تم تحديث المرفق بعد ملاحظة خطأ بسيط في نموذج عرض التقارير والنماذج الموجودة في قاعدة البيانات ) . والشكر موصول لأخي @أحمد العيسى على هذه الملاحظة . فيديو توضيحي لطريقة استخدام القوائم الفرعية :-

اعرض الملف 🏆🌟 نتائج تحدي المبدعين 12 🌟🏆 :: مستعرض الملفات التفاعلي :: 📟🌟 السلام عليكم ورحمة الله وبركاته يطيب لي أن أطرح بين أيديكم نتائج : 🙂 🌟 تحدي المبدعين 12 🌟 :: مستعرض الملفات التفاعلي :: 🌟 هذا التحدي هو عبارة عن تحدي يطرح بين فترة وأخرى على جروب الواتسأب مجتمع اكسس جروب وكان هذا التحدي هو التحدي رقم 12 وكان موضوع التحدي هو إنشاء وتصميم مستعرض ملفات تفاعلي عن طريق الأكسس . 🤗 المشاركين : لدينا 6 مشاركات رائعة من 4 مشاركين متميزين : - المهندس / فادي Foksh (مشاركتان). - المهندس/ يوسف العزير (مشاركة). - المهندس/ أبو مازن الرازحي (مشاركة). - وأخوكم/ موسى الكلباني (مشاركتان). :: صور المشاركات :: المهندس/ أبو مازن الرازحي المهندس / فادي Foksh 1 المهندس / فادي Foksh 2 موسى الكلباني 1 موسى الكلباني 2 المهندس/ يوسف العزير ⭐ رابط الانضمام لمجموعة الواتسأب : https://drive.google.com/drive/folders/1Ku3j_1TBQ03M199RBAO86DqDcFKcgAk3?usp=drive_link ⭐ رابط جميع ملفات التحديات السابقة 🌟 : https://drive.google.com/drive/folders/1xOqWpWiLqKacPTG2MQDrohJp5DKDRTY2?usp=drive_link 🌸😊 كل التوفيق للجميع 😊🌸 صاحب الملف Moosak تمت الاضافه 06/10/26 الاقسام قسم الأكسيس  

في أكسس 2003 العملية أسهل حيث يمكن إنشاء وتعديل القوائم مباشرة بالخطوات التالية أنقر بالزر الايمن على شريط الادوات وحدد تخصيص ستفتح لك نافذة قم بالخطوات كما هو محدد بالصورة عند النقر على موافق سيظهر لنا شريط فارغ كما بالصورة الآن نقوم بإضافة الأزرار المطلوبة كما بالصورة المتحركة التالية في هذا الوضع يكون الشريط هو من نوع قائمة أدوات أو Tool Bar أي أنه يمكن أن إستخدامه كقائمة في شريط الأدوات وليس كقائمة مختصرة وحتى نحولها لقائمة مختصرة نقوم بتنفيذ الخطوات كما في الصورة التالية ستظهر لنا نافذة منبثقة ومن قائمة النوع نحدد (منبثقة) كما بالصورة بعد أن نختار هذا الخيار سنلاحظ أنه تم إلغاء تفعيل جميع الخيارات بالاسفل ماعدا خيار إمكانية التخصيص (والذي إذا قمت بإلغائه فلن تتمكن من إضافة أو تعديل أي عناصر في القائمة) بعد أن حولنا القائمة إلى قائمة منبثقة سنلاحظ إختفاؤها من قائمة أشرطة الأدوات ولكي نظهرها فيجب علينا تحديد قائمة الأدوات (القوائم المختصرة أو Shortcut Menus) كما بالصورة ليظهر لنا شريط بالقوائم المختصرة وما يهمنا هنا هو آخر قائمة وهي قائمة Custom أو مخصصة والتي عند النقر عليها ستظهر لنا جميع أشرطة القوائم المختصرة ولكن نظراً لأنه لايوجد إلا شريط واحد فسيكون هو الوحيد الظاهر كم في الصورة من هنا وبالنقر بالزر الأيمن على أي عنصر يمكننا تعديل التسميات أو إضافة العناصر بنفس الطريقة الموضحة في الصورة المتحركة أعلاه (سحب وإفلات) أو حذف العناصر بالنقر بالزر الأيمن وإختيار حذف كما بالصورة عند الإنتهاء من كل التعديلات سنحصل على النتيجة التالية عندها نقوم بإغلاق نافذة التخصيص كما بالصورة الآن لو فتحنا أي تقرير في وضع التصميم سنجد أن القائمة ستظهر في الخصائص وإذا فتحناه في وضع المعاينة ونقرنا بالزر الأيمن سنحصل على هذه النتيجة الان يمكننا إستيراد هذه القائمة من أي تطبيق آخر بدون عناء إنشاء وتعديل قائمة جديدة وهكذا نكون قد إنتهينا من خطوات إنشاء وتعديل القوائم في أكسس 2003 أما في الإصدارات الأحدث فإن القوائم يتم إنشاؤها بإستخدام الكود ولو إطلعت على الأداة التي كنت قد رفعتها في هذا الموضوع ستجد الطريقة أرجو أن يكون الشرح واضح تحياتي

السلام عليكم الموقع https://zingl.github.io يعرض طريقة لعمل الباركود Code128, QR, Aztec, DataMatrix بالكود ويدون الاستعانة ببرامج خارجية. في الموقع مرفق اكسس (وقد عملت تعديل بسيط عليه لعمل الصور التالية ، والمرفق موجود في اسفل المشاركة) ، وهنا اعرض مثالين على العرض: . . طبعا Code128 غير مناسب للكلمات الطويلة. الكود يقوم بعرض الباركود داخل حقل نص Textbox ، وهو يستعمل Line لعمل الباركود : . المشكلة ان الاكسس يقوم بتنفيذ الامر Line على خلفية التقرير/النموذج ، وبعدها يقوم بعرض بقية الكائنات ، بمعنى ، اذا وضعنا كائن/حقل صورة خلف حقل نص الباركود ، فاننا لا نستطيع رؤية الباركود ، لأنه اصبح خلف الصورة. في الصورة التالية ، التقرير الاول هو ما تم عرضه سابقا ، بينما في التقرير الثاني وضعت صورة زرقاء خلف كائنات/حقول الباركود: . ونتيجة التقرير الثاني: . مع وجود الصورة في الخلف ، المطلوب اظهار الباركود على الصورة ، وبأي طريقة. من تجربتي ، لإظهار الباركود ، يجب وضعه في كائن/حقل صورة ، امام الصورة الخلفية. ارفق لكم من نفس الموقع ، مرفق اكسل كذلك. ومن موقع www.lebans.com ارفق قاعدة البيانات A2KPictureBoxVer35.accdb ، والتي بها نموذج و مكتبات قد تساعد الذكاء الاصطناعي بالعمل (نعم ، قد يحتاج الى مساعدتك في توجيهه). QR_barcode.accdb A2KPictureBoxVer35.accdb barcode.xlsm

السلام عليكم بمناسبة هذه الايام المباركة ، حبيت اشارك بهذه الجزئية المستقطعة من احد برامجي 🙂 في بعض الاحيان ما يقدر المبرمج من سد جميع ثغرات البرنامج لمنع المستخدم من عمل خطأ في ادخال البيانات ، فتكون نفس المعلومة مكتوبة بعدة طرق ، مثلا: . ومثال من جدول آخر . عادة يُطلب من المبرمج تنظيف هذه البيانات ، جدول جدول / حقل حقل / معلومة معلومة ، والمشكلة في هذا العمل هو معرفة الحقول المطلوب تنظيفها ، ثم معرفة البيانات الخطأ والبيانات الصحيحة (لإستبدالها) ، وهذا العمل يتطلب وجود المبرمج والمستخدم لمعرفته بالبيانات الخطأ والصحيحة. وبعد هذا التنظيف ، وبعد مرور مدة ، يجب تكرار العملية طبيعتي ، لما اشوف فيه تكرار لعمل معين ، اقوم ببرمجته ، وهذا اللي حصل في هذا المشروع 🙂 الان المستخدم (طبعا المسؤول) هو الذي يقوم بهذا العمل من خلال نموذج. انت محتاج الى نقل هذه الكائنات الى قاعدة بياناتك للقيام بالعمل ، ثم تشغيل النموذج frm_Clean_Data . 1. عند دخول النموذج ، تجد اسماء جميع الجداول في حقل اسم الجدول ، وبعد ان تختار اسم الجدول ، تجد اسماء جميع حقول الجدول في حقل اسم الحقل ، ثم تختار الحقل المطلوب تنظيف بياناته ، فتأتيك البيانات بدون تكرار . . 2. يجب عمل تصفية في اختيار "القيمة الحالية" للبيانات المطلوب تنظيفها ، وتختار "القيمة الجديدة" لها ، . 3. ثم تنقر على زر "جميع الاسماء المختار" ، فتاتيك رسالة تأكيد لعملية التنظيف التي سيقوم بها البرنامج ، وعند التأكد من هذا العمل والنقر على "نعم" ، فسيقوم البرنامج بعمل التغييرات المطلوبة ، ولا يوجد تراجع . 3. فنحصل على هذه النتيجة . 4. ونستمر بإختيار القيمة التالية من هذا الحقل ، او اختيار جدول/حقل آخر ، التغيير لقيمة الحقل كاملة وليست لجزء من الحقل يجب اعطاء هذا البرنامج للمسؤول ، ويجب ان يعرف عواقب العمل ، وقبل كل شيئ يجب اخذ نسخة من قاعدة البيانات Clean_Data.zip

وعليكم السلام ورحمة الله وبركاته .. اعجبتني الفكرة ، و وددت المشاركة بالتالي .. ما عليك فعله بيدك حتى تنجح الفكرة .. في المديول :- الخطوة الأولى اذهب للدالة :- Private Function ExitTimer() As Boolean وقم بحذف السطر :- Call DeleteObject(hRgn1) الخطوة الثانية أيضاً اذهب للدالة :- Public Function GenerateExit() 'MyForm As Form) وأضف بعد هذا السطر :- Do Until ExitTimer() السطر DoEvents ، لتصبح جملة الحلقة :- Do Until ExitTimer() DoEvents Sleep clngTimerInterval Loop وبعد هذه الحلقة مباشرة ، أضف السطر التالي :- Call DeleteObject(hRgn) وعليه ، فأن الملف كاملاً بعد هذه التعديلات يصبح :- db.mdb

تمام ، قمت بالتطبيق مسبقاً بإجراءات بسيطة واستخدام فكرة الرسم والتدوير من الملف المرفق الأصلي A2KPictureBoxVer35 .. New QR.accdb

وعليكم السلام -تفضل معادلتين لطلبك .اختر منهما ما تشاء =MIN(IF(($C$7:$C$32=$M7)*($G$7:$G$32=""),$E$7:$E$32)) =MINIFS($E$7:$E$32,$C$7:$C$32,$M7,$G$7:$G$32,"") استخراج تاريخ اقدم الفاتورة-1.xlsx

السلام عليكم الجزء الاول هو المرجع لتوضيح عمل القائمة المختصرة : . في الموضوع السابق ، تحدثنا عن القائمة الثابتة ، وفي هذا الموضوع سنتكلم القائمة المؤقتة ، وعن طرق اخرى لإستعمال القائمة. وللعلم ، هناك قائمة مختصرة للنموذج واخرى للحقل ، سواء قائمة ثابته او مؤقته . القائمة الثابتة هي التي تجدها جاهزة للاستعمال ، وبدون عمل اي كود لها ، سواء في النموذج او التقرير ، مثلا : . اما القائمة المؤقته فيحتاج تناديها بالكود لكل استعمال ، ولما تغلق النموذج/التقرير ، يحتاج تحذفها ، والسبب مثل ما بتشوفون في المرفق ، نستعمل نفس القائمة ببعض الاختلافات بين النموذج/التقرير وحقوله. . التحدي الاكبر في القائمة المؤقته ليس البرمجة ، وانما معرفة الحدث الصحيح للحصول على النتيجة ، ثم تمرير النتيجة ، مثلا ، للحصول على عدد صفحات التقرير ، يجب استعمال الحدث On Page ، ومنها اخذ عدد الفحات وتمريرها الى دالة القائمة المؤقته. حاولت عمل اكبر قدر من التشكيلات ، وبأبسط طرق البرمجة ، حتى يكون تغييرها سهل للمبرمج. وفي المرفق وحدة نمطية لتصدير/استيراد كائنات قاعدة البيانات ، وحسب طلب اخي العزيز @ابوخليل ققد اضفت لها دالة لإرجاع كود القائمة المختصرة (اذا صارت الحاجة اليه). myRight_Click_Shortcut_Menu.zip

السلام عليكم اذا الاكسس يعمل شيء معين ، فعادة انا لا عمل شيء بديل عنه ، مثل الانتقال من صفحة الى اخرى ، فالاكسس به هذه الخاصية ، وكما ان لون النص وحجمه ، هما من عمل المبرمج ، فلن تراني اضعه في يد المستخدم. بدلا عن هذا الشريط ، اليكم طريقة اسهل في التعامل ، ولست بحاجة الى سطر من البرمجة. من برنامجك استورد البرنامج المرفق (البرنامج لا يحتوي على اي كائن ، غير القائمة المختصرة) . . وفي تقريرك في وضع التصميم : . الآن افتح التقرير في وضع معاينة ، وبالنقر على زر الفأرة اليمين ستأتيك هذه القائمة (والتي تشمل على ايقونات شريط الطباعة في هذا الموضوع) . Shortcut Menu.accdb

الاستاذ / @kkhalifa1960 @jjafferr @jo_2010 اشكركم بداية من الطرح و المساعدة بمرفق و تعديلات الاخ الكريم / خليفة و سعة صدرة على التعديل مع الحافظ على جميع ادوات النموذج لا .........وكمان عاوزينة بماكرو ....... طيب ممكن من غير ماكرو اختصارا مرفقى عبارة عن جزء من الادوات التى اعتبرتها عملية من وجهة نظرى ( مع كامل احترام للملف الاصيلى ) و تلبى احتياجاتى البسيطة لم اقدم اى جديد و لكن هو مزيج من كل الاعمال بداية من الاخت/ زهرة مرورا بالاستاذ @صالح حمادي و ختاما الاخ @kkhalifa1960 ا Print_ToolBar _2 _ test .rar

السلام عليكم ورحمة الله وبركاته.. تقبل الله طاعاتكم ، ومبارك على الجميع عيد الأضحى المبارك.. من باب السؤال والنقاش . هل من الممكن فعلاً أن نجعل التقرير يعرض الباركود ولكن بدل ما نرسم الباركود على أرضية التقرير ، أن يتم الرسم على أرضية عنصر صورة غير منضم 🤔 !! بمعنى آخر ، نستغل فكرة من المرفق الثاني ودمجها في النتيجة المطلوبة وبالتالي لن نحتاج صورة محفوظة أساساً !!! الفكرة تتلخص بالمرفق التالي بعد تشريح الأكواد وإزالة ما ليس له عمل لتطبيق الفكرة ، وإضافة الكلاس clsPictureBox واستغلال فكرة التنفيذ من الزر Start Draw with Mouse في المرفق A2KPictureBoxVer35 الأصلي من المشاركة الأولى ، بحيث جعلت الفكرة تقوم على رسم رمز الـ QR والـ Code128 😅 . وأشعر بأنها فكرة قد لا تكون ذكية .. ولكن كتجربة مختلفة عما تفضل به الأساتذة وجعلها تعمل على النواتين 32 و 64 :- QR_barcode.accdb

التشاؤم قد يكون سبباً في جعلنا نهز الشوك في وروده لشم عبيره في لحظة من اللحظات 😅 أتمنى أن نجد التفاعل الذي نتمناه جميعاً

السلام عليكم 🙂 كانت لنا تجربة في عمل لقاءات لأعضاء مجموعة الأكسس على الواتسأب وتم نشر الراوابط على مستوى أوسع .. وهذه روابط الللقاءات التي تمت : ولكن تم التوقف عنها لاحقا للأسف بسبب ضعف المشاركة والحضور .. 💔

بصراحة أنا رأيي مختلف فالطريقة الثانية سيكون التقرير فيها أخف لأنها لن تتطلب منك إنشاء تقرير إضافي وإضافة عنصر تحكم التقرير الفرعي هذا مثال لسيناريو محتمل سنفترض أن المطلوب تصميم تطبيق لإصدار البطائق وفق التصميم التالي عندها سنطلب ممن قام بتصميمها بإن يجعل منطقة الـ QRCode شفافة أو تحديدها كمربع 2×2 سم مثلا (للعلم انا قمت بهذه العملية بطريقة بدائية بإستخدام تطبيق Photos التابع لويندوز وستكون النتيجة أفضل إذا قام بها محترف فوتوشوب) قمت بإستخدام الصورة المعدلة فحصلت على النتيجة التالية ومرفق لكم المثال بعد التعديل تحياتي QR_barcode_New2.rar

وانا كذلك ما كانت عندي مشكلة. وللاجابة على السؤال وحسب ما قرأت : النماذج/التقارير المنبثقة ، ولأنه بإمكانك اخراجها من اطار برنامج الاكسس ، فيتعامل معها الوندوز ، وتأخذ الاتجاه حسب اتجاه اعدادات الوندوز ، يميناّ او يساراّ ، بينما النماذج ولأنها داخل اطار الاكسس ، فيتم التعامل معها بإعدادات الاكسس ، فتتوسط عرض النموذج. عملت هذه الحيلة: 1. جعلت النموذج بدون برواز . 2. اضفت كائن مسمى واسميته lbl_Move_Form ، ويمكنك تغيير اتجاهه حسب رغبتك . 3. استخدمت الكود التالي لتحريك النموذج ، بعد النقر على هذا الكائن Dim moveFrm As Boolean Dim xDrag As Long Dim yDrag As Long ' Private Sub lbl_Move_Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) moveFrm = True xDrag = X yDrag = Y End Sub Private Sub lbl_Move_Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim xx As Long Dim yy As Long If moveFrm = True Then xx = Me.WindowLeft + X - xDrag yy = Me.WindowTop + Y - yDrag Me.Move xx, yy End If End Sub Private Sub lbl_Move_Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim xx As Long Dim yy As Long xx = Me.WindowLeft + X - xDrag yy = Me.WindowTop + Y - yDrag Me.Move xx, yy moveFrm = False End Sub . والنتيجة 1646.Form_Caption_Direction.mdb

السلام عليكم ورحمة الله وبركاته أود أن أحيطك علماً بأن جميع ما قمت به من حلول في المشاركات السابقة، كانت اجتهاداً شخصياً مني ، وذلك بسبب عدم شرح تفاصيل الطلب بدقة، وغياب الشكل المتوقع للمخرجات في بداية طلبك في اول مشاركة. وهنا أود أن أسترعي انتباهك ولجميع احبابنا اعضاء المنتدى الكريم لنقطة تنظيمية وإدارية هامة : عند طرح أي سؤال أو طلب فكرة برمجية مستقبلاً، من الأفضل دائماً تجهيز ورقة عمل (شيت) داخل الملف كنموذج تصوري للنتائج، أو شرح آلية ومكان ظهور المخرجات بدقة (مثل: شكل الجدول المطلوب، وتحديد الأعمدة، وهل تريدها في نفس الورقة أم في أوراق منفصلة؟). وهذا يضمن اختصار الوقت والجهد وتفادي كثرة التعديلات المتكررة. وتكون النتائج تماماً كما تريدها وبتنسيقها الصحيح وتفاعل اعضاء وخبراء المنتدى اكثر. على أية حال، حسب فهمي لطلبك في مشاركتك الأخيرة؛ فقد تم دمج الفعاليات النشطة واللجان الخاملة معاً في شيت واحد متكامل، كما تم تعديل عدد اسماء المشاركين الى 15 عمود في طلب سابق لكم. تقبل وافر شكري، وعميق تقديري لشخصكم . لا تتردد في طلب التعديل ان كان الحل لا يلبى طلبك مؤشر عمل اللجان1 (1).xlsb

وعليكم السلام ورحمة الله وبركاته هذه الدالة تقوم بالمهمة ان شاء الله صعها في f3 ثم اسحب لاسفل تحياتي =IF(B3="فروج مسحب"; D3*E3*2.55; D3*E3*1.85)

يبدو أنك قمت إما بالتعديل على الوظيفة الإضافية مباشرة وبالتالي لن يتم حفظ التعديلات أو قمت بالتعديل على الملف الأساسي ولم تقم بإعادة إنشاء الوظيفة الإضافية مرة أخرى لأني طبقت الخطوات ونجحت معي سأرفق لك الملف بعد التعديل قم بفتحه وأنقر زر Addin ثم اغلقه وافتح تطبيقك وافتح الوظيفة الإضافية لتجد أنه سيتم إظهار النموذج والتقرير كما بالصورة التالية إسمح لي أخي @Foksh بملاحظة المشكلة لم تكن في أن جداول النظام مخفية أو في نوع مصدر البيانات بل كانت في أن الوظيفة الإضافية كانت تقرأ من جدول MSysObjects الخاص بها وليس الجدول الخاص بالملف المضيف لذلك فبعد إذنك قمت بتعديل الكود الخاص بك مع إضافة التعليقات لتوضيح الأمر بالشكل التالي Private Sub Form_Load() Dim strHostPath As String Dim strSQL As String 'تحديد مسار الملف المضيف strHostPath = CurrentProject.FullName 'بناء جملة الإستعلام عن النماذج والتقارير الخاصة بالملف المضيف strSQL = "SELECT Name, IIf(Type=-32768,'نموذج','تقرير') AS ObjType " & _ "FROM MSysObjects IN '" & strHostPath & "'" & _ "WHERE Type In (-32768,-32764) And Left(Name,1)<>'~' " & _ "ORDER BY Type, Name;" 'تعيين خاصية مصدر الصف للقائمة بالإستعلام هذا Me.List_Objects.RowSource = strSQL End Sub وإذا فتحت خصائص مربع القائمة ستجد أني لم أقم بتغيير مصدر الصف أو نوع مصدر الصف كذلك ستلاحظ أني قمت بالإستغناء عن السطر الخاص بإستبعاد النموذجين FrmMain و FrmAssignMenu (أقصد السطر التالي) "AND Name Not In ('FrmMain', 'FrmAssignMenu') " & _ وذلك لسببين الأول لأن النموذجين سيكونان موجودان في الوظيفة الإضافية فقط ولن يظهرا في مربع القائمة أما السبب الثاني فحتى لايتم إستبعاد إي نماذج في الملف المضيف وتحمل نفس الإسم (خصوصاً FrmMain فالكثير يسمي النموذج الرئيسي بهذا الإسم) شاكراً لك كل مابذلته من جهد في هذه الأداة القيمة ولا غنى عنها بحق تحياتي Menu Builder.accdb

...|• تحديث جديد بإضافات ممتعة ، قريباً •|... 1. معاينة القائمة المختصرة داخل النموذج . يعني ما في داعي بعد إنشائها ان تحددها داخل تقرير او نموذج. 2. دعم للقوائم الفرعية بأكثر من مستوى. يعني ممكن إضافة زر رئيسي باسم تقارير ، وبداخله زر بإسم صفحات وزر تصدير ... إلخ ؛ وهذا زر الصفحات يحتوي 3 أوامر . وزر التصدير يحتوي أوامر مختلفة ... إلخ . 3. إضافة ميزة تصدير القائمة المختصرة ككود VBA ( وحفظه في ملف نصي على سطح المكتب ) ، واستخدامه في أي قاعدة بيانات لإنشاء القائمة من خلال الكود دون الحاجة لنسخ أدوات الأداة الى مشروعك ، او استخدام التصدير مثلاً 😁

صحيح أن الأخ أحمد قد أفاد بإنتهاء المشكلة ولكني فضلت أن أجيب عن بعض الإسئلة حتى يصبح هذا الموضوع كمرجع متكامل يغطي أكبر قدر من التساؤلات حول شريط القائمة المختصرة السؤال الأول كان سنعيد صيغة السؤال ليصبح كيف يمكن الإستفادة من بعض الأوامر من قوائم مختصرة موجودة في قائمة مختصرة جديدة؟ - للقيام بذلك سيتم أولاً إنشاء قائمة مختصرة جديدة بإسم Printing بنفس الطريقة التي تم شرحها في المشاركة السابقة - نقوم بسحب وإفلات الأوامر من المطلوبة من كل قائمة مختصرة إلى القائمة الجديدة كما بالصورة الطلب الثاني كان يمكن حذف القوائم الفرعية بطريقتين الطريقة الأولى وتنفذ في أكسس 2003 فقط وهي عن طريق تحويل القائمة المختصرة إلى ToolBar أو Menu Bar ثم حذفها بشكل طبيعي كما بالصورة الطريقة الثانية ويمكن تنفيذها من أي إصدار من إصدارات أكسس وهي بإستخدام أمر VBA التالي CommandBars("اسم_القائمة_المراد_حذفها").Delete وهنا لن تحتاج إلى تغيير توع القائمة تحياتي

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

طالما وهذا طلبك جرب القائمة في الملف المرفق وهي معي منذ أن كنت أعمل على أكسس 2003 تحياتي Shortcut Menu.mdb

وعليكم السلام-تفضل طالما انك لم تقم برفع ملف موضح به المطلوب بكل دقة ,وفى طلبك وبالمعادلات العادية لا يوجد أفضل من معادلة DATEDIF

وعليكم السلام ورحمة الله وبركاته .. هذه مساهمة بسيطة كبداية . استكمل باقي العمل حتى تشعر بمتعة العمل 😊 . St.Sys.accdb

روووعة من طبعه الكرم يعطي بزيادة كان طلبي أداة ربط الجداول فكان الرد كنز من الأدوات ألف ألف شكر أخي @Moosak وأضم صوتي لصوت الأخ @jjafferr الف تحية لأبناء عمان

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

نعم .. طبعت ملف الـــ pdf على ورقة وهذه هي النتيجة .. احببت ان اسجلها مرئية ولكن من خارج الحاسوب من اجل تكتمل الرؤية ملف فيديو : WAM.rar

هذا يمكن حله بتعديل خاصية Size Mode للصورة بدل Zoom إجعلها Stretch أما فيما يخص العمل ككل فلا غبار ولكني رأيت أن فرض حفظ الصورة على المستخدمين فكرة لن يحبذها الجميع لذلك فكرت أن أعطي التطبيق مرونة أكثر ليناسب أغلب المستخدمين إن لم يكن جميعهم لذلك وبعد إذن الأخ @Foksh قمت بإضافة نموذج فيه أربعة أزرار لفتح التقرير في أربع حالات 1- فتح التقرير بدون حفظ للصور 2- حفظ الصور بدون فتح التقرير 3- فتح التقرير مع حفظ جميع الصور عند الفتح 4- فتح التقرير مع حفظ الصور بشكل فردي أثناء التنقل من وجهة نظري أن هذه هي جميع الخيارات التي قد يحتاجها أي مستخدم لذا يمكن لأي شخص الإستفادة مما جاء في التعديل لتطبيق الخيار الذي يفضله ولو كان بإمكان الأخ @Foksh إضافة هذه الخيارات كمعلمة لإختيار أحدها وتنفيذ الأمر مباشرة سيكون أفضل تحياتي QR_Barcode - 4.accdb

يعني انت تريد تنظيف الأكواد من الاعتماد على Tag كلياً ؟ فقط سنقوم بإزالة الجملة الشرطية التي تختص بالـ Tag ، من المديول ModulQRCode . If level = "" Then i = InStr(LCase(Text.Tag), "qrcode") If (i > 0 And i + 5 < Len(Text.Tag)) Then level = Mid(Text.Tag, i + 6, 1) End If تم نقل الدالة الى المديول وتحويلها الى Public ، وتنظيف أكواد التقرير ، والإعتماد فقط على الاستدعاء :- Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR4, "Code128") Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR5, "Code128", True) Call DrawAndSaveBarcode(Me.FieldQRCode, Me.ImgQR2, "QR") End Sub وكملاحظة ، قمت بإضافة مربع النص PgCount داخل التقرير في Page_Footer ، والهدف منه كان لتجربة بأن يتم تصدير كافة الرموز Qr/Code128 عند فتح التقرير ، أو تستطيع الغاء مربع النص هذا وسيتم تصدير الصور داخل المجلد حسب الصفحة التي يتم فتحها فقط . المرفق بعد التعديل :- QR_Barcode - 3.accdb

تفضل أخي @jjafferr .. الآن تم الدمج بحيث لديك جميع الخيارات :- القديمة عن طريق Tag . الجديدة من خلال قيمة مربع النص لكل QR أو Code128 .. حفظ الصور في المجلد QRImg بجانب قاعدة البيانات . ( وهنا سيكون لنا وقفة مرهونة بتجربتك 😉 ) QR_barcode.accdb

بالحل المقدم من الأخ @Foksh ينطبق المثل "قطعت جهيزة قول كل خطيب"

تم التعديل و تجريب الكل . تفضل التعديل. Printable ribbon - Reports and forms-1.rar

بعد اذن اساتذتي الاساذ / @صالح حمادي والاستاذ / @jjafferr ........ للاستاذين @jo_2010 و @AMINYOUSIF . لانه يوجد تعديلات مهمه مثلاً عند تكبير الخط ستزداد عدد الصفحات .. تم معالجتها . واشياء اخرى ....... ممكن استخدام الماكروهات حسب طلب الاستاذ @jo_2010 . أو الاكواد بدلاً منها حسب طلب الاستاذ @AMINYOUSIF . ...................... لذا وجب عليا التعدبل وارفاق المرفق بعد التعديل . ووافوني بالرد . Print ribbon-last.rar

أعاده الله علينا وعليكم وجميع المسلمين بالخير واليمن والبركات وماحاجتك إلى تكبير الصورة الخارجية ؟؟؟ هذه هي الأبعاد التقريبية للبطاقة 8×5 سم كذلك فأن قراءة الباركود من بطاقة مطبوعة يختلف عن القراءة من الشاشة حيث أنك تقوم بتقريبها إلى جوار قارئ الباركود ولكن إذا قمنا بتكبير الصورة الخاصة بالكود ستغطي على البيانات فمثلا قمت بتعديل أبعاد الصورة الخاصة بالـ QRCode لتصبح 2×2 سم وهذه كانت النتيجة عموما بإمكانك أنت تعديل أبعاد الصورة حسب رغبتك تحياتي

يا اهلا وسهلا بك ظاهرا ، ويا اهلا بك متابعا صامتا 🙂 المنتدى مثل الدكان ، تدخل فيه صامتاً لترى البضاعة ، او تدخل وتشتري ونراك مساهماً 🙂

بعد إذن الاخ @mohahje قمت (وبإلاستعانة بالذكاء الصناعي أكيد 😅) بتعديل الكود للحصول على الـ QRCode بلون أسود وخلفية بيضاء كذلك وتنفيذاً لطلب الاخ @jjafferr تم إضافة الكود الخاص بتنفيذ نفس العملية ولكن للحصول على Code128 ارفق لكم ثلاثة ملفات أكسس كالتالي 1 - الملف QR_barcode SubReport يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام التقارير الفرعية 2 - الملف QR_barcode Transparent يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام الصورة الشفافة 3 - الملف QR_barcode Bmp Images يتم فيه تطبيق الكود الخاص بالأخ @mohahje تم تطبيق الحلول الثلاثة على نفس صورة الخلفية حتى يتم تجربة كل الحلول في نفس الظروف ومقارنتها من حيث سرعة الأداء وتضخم حجم قاعدة البيانات عند زيادة حجم البيانات ارجو من الجميع تجربة الثلاثة ملفات وإبداء أي ملاحظات للتوصل إلى أفضل حل تحياتي BarcodesReports.rar

إسمحوا لي بأن أدلو بدلوي في هذا الموضوع بحيث لن أكون متفائل كالأخ @mohammed farhat او متشائم كالأخ @Foksh وأنما أقدر أقول أكثر واقعية الآن إذا ما رجعنا للغاية التي تم من أجلها إنشاء منتديات أوفيسنا وموفع مجموعة مستخدمي أكسس نجد أن أوفيسنا حاله كحال جميع المنتديات العالمية مثل منتدى Microsoft Access Help Center لن تجده يركز على العروض التقديمية لأنه في الأساس قد أنشئ ليجد فيه المستخدم المبتدئ ضالته عندما يريد التعلم أو إيجاد حل لمشكلة تواجهه لذا فستجد أن أغلب أعضاؤه إما أشخاص يطلبون معلومات أو حلول (المبتدئين) أو أشخاص (وهم الأكثر خبرة) يحاولون قدر ما أمكنهم الإجابة على هذه التساؤلات وأغلب أعضاء المنتدى هم من الهواة أي أنهم غير دارسين للبرمجة بل تجد أغلبهم إما معلمين أو محاسبين أو إداريين أي أن تخصصاتهم العلمية هي تخصصات مالية أو إدارية وليست برمجة والأهم من كل هذا أن القائمين على المنتدى هم أشخاص يقومون بعمل تطوعي لايرجون منه إلا الثواب والاجر من الله. على الجانب الآخر فنجد أن موقع مجموعة مستخدمي أكسس هو موقع عالمي (مهمته الأساسية هي العروض التقديمية عبر النت) وهذا يعني (أن القائمين عليه يعملون بدوام جزئي أو كامل) وعالبية أعضائه (خصوصاً من يقدمون هذه العروض) هم من المطورين الذين يقومون بتطوير منتجات مايكروسوفت أو من الحاصلين على لقب MVP من مايكروسوفت لذلك ستجد أن المواضيع التي يقدمونها هي مواضيع إما أنها تختص بالتحديثات المستقبلية التي تقوم بها مايكروسوفت أو مواضيع متقدمة تهم الأشخاص الأكثر خبرة وإحترافية فلو رجعنا الى الموقع او حتى للقائمة التي ذكرها الاخ محمد ستجد أن المواضيع تناقش خارطة طريق تحديثات اكسس أو إستخدام الذكاء الصناعي مع اكسس أو ربط أكسس مع SQL Server... إلخ لذلك عندما نجد أن هناك مبادرات مثل هذه المبادرة أو مثل مبادرة الأخ @Moosak فيجب علينا تشجيعها ودعمها ولكن في نفس الوقت لانتوقع أن يتم التفاعل من جميع الأعضاء فهناك من سيكون غير متفرغاً في وقت العرض ومنهم من لن يكون مهتم بموضوع العرض وعدد لابأس منهم لن يستوعبوا الموضوع لأن مستواه أعلى من إمكانياتهم .... وغيرها من الأسباب ولكن في الأخير (وهذه أهم نقطة يجب التركيز عليها) سنكون قد ربحنا مادة علمية ستكون مرجعاً هاماً وباللغة العربية لكل باحث يريد أن يتعلم أكسس . خلاصة القول والذي أريد إيصاله أنه يمكننا البدء بإنشاء آلية عمل تشبه التحديات الشهرية ولكن بطريقة عكسية فبدل أن يتم ترشيح المواضيع سيقوم كل من يجد نفسه قادراً على إعداد مادة علمية لموضوع معين (أو أكثر) بإنشاء منشور للإعلان عن هذا الموضوع والتاريخ والوقت الذي سيتم فيه العرض وعلى كل من يجد في نفسه الرغبة المشاركة في الحضور أن يبدي رغبته عن طريق الرد على هذا المنشور وإذا رأى صاحب المنشور أنه قد حصل على العدد الكافي يقوم بتأكيد الموعد وطريقة المشاركة مالم فيتم إغلاقه وبهذا يوفر على نفسه التعب والإحباط .

أنا أقول : 🙂 أخي محمد @mohammed farhat دامك متحمس .. خذ بزمام الأمور وتبنى أنت الفكرة .. وتوكل على الله .. 😊🖐️ ربما تكون تجاربنا السابقة لها ضروفها الخاصة .. لذلك قد أنت سفينتك وعش التجربة .. 🙂👌

سلام عليكم اخي علي محمد علي اشكرك على الرد الكافي والمعادلة التي صلحت معي هي MIN(IF(($C$7:$C$32=$M7)*($G$7:$G$32=""),$E$7:$E$32)) جزاك الله خيرا وجعلها في ميزان حسناتك والسلام عليكم ورحمة الله تعالى وبركاته =MIN(IF(($C$7:$C$32=$M7)*($G$7:$G$32=""),$E$7:$E$32))

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

هذا هو أحد الامثلة على الاجتماعات لجروب مستخدمي برنامج الاكسس في أوروبا

السلام عليكم ورحمة الله وبركاته اظافة الى حل استاذتا اأبومروان حيث يثمثل الحل بطريقتين اذا اردت معرفة عدد الندوات التي شارك بها اي مشارك واحد انقر على اي اسم مرتين تظهر رسالة بعدد المشاركات والغعاليات اما اذا اردت كل المشاركين يوجد زر يقوم بانشاء ورقتين احداها لكل المشاركين والاخرى للفعاليات توجد بعص الفعاليات بها اكثر من لجنة (تعاون) ولإعطاء كل لجنة حقها؛ ففي حال تنظيم فعالية مشتركة بين أكثر من لجنة (مثل: لجنة الكتاب والنشر - ثقافة الطفل - الشباب "تعاون"), يجب أن يتم احتساب هذه الفعالية لصالح كل لجنة من اللجان المذكورة بشكل مستقل ومستساغ، بدلاً من قراءتها كنص واحد لكما كل التقدير والاحترام مؤشر عمل اللجان.xlsb

السلام عليكم ورحمة الله اتفضل تم عمل المطلوب علي حسب ما فهمت لعله يكون المطلوب مؤشر عمل اللجان.xlsm

فيديو تجسيد لفكرة اللعب على الشبكة المحلية :- طبعاً الفكرة قيد التطوير لإيجاد بدائل لموضوع الربط والجداول في القاعدة الخلفية للجداول ..

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

اختصارا للوقت ...... جرب المرفق التالي ..... يتم تكوين جدول بالمواد مهما كان عددها في الجدول <><><><><><><><><><><><> KAN_2.accdb

ممكن وبكل سهولة هذا البرنامج يسهل عليك أدخال الدرجات والتاريخ كذلك الشرح يطول ولكن ثق تماما أنك بمجرد أن تفتحه وتثبت الماكرو وتستخدمه ستفهم البرنامج ثم بعد التجربة أذا أردت أي توضيح نحن في الخدمة محرر الأكواد مفتوح ويمكنك التعديل عليه كما تريد الطريقة : افتح ملفك الذي تريد الأدخال فيه ثم افتح هذا الملف ثم اضغط على إحدى الأيقونتين (الدرجات أو التاريخ) وعندما يفتح الفورم انتقل مباشرة إلى ملفك الذي تريد الأدخال فيه ستجد أن الفورم ينتقل إلى الملف الجديد تفضل إدخال الدرجات والتاريخ.xls