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

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

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. سأتطرق اليوم لفكرة غريبة جداً تتلخص بأنني في فترة دراستي في عام 1997 ، كان في منهاجنا لمادة الحاسوب ، برمجية أسمها لغة أفكار ( MS-DOS ) ، وهي تقوم على مبدأ إدخال أوامر داخل البرنامج لتنفيذ رسومات . مبدأ هذه البرمجية القديمة يشابه Berkeley LOGO . حيث الفكرة تقوم على إعطاء أوامر مثل :- أمام ، خلف ، يمين ، يسار ، كرر .... إلخ وكتوضيح للفكرة في الصورة التالية :- ولأن الموضوع بفكرته غريب نوعاً ما .. سأقوم بالشرح البسيط لآلية العمل :- عند تشغيل الأداة ، وللتجربة دون قيود حفظ المشاريع داخل الجداول . انقر على الزر "اكتب أمراً هنا" ستجد أن سلحوف ( اسم الشخصية التي أخترتها لقلم الرسم ) قد ظهر مع خطوط لتحدد إحداثيات الرسم (س،ص / x,y ) في خانة كتابة الأوامر ، سأعرفك على الأوامر بشكل سريع لو كتبت الأمر "مساعدة / مساعده" (بالهاء أو التاء المربوطة ) . أو انقر على زر علامة التعجب في أقصى اليسار . بعد أن تعرفت على الأوامر والتي تتمثل بإعطاء اتجاهات وزوايا وشروط وتكرارات . جرب على سبيل المثال الأمر التالي :- سرعة 3 كرر 10 ( مربع 50 يمين 36 ) ستجد أن النتيجة للرسم تساوي الصورة التالية :- طبعاً فإنني قد قمت بدمج مجموعة من الأشكال الثابتة مثل ( مربع ، دائرة ، مثلث ، نجمة ، قوس ، مستطيل ) داخل مصفوفة في عقل الأداة . فمثلاً لرسم مربع طول ضلعه 50 فرضاً . سنحتاج لكتابة :- 1. أمام 50 2. يمين 90 3. امام 50 4. يمين 90 5. امام 50 6. يمين 90 7. امام 50 8. يمين 90 لاحظوا أنها 8 حركات لعودة القلم سلحوف لمكانه الطبيعي . بينما يمكننا تنفيذ الفكرة بشكلين آخرين مثل :- كرر 4 ( امام 50 يمين 90 ) ولذا قد دمجت هذا الأمر داخل البرنامج ليصبح باختصار مربع 50 . وكذلك الأمر لرسم دائرة بقطر 50 مثلاً ، ما عليك سوى كتابة الأمر :- دائرة 50 أو يمكنك استخدام الأمر المركب :- كرر 360 ( امام 1 يمين 1 ) وفي الحالتين سيرسم لك دائرة . والأوامر كثيرة جداً والتي يمكن أن تجعل من الأداة عبارة عن ملهم خيال وأفكار لرسم مجسمات الأشكال . ماذا يمكنك أيضاً أن تجد في واجهة الأداة ؟ 6 أزرار في أقصى اليمين تمثل ، زر فتح مشروع محفوظ ، زر مشروع جديد ، زر حفظ المشروع الحالي كصورة ، زر لاختيار لون من أولان الويندوز ، زر لتصدير أوامر المشروع الحالي ، وزر استيراد أوامر مشروع خارجي ، وكلاهما بصيغة ملفات نصية . زر لإيقاف العملية الحالية في حال أردت الإيقاف ، وسيتم التراجع عن الأمر الذي تم إيقافه . ملف الأداة مفتوح المصدر ، للتحميل :- Foksh Turtle 2026.zip وهذه صور لبعض من التجارب التي قمت بها

1️⃣ تم التعامل مع جميع الملاحظات التي طُرحت من الإخوة والأساتذة ( مشكورين جميعاً ) الذين قاموا بتجربة الأداة ومشاركتي نتائج اختباراتهم وملاحظاتهم . 2️⃣ تم إصلاح مشكلة الأزرار وأيقوناتها في الإصدار 2003 بإضافة إصدار منفصل كلياً وبنفس المزايا . ملف الأداة مفتوح المصدر ، للتحميل :- Menu Builder 2026.zip Menu Builder 2003.zip

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

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 أما في الإصدارات الأحدث فإن القوائم يتم إنشاؤها بإستخدام الكود ولو إطلعت على الأداة التي كنت قد رفعتها في هذا الموضوع ستجد الطريقة أرجو أن يكون الشرح واضح تحياتي

مشاركة مع استاذنا منتصر ملحوظة صغيرة : NO و Yes كلمتان محجوزتان وايضا رأيي ليش الدوشة وتشغيل ادوات لها اول وليس لها آخر افتح حقل الرمز للتحرير واجعل قيمته الافتراضية تتغير بعد كل تحديث عندما تختار سجل جديد ستظهر القيمة الافتراضية الجديدة .. او حتى تم اغلاق وفتح النموذج سيظهر آخر قيمة افتراضية مع ملاحظة حذف وازالة القيمة الافتراضية من الجدول هذا كل ما تحتاجه فقط Private Sub NO1_AfterUpdate() Me.NO1.DefaultValue = Me.NO1.Value End Sub

تبارك الله .. تبارك الله .. 🤚😃✋ وفوق كل ذي علم عليم .. سبحان الله الخلاق العظيم 😃🤲 عجيب جدا هذا الأكسس .. لا تنقضي عجائبه .. سبحان الله .. 🙂 جميلة وممتعة 😊👌🌼 .. سلمت يمناك أبا وسام .. وزادك الله علما وفهما .. ورزقك من حيث لا تحتسب 🙂🤲

اول شئ اعدادات الستامب من جي ميل تجسب منه (your_app_password) 🛠️ خطوات الحصول على App Password جديد في Gmail افتح المتصفح وسجّل الدخول إلى حسابك في Google. ادخل على صفحة إدارة الحساب (Google Account). من القائمة الجانبية اختر الأمان (Security). تحت قسم تسجيل الدخول إلى Google (Signing in to Google) ستجد خيار App Passwords. إذا لم يظهر، تأكد أن التحقق بخطوتين (2-Step Verification) مفعل. اضغط على App Passwords. سيطلب منك كلمة مرور الحساب للتأكيد. اختر التطبيق: Other (Custom name) واكتب مثلاً "AccessBackup". اضغط Generate → سيظهر لك كلمة مرور مكونة من 16 حرفًا. انسخ هذه الكلمة وضعها في الكود مكان your_app_password. يمكنك أيضًا إضافة أكثر من مستلم باستخدام فاصلة منقوطة: .To = "your_email@gmail.com;other_email@gmail.com" واليك نسخة مجربة لكني غيرت بياناتي . مع تعديل دالتك وتطلبها بزر أو بطريقتك . اليك المرفق . ووافني بالرد . BackupTest.rar

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

جربت ملف Menu Builder 2003.mdb وأنتج ما تم عمله مع الملف الأصلى وإن كانت الأزرار غير ظاهرة ( دون أن أذهب لويندوز 10 الذى عليه أكسس 2024 ) لكن الأخ فادى وضع مسمى تحت كل زر يوضح عمله وكان كافياً

لايوجد فرق بين الإصدارات المهم ماهو الإصدار الذي تعمل به فطالما أنك تعمل في اكسس 2024 فستظهر لك نفس البيئة سواء كان الملف الذي تفتحه mdb او accdb حاولت تعديل الملف ليعمل في 2003 وكانت هذه هي النتيجة سنجد هنا أن الأزرار لم تظهر كما يجب أن تكون عليه ولكن لو فتحت نفس الملف في اكسس 2024 ستظهر بشكل طبيعي ارفق لكم الملف لمن يحب أن يجربه Menu Builder 2003.rar

يبدو أنك قمت إما بالتعديل على الوظيفة الإضافية مباشرة وبالتالي لن يتم حفظ التعديلات أو قمت بالتعديل على الملف الأساسي ولم تقم بإعادة إنشاء الوظيفة الإضافية مرة أخرى لأني طبقت الخطوات ونجحت معي سأرفق لك الملف بعد التعديل قم بفتحه وأنقر زر 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

طالما أن النموذج هو نموذج فرعي فهذا معناه أنه مرتبط بالنموذج الرئيسي بحقل وبالتالي يمكنك أن تجعل الأمر الذي يقوم به الزر هو إدراج سجل جديد يحتوي قيمة الحقل المرتبط ثم تحديث النموذج الفرعي ولكن ولأن المثال الذي ارفقته لايحتوي على جدول رئيسي وجدول فرعي فقد قمت بوضع حل يناسب هذا الوضع هذا الحل سيكون مناسبأ سواء كان النموذج هو نموذج مستقل أو نموذج رئيسي أو فرعي تم توضيح وظيفة كل سطر بالتعليقات تحياتي 12 (6).accdb

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

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

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

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

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

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

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

مشاركة مع فكرة مستقلة لإرسال بريد إلكتروني مع مرفقات .. اقرأ الموضوع التالي :-

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

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

لحساب تاريخ ووقت نهاية الإنتاج نستخدم الدالة getEndDate كالتالي: - نمرر رقم 1 إذا كانت العطلة الأسبوعية يوم واحد: =getEndDate(Z$2,AC4,6,1) - نمرر رقم 2 إذا كانت العطلة الأسبوعية يومين: =getEndDate(Z$2,AC4,6,2) - نمرر رقم 3 إذا كانت العطلة الأسبوعية ثلاثة أيام: =getEndDate(Z$2,AC4,6,3) أما رقم 6 فهو رقم أول يوم في عطلة نهاية الأسبوع وهو قيمة يوم الجمعة فكما هو معروف فأيام الأسبوع تبدأ برقم 1 ليوم الأحد وتنتهي بيوم 7 ليوم السبت.

برأيي أن تجعل النموذج الحالي في الملف المرفق هو أول نموذج يعمل لديك لأنه لا يعتمد على أي جدول كمصدر بيانات . مع تعديل اسم النموذج لما لديك في الحدث ليصبح :- Private Sub Form_Load() On Error Resume Next If CheckLinks("") = False Then Call Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' DoCmd.OpenForm "frmLogin", acNormal DoCmd.Close acForm, Me.Name End Sub بحيث ، عندما يتم فتج قاعدة لبيانات ، سيتم التأكد من ربط جميع الجداول بالمسار الحالي أو اختيار ملف قاعدة بيانات الجداول لأول مرة . وبعد التحقق من صحة الربط سيعمل لديك النموذج الخاص بتسجيل الدخول .

محاولة باعتبار أن "الإجازات الرسمية" هي عطل نهاية الأسبوع كما فهمتها. Egypt Moulded schedule 03-03-2025_02.xlsm

إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له

من الإضافة القادمة رقم 1 ، هل هذا ما تقصده: ( سوف يكون ذلك كثير من الدلع ، فعلاً فكرة ممتازة ) عندك عشرات من التقارير والنماذج وتريد إضافة تلك القائمة المختصرة (ليس يدوياً بل آلياً ) إلى خصائص كل تقرير أو نموذج

اداة مفيدة ... بارك الله فيك ... هديه مقبولة

تبارك الله وحفظك .... بشمهندس @Foksh هذا يسهم في اختصار الوقت والجهد .... جزاك الله خيرا .... ورحم الله والديك

قبل التجربة أقول : ما شاء الله عليك حليت الإشكال .. وحسمت الخلاف .. وجبت الديب من ديله 😄👌

ما شاء الله تبارك الله ...... مبدع كعادتك استاذ فادي

شكر وتقدير من أخيك

اخوي احمد ارفقت لك الكود الاصل لعمل هذه القائمة ، وقمت بتوقيف القوائم التي لا تحتاج لها ، وبتعديل ارقام القوائم التي تريدها ولم تظهر لك. 1. استورد القائمة الى برنامجك ، وجربها ، 2. اذا ما اشتغلت القائمة بالطريقة الصحيحة ، قم باستيراد الدالة ، وخلينا بعدين ننظر في تعديل القوائم اللي ما تشتغل. خلي عندك هذه الروابط حتى نرجع لها وقت الحاجة: . https://mskb.pkisolutions.com/kb/213552 Shortcut Menu_MDB_Report.mdb

الحمدلله تم عمل الدالة ، وان شاء الله ارفقها في الموضوع الجديد

جميل جداً إخلاصك وتفانيك فيما بحثت عنه وكنت _أنت_ بارعاُ فيه شريط القائمة المختصرة فكرة رائعة وتختصر الكثير من الوقت والجهد ولا أطلب منها سوى وظيفة الطابعة فقط ، وهى باهتة فى 2003 غير محتاج لوظيفة أكسل أو وورد أو pdf ما تفضلت به بالكود أعلاه وكيفية استدعاءه أشكرك عليه لكن لا أظن أن ما سبق سوف يعادل فكرتك فى القائمة المختصرة وسهولة استخدامها وبالمناسبة الكود السابق لا ينتج المطلوب منه (فقط وميض ولا شئ آخر) .. جربته حتى على 2007 وحيث أن أغلب المدارس تستعمل أوفيس 2007 فما فوق فلا أجد مشكلة هنا المشكلة قد تكون عندي لأننى أجد سهولة كبيرة جداً فى التعامل مع 2003 تحياتي و تقديري لشخصك الكريم

وهذه مساهمة مني بادراج الوحدة النمطية الموجودة في الملف St.Sys2.rar

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

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

Try this formula =MID(LEFT(A1,LEN(A1)-6),5,LEN(LEFT(A1,LEN(A1)-6)))

رائع استاذ مجدى بارك الله فيك وتقبل الله منك سائر الأعمال

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

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

اللهم امين -بارك الله فيك استاذ مجدى وجزاك الله خير الثواب

أكرمك الله استاذ ماجد ... بارك الله فيك

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

السلام عليكم أخي العزيز أبو البراء السر يكمن من آخر قيمتين في الكود true , true القيمة الأولى true ترجع لخاصية رأس النطاق header لما تعملها true يعنى أنك ستستخدم هذه الخاصية أما لو عملتها false يعنى أنك لا تريد استخدامها وفي هذه الحالة لا تهم القيمة الثانية سواء كانت true أو false القيمة الثانية true ترجع لاستخدام الخلية الأولى في النطاق لما تعملها true يعنى أنك تريد ظهور بيانات الخلية الأولى f9 في النطاق F9:F12 ولما تعملها false يعنى أنك لا تريد ظهور بيانات الخلية الأولىf9 في النطاق F9:F12 بل الخلية الثانية f10 نحلل الآن الكود الذي في الأعلى الكود سيحضر لك البيانات التي في النطاق F9:F12 true الأولى يعنى قم بتفعيل خاصية راس النطاق HEADER true الثانية يعنى قم بجلب البيانات الموجودة في رأس النطاق المحدد وهو f9 عندما يتم التنفيذ سيفاجأ الكود أن الخلية F9 (الموجودة في الملف المراد جلب البيانات منه ) مدمجة يعنى فيها خلل سيكتب لك f1 يعنى الكود ها يقول لك : أنت يا سيدي حددت لي الخاصية HEADER على أنها TRUE يعنى غضبا عني لا زم أجيب قيمة أول خليةF9 وأنا ما عرفتش أجيب البيانات اللي في الخلية دي لأن فيها مشكلة ولكنها الخلية الأولي في النطاق المحدد لاحظ أن F1 يعنى خطأ في رأس العمود الأول من النطاق المحدد F2 يعنى خطأ في راس العمود الثاني من لنطاق المحدد (لن تظهر عندك F2 لأنك حددت عمود واحد F9:F12 ولكن يمكن أن تظهر عندما تحدد أكثر من عمود مثلا B2:T5 ومعنى F2 هو أن الخلل يوجد في رأس العمود الثاني من النطاق وهو الخلية C2) وهكذا F6 يعنى خطأ في رأس العمود السادس من النطاق المحدد طيب سوال : لو دخلنا على نفس الكود أعلاه وغيرنا آخر قيمة من TRUE ألى FALSEكيف ستظهر النتائج ؟ الجواب لا حظ أن النطاق هو F9:F12 والقيمة الأولى TRUE يعنى استخدام خاصة هايدر والقيمة الثانية FALSE يعنى أن الكود سيحضر لك البيانات الموجودة في النطاق F10:F12 وليس F9:F12 يعنى أن الكود سيتجاهل رأس النطاق f9 سوال ثاني : ماذا لو كانت القيمة الأولى تساوي FALSE , ما معنى هذا ؟ الجواب عندما تكون القيمة الأولى FALSE فإن القيمة الثانية لن تعمل سواء كانت FALSE أو true وهذا يعنى أنك لا تريد استخدام الخاصية هيدر ولا تريد البيانات الموجودة في رأس النطاق الخلاصة سيكون لدينا ثلاث حالات للكود 1) True , True 2) True , False 3) False , True = False , False حالة واحدة

=MID(A1;2;LEN(A1)-1)