Foksh

عمل جميل ، وفكرة أيضا جميلة أستاذي الكريم 😊

هذا المطلب الاول بعد التعديل ، تفضل Backup.zip

هههههههههههه حاشا لله ، وانت بتعرف كويس إني بهزر معك 🤣

بداية يجب عليك استيراد الجداول المرتبطة بالقاعدة الرئيسية من ملف TBL ، لإنه حتماً اختلف مسار الارتباط من جهازي لجهازك ؛ حتى تكتمل عناصر النسخ الاحتياطي.

للأسف ليس لدي اوفيس 2003 ، أعتذر منك

بارك الله فيك مهندسنا الغالي ، مداخلة جميلة ، والتجربة خير برهان

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