Foksh

جرب هذا المرفق أخي الكريم واذا اردت الحفظ التلقائي عند الخروج للنسخة الإحتياطية ، فقط ضع امر الحدث في زر نسخة احتياطية عند زر الاغلاق او الخروج ، حسب ما تحب Backup.zip

أعذروني للمداخلة التي لا تعتمد على الأكواد ، بل توضيح حسب ما فهته من طريقة عمل وتحليل الأكواد لجلب تاريخ الميلاد بالتفصيل ( يوم ، شهر ، سنة ) أو عند الرجوع بالقاعدة بشكل عكسي للحصول على يوم الميلاد من عدد ( يوم ، شهر ، سنة ) مقارنة مع التاريخ الحالي وهو الشائع دائماً للحصول على هذه المعلومة . أعتقد إنه بداية الأكواد وعندما نعطيها تاريخ مثل ( 18/1/1960 ) باستخدام الدوال أو الأكواد البرمجية فإنها تعمل على مبدأ جبر الكسور التي تنتج عن فروقات الأيام بالأشهر التي عدد أيامها ( 30 و 30 و 29 و 28 ) يوم ، فالمعروف أن السنة الشمسية تقريباً تعادل 365.2524 يوم حتى مع احتساب السنة الكبيسة ، وعند جبر الكسر بالدالة Int فإنها تصبح 365 . وبالنتيجة فإن العملية العكسية للحصول على التاريخ ستتعامل مع الأيام على أنها رقم صحيح لا رقم بكسور عشرية ، وأعتقد هنا يأتي الفرق ( جزء بسيط من اليوم على مدار 63 سنة و 8 شهور و 28 يوم ) . بالعودة إلى الموضوع و الملف المرفق من الأستاذ @kkhalifa1960 ، فهو يعمل عند تجربتي له عدة مرات على تواريخ أخرى ؛ وحتى التاريخ الذي تحدث عنه . والمرفق فيديو يوضح ذاك . وأعتذر إذا تطرقت قريباً عن سياق الموضوع 20231016_195803.zip

يعني انت تريد التعديل على الأكواد ولإيجاد الحل لتعمل على اوفيس 2003 ؟؟ وإذا كان لديك نسخة أحدث من 2010 مثلاُ . فجرب هذه الطريقة ؟ من قائمة ملف File ، اختر الأمر خيارات Options ، ثم وقم بإضافة الأمر PDF or XPS لأي مكان ترغب به في شريط القوائم ، وسيقوم الآكسيس بتصدير التقرير لك بصيغة PDF بدون تشفير لللغة العربية . أو من خلال عرض التقرير كالآتي :-

قد تكون القاعدة تحتوي على مرفقات ( صور ، ملفات PDF .... الخ ) وهذا سبب ضخامة حجم قاعدة البيانات ؛ هنا ستجد سهولة في فك الارتباط معها واستخراج المرفقات ، وبنفس الوقت ستجد صعوبة في اعادة ربطها مع حقولها التابعة لها . حاول اكتشاف اين المكونات التي زادت من حجم القاعدة ؛ وكمثال لو أنا مكانك :- بداية احتفظ بالنسخة الأصلية بمكان آمن . سأقوم بانشاء نسختين من نفس المشروع بنفس المجلد . سأحذف جميع الجداول من أحدى هذه النسخ وللفرضية أسميها Main . النسخة الثانية سقوم بعمل العكس وهو حذف جميع المكونات باستثناء الجداول ، وأعمل للقاعدة إعادة ضغط وإصلاح ( Compact and Repair Database Tools ) . لاحظ الفرق بالحجم بين النسختين وستحدد من هو الجزء المسؤول عن زيادة حجم القاعدة. * الفكرة هي أنني سابقاً كان عندي مشروع فارغ من البيانات في الجداول وكان حجمه 65 ميغا رغم إنه ليس بالمشروع الضخم ، ولكن عند استيراد المشروع لقاعدة بيانات فارغة جديدة اختلف الحجم معي حتى وصل إلى 8 ميغا على نفس الكمبيوتر ونسخة الأوفيس . المغزى أنه قد تكون جداول النظام في المشروع هي السبب بزيادة الحجم لتلفها أو كونها تقوم بتخزين جميع الحركات في المشروع ( بعد إجراء السابق كمحاولة طبعاً ) هذا ان صح تخميني ، والله أعلم

وجدت هذا المقال في منتدى اجنبي ، هل من الممكن توسعة الفكرة لإدراج زر مع حدث له ؟ المقال

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

جرب هذا المرفق Get.accdb

لم يتم اخفائهم أخي الكريم ، قم بتحميل القاعدة وعند فتحها اضغط مفتاح الشفت فم افتحها فتظهر لك كل المكونات

نعم أخي الكريم ، المشروع محمي ولا يمكن حفظه بصيغة أخرى ، ولكن الكائنات والجداول وكل المكونات تفتح ( مشروع مفتوح المصدر بتقييد ) ، حتى انك لا تستطيع استيراد النماذج لقاعدة بيانات جديدة بينما الجداول سهل تستوردها والاستعلامات .... الخ ، كأنها قاعدة بيانات من نوع 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 بصوت أفكارك العالي ، ما الذي يخطر في بالك في التصميم لتقرير الفاتورة ؟ البنود والعناصر الأساسية للفاتورة كلها موجودة ما شاء الله وأجمل من تصميمي للفاتورة في برنامجي 😅 فأفصح عما يجول بخاطرك