Foksh

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

أخي الكريم هل المشروع بداية ملكك ؟ كل التحية لك المشروع محمي Workgroup Administrator

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

هههههههههههه ، نسيت ازالتها ، ومع ذلك فكان هدفي انه الأخ السائل لعله يخرج بفكرة من الملف 😉

جرب هذا الملف ، ممكن يفيدك بما إنه المعطيات كانت مكتملة أخي الكريم ، Test.accdb

هو أنا أنسى هههههههه

هذا الملف القديم تم التعديل عليه ، ولضيق الوقت عندي بالعمل ، لم استكمل الـ WaredB تفضل loseNumber.accdb

قم بإضافة الحقل PicFile في نموذجك انشئ مربع نص غير منضم وسميه مثلاُ Ext ، واجعل مصدره هذا الكود =Right([PicFile],4) في الكود الخاص بك هنا oldpathANDname = CurrentProject.Path & "\download\" & [id] & Me.Ext فقط قم باستبدال "Jpg." إلى Me.Ext الموجودة في كل الكود

اخي حدد معطيات لسؤالك بشكل أوسع ، من مكان 1 الى مكان 2 حددهم بالنسبة لمرفقك . كيف تختار الصورة المراد نقلها مثلاً في المرفق ؟

انا في جهازي هذا اوفيس 2016 مثلاُ ، والملف المرفق من طرف أخونا @kanory يعمل عندي دون اي مشاكل وهو تصدير البيان إلى أكسل . وكان الهدف من سؤالي إنه لربما إصدار الأوفيس هو المشكلة لديك .

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

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

أخي الكريم أنا بالنسبة لي فأنا اعتمد طريقتين :- الأولى عن طريق استعلام حذف للسجل الرئيسي اذا كان Null = فارغ فإنه النموذج يقوم بتشغيل هذا الإستعلام عند الاغلاق أو الزر المسؤول عن الإغلاق فقط . والثانية هي كالآتي :- في النموذج الذي لا أرغب فيه أن يتم حفظ التلقائي عند الخروج من النموذج فإني أقوم بإنشاء مربع نص ( واسمه مثلاً Drty ) ؛ وأجعل قيمته الإفتراضية = 0 في خصائص النموذج استعمل الحدث عند وجود شوائب ( On Dirty ) وأضع به هذا الكود البسيط , [Drty] = 0 وفي حدث عند الإغلاق للنموذج أو الزر المسؤول عن الإغلاق أقوم بوضع هذا الكود الخفيف أيضاً , If Me.Drty = 0 Then Me.Undo DoCmd.CancelEvent End If

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

ما هو إصدار الأوفيس عندك ؟

أخونا @Eng.Qassim بصوت أفكارك العالي ، ما الذي يخطر في بالك في التصميم لتقرير الفاتورة ؟ البنود والعناصر الأساسية للفاتورة كلها موجودة ما شاء الله وأجمل من تصميمي للفاتورة في برنامجي 😅 فأفصح عما يجول بخاطرك

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

تابع بمداخلة سريعة ، دون الخروج عن سياق الموضوع: بعد تجربة حفظ الملف الأول المرفق DD226 من أخونا @kkhalifa1960 بصيغة ACCDE من أوفيس 2010 ، لم أجد أي مشكلة ولا أي تعارض للكود مع صيغة الملف ؛ وأما المرفق الثاني فالفكرة ليست كما أردت ولم أقم بتجربته إلاةمرة واحدة ( من باب الشفافية والحيادية ) وقمت أيضاً بحفظ الملف بصيغة آكسيس 2002-2003 أيضاً ، وكانت الفكرة تعمل ، هذا وما زلت أنتظر منك أخوي @AbuuAhmed إسناد معلومتك كمثال بملف mde (علّي أفهم ما وجهة نظرك في تعليقك ) لأني صدقاً لا أملك نسخة أوفيس أقل من 2010 رغم أن جهازي يحتوي ويندوز XP حتى. هذا إن لم يكن هناك مانع من سعة صدرك ورحابته. ☺️

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

يعني أعتقد مقصد أخونا هو استعمال ملف اكسل كمصدر للبيانات في النموذج وليس جداول اكسيس نفسها !! صح ؟

هذه ليست محاولة ، هذا إبداع ما بعده إبداع . والله إنه ليس بالجديد على عمالقتنا وعباقرتنا في هذا المنتدى ؛ نتعلم منكم كيف نوجد الحلول بطرق رهيبة سأعتمد وأقوم بالتعديل على فكرتك ( بعد إذنك طبعاً ) لتتماشى مع باقي الفكرة التي في مخيلتي وهي إنشاء الزر تلقائياً مع حدث عند النقر 😁 بوركت أستاذي @kkhalifa1960

هل الـ 4000 موظف سيمر أسمائهم بالشريط المتحرك ؟؟ بالعودة لمشاركتك الأولى اعتقد أن الأسماء المنتهية بطاقاتهم قد يكونون محصورين بعدد إقل بكثير من هذا الرقم ، ففكرتي هي استعلام يجبي الاسماء ويرحلها في جدول مستقل ويكون مصدر الشريط وبياناته هذا الجدول الإفتراضي ويكون قابل للتحديث حسب تاريخ اليوم ( تاريخ متغير ) ، وقد يخفف هذا الأمر ألبحث عنهم بين الـ 4000 ليكون العدد محصور بالجدول. هذه فكرة ولم أقم بتحميل وتجربة مرفقات الأساتذة ( أتصفح من الموبايل )

جاري التجربة أستاذنا الكبير 🙏

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

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