منتصر الانسي

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

قمت بالإستفادة من كود أحد الأمثلة في المنتدى وعدلت الإجراء ليعتمد على المعلمات بدل القيم الثابتة ستجد في المرفق ملف يحتوي على نموذج ووحدة نمطية قم بإسترادهما إلى تطبيقك وفتج النموذج ستجد فيه مربعات لتحديد القيم المطلوبة وبالنقر على زر (تنفيذ الإجراء) يفترض أن يتم تعميم القيم المحددة فيما يخص قيم (حجم الخط و الإرتفاع) قمت بتحديد القيم بالنطاق (من 7 الى 72) لحجم الخط لإن حجم أصغر من 7 أراه غير منطقي لأن النص سيصبح غير مقروء والرقم 72 هو الحد الأقصى لحجم الخط في أكسس ولست متأكداً من أنه يقبل رقم أعلى من 72 نفس الشيئ للإرتفاع فإرتفاع أقل من 4 ملم سيكون صغيرا جداً وإرتفاع أكبر من 1.4 سم سيكون كبيراً جداً ولكن في الأخير لك حرية تعديل القيم بصراحة أنا لم أجرب تنفيذ الأمر لذلك لا أدري إذا كانت ستظهر أي أخطاء فإذا ظهرت أي أخطاء يرجى إعلامنا بها تحياتي Fonts.accdb

لو كنت ركزت على كلامي كنت ستجد أني كنت قد وضحت لك أن التعديلات ستكون في عبارة If وحدث فتح النموذج ولكنك قمت بالتعديل الأول وتجاهلت الثاني وهو التعديل الذي يقوم بقراءة القيمة الإفتراضية المحفوظة عموما هذا ملفك الاخير بعد التعديل تحياتي Lab_small.rar

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

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

قام الاخ @Foksh مشكورا بحل المشكلة ولكن يتبقى على الاخ @jo_2010 مسح خاصية القيمة الإفتراضية لمربع النص في النموذج

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

قمت بتعديل الملف وتم تنفيذ المطلوب ولكني وجدت مشكلة لم أعرف مصدرها فعندما كانت القيمة الإفتراضية في الجدول محددة برقم 95 كنت عند إضافة سجل بالقيمة الافتراضية الجديدة يظهر الرقم 95 في رقم الايصال ولكن بعد الخروج من السجل والعودة إليه نجده قد تعدل إلى القيمة التي قمنا بتحدبدها كما بالصورة لاحظ كيف بعد أن رجعت للسجل السابق والعودة لنفس السجل تغيير رقم الايصال مع القيمة الافتراضية التي حددناها قمت بمسح القيمة الفتراضية للجدول فظلت المشكلة ولكن بالشكل التالي هنا قمت بإضافة سجلين وحصل معي نفس الشيئ قمت بالبحث عن إسم مربع النص NO_Esal في الأكواد لأعرف كيف يتم تعبئته فلم أجد له أي أثر المهم بهذا التعديل ستجد إجابة طلبك وعليك إيجاد المكان الذي يتم فيه تعيين قيمة مربع النص NO_Esal وتعديلها ليتم قراءة الرقم من مربع النص No وليس من القيمة الافتراضية له في الجدول تحياتي JO_Lab.rar

أضم صوتي إلى صوت الاخ @Moosak بان الاخ فادي يقوم بتطويع الأكسس ليقوم بأعمال أعتقد أنها لم تخطر حتى على بال من قاموا بتطويره أنه يمكنه القيام بها صحيح أن أعمال الرسم ليست من وظائف قواعد البيانات ولكني أرى أنه يمكن الإستفادة من هذه الأداة لتنفيذ أعمال مرتبطة بقواعد البيانات وهنا عندي سؤال للأخ @Foksh لو أردت دمج هذه الأداة لتعمل مع نماذج أو تقارير أخرى بحيث يرنبط كل رسم مع السجل الخاص به فكيف يمكنني القيام بذلك؟ طلب آخر لو تسمح لي (انت كريم وأعضاء المنتدى تستاهل ) لو ممكن ترفق لنا المثال الموضح في الصورة المتحركة لنستفيد منه لتعلم الطرق المختلفة من واقع المشاريع المحفوظة فيه ؟

هل تقصد أن تكون إفتراضية في مربع النص (التي يؤشر عليها السهم رقم 1) أم في مربع الحوار (التي يؤشر عليها السهم رقم 2) وفي الحالتين ماهي القيمة الافتراضية التي تريدها؟

هذا هو التطبيق الفعلي لإتقان العمل

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

ياخي أي جدول تقصد؟؟؟ هل ممكن توضح لنا بصورة للنتيجة التي تريد الحصول عليه؟

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

طلبك غير واضح الان نحن نقوم بإستيراد الاكسل الى جدول tblTempImport ثم يتم ترحيل البيانات الى الجدول tbl_Horaire أو tbl_Horaire2 الان ماهو طلبك هل تريد ترحيل بيانات الملف الثاني إلى جدول tblTempImport بدون حذف بيانات الملف الأول منه ام تريد أن يتم إلحاق السجلات إلى الجدول tbl_Horaire أو tbl_Horaire2 بدون حذف البيانات السابقة ماهو الطلب بالضبط؟

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

لايوجد فرق بين الإصدارات المهم ماهو الإصدار الذي تعمل به فطالما أنك تعمل في اكسس 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

عمل أكثر من رائع

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

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

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

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

صراحة أنا فكرتي كانت أبسط وهي أن يقوم المستخدم بإنشاء إرتباط مع الجداول المطلوبة فقط ولكن قد تكون فكرتك أكثر شمولية ليش مافي شي يستاهل 😅 إذا أنت أصلاً قمت بما هو أصعب وهو مثال الاكسل المذكور ولا أعتقد أن العمل مع أكسس سيكون أصعب بعد أن قمت بإضافة المشاركة فوجئت بأن الأستاذ @Moosak قام بالرد وكانت فكرته ترجمة للفكرة التي ذكرتها وهي ربط الجداول المطلوبة فقط وياريت يشاركنا الأداة التي ذكرها