Amr Ashraf

السلام عليكم اساتذتى الافاضل سأشرح اليوم طريقتى فى تحزيم قاعدة البيانات لاعطائها للعملاء وذلك بعد مساهمة العديد من الاساتذة لاتمام الاكواد بالشكل الصحيح .. الطريقة هى تحزيم قاعدة البيانات بالوينرار ثم تحويلها ل Accde وذلك على جهاز العميل حتى نتلافى اخطاء اختلاف اصدارات الاوفيس والتى تؤدى الى عدم امكانية تشغيل القاعدة المحولة باصدار اخر من الاوفيس ... وفى النهاية يتم حذف قاعدة البيانات الاصلية Accdb و حذف برنامج التحويل وترك النسخة Accde فقط على جهاز العميل وعمل Shortcut لها على سطح المكتب تابع الشرح >>> قم بتحديد الملفات المطلوب ضغطها ثم اضغط كليك يمين واختار Add To Archive وتابع الخطوات وستجد الملف الناتج بشكل الايقونة التى تم اختيارها وبصيغة Exe وعند تشغيله سيقوم بالخطوات السابق شرحها من تحويل ثم حذف للملفات الزائدة مرفق مثال قم بفك الضغط عنه وشغل الملف الناتج ... و مرفق الاكواد المستخدمة دمتم بخير Ready.rar Source.rar

تمام جزاك الله خير استاذى ... هو المطلوب

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

up

اخى الكريم بعد قراءة الموضوع وعلى حسب فهمى هناك 2 يستخدموا قاعدة بياناتك وتريد استيراد بيانات من القاعدة الاولى الى القاعدة الثانية وحذف البيانات القديمة ... طيب هناك تساؤل لماذا لم تقم بتقسيم القاعدة ليعمل عليها المستخدمين وبهذا تكون البيانات متاحة للجميع ... او فى حالة ان هناك صلاحيات مختلفة اعمل نظام صلاحيات مستخدمين او نظام دخول لتوجيه كل مستخدم الى شاشة الادخال الخاصة به ؟

جزاك الله خير استاذ جعفر

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

السلام عليكم اساتذتى الافاضل محتاج طريقة للتحقق من امتداد قاعدة البيانات فاذا كانت Accdb تظهر رسالة "لم يكتمل التثبيت وجارى الخروج من البرنامج " اما اذا كانت بصيغة Accde تفتح على النموذج الرئيسى بطريقة عادية وذلك كجزء من طريقة عند اتمامها سأشرحها على المنتدى لعلكم تستفيدون منها ... جزاكم الله خير

اضافة الى ما قال الاساتذة يمكن من خصائص النموذج فى تبويب Format هتلاقى Navigation Buttons خليها No شوف الصورة

لم تظهر رسالة خطأ وانا استخدم ويندوز 7

2016 اصدار 32 بيت

استاذى الفاضل جزاك الله كل خير هدية رائعة وجارى التجربة وياريت تزود عليها نقطة صغيرة بلمساتك الفنية ألا وهى انى محتاج ارفق القاعدة Accdb ولكن عند انتهاء التثبيت تصبح accde وكأن النسخة الاصلية لم توجد من الاساس ويتبقى النسخة المحولة فقط ويستحسن يتم حذف ملف التثبيت هو الأخر تقبل فائق احترامى استاذى الفاضل جزاك الله كل خير هدية رائعة وجارى التجربة وياريت تزود عليها نقطة صغيرة بلمساتك الفنية ألا وهى انى محتاج ارفق القاعدة Accdb ولكن عند انتهاء التثبيت تصبح accde وكأن النسخة الاصلية لم توجد من الاساس ويتبقى النسخة المحولة فقط تقبل فائق احترامى بعد التجربة استاذى الفاضل البرنامج يظهر رسالة لاستعلام حذف ثم يظهر رسالة بنجاح العملية ولكن لا يصنع ملف تثبيت على سطح المكتب جربت على عدة قواعد لا يوجد بها اخطاء بالاكواد وعملت كومبايل ولكن دون جدوى

تم التجربة على قاعدة كاملة والكود يعمل جيدا بدون مشاكل ... جزاكم الله خير

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

غريب الموضوع والله !!! الكود الاول لا يقوم بالتحويل مع العلم انى كنت بشتغل بيه طبيعى على جهاز اخر نفس اصدار الاوفيس حتى !! لا اعرف ما المشكلة .... طيب انا هجرب على جهاز اخر فى العمل وارجع بالنتيجة تمت التجربة للكودين على 3 أجهزة اوفيس 2016 اصدار 32 والاكواد لا تقوم بالتحويل ولا اعرف السبب مع العلم انه تم تشغيله فى مجلدات موثوقة الرجاء من الاخوة التجربة للكود مع ذكر اصدار الاوفيس جزاكم الله خير

نفس المشكلة اخى الكريم الاختلاف الوحيد انه فى هذه الحالة لم يحذف القاعدة الاصلية ولم يحولها ايضا !!! ماهو الاسم المستخدم فى الكود عندك يعنى بدل (1) ؟؟

شكرا على مرورك استاذى الفاضل ولكن هناك اختلاف كثير ما يحدث فى اصدارات الاوفيس وكما تعلم عند تحويل القاعدة لaccde مثلا ب2016 نسخة 32 بيت لن تعمل الا على هذه النسخة وبالتالى نلجأ لهذه الطريقة ... وهناك طريقة أفضل حيث اقوم مثلا بتحزيم البرنامج بالWinrar ثم اختيار ملف التحويل ليعمل تلقائيا بعد الفك وبالتالى فإن المشترى لن يرى النسخة الاصلية من الاساس ولكنه سيرى النسخة المحولة بعد الانتهاء لا استاذى الفاضل انا اعمل قاعدة جديدة واسميها 1 ثم اشغل القاعدة فيقوم بحذف القاعدة اللى باسم 1 بدون تحويلها ل Accde ثم تظهر هذه الرسالة وهذا هو الكود المستخدم Function Amr() Dim sourcedb, targetdb, nametargetdb As String sourcedb = "D:\1.accdb" targetdb = "D:\tt2.accde" nametargetdb = "D:\1.accde" Dim accessApplication As Access.Application Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With Kill sourcedb Name targetdb As nametargetdb FollowHyperlink nametargetdb End Function

وعليكم السلام ورحمة الله وبركاته استاذى الفاضل بعد تجربة الكود لا يعمل حيث انه يقوم بحذف القاعدة الاصلية ولا يقوم بتحويلها ثم تظهر رسالة من الفاجيوال بيسك تقل بأن الملف المطلوب غير موجود استفسار اخر هل من الممكن ان تتم العملية من داخل القاعدة المطلوبة وليست عن طريق قاعدة اخرى خارجية بحيث يتم ارسال البرنامج نسخة accdb للعميل وعند فتحها اول مرة تقوم بتحويل نفسها الى accde ثم تحذف النسخة accdb بالطريقة السابقة ؟ جزاكم الله خير استاذى الفاضل Converter.rar

السلام عليكم اساتذتى الافاضل اثناء تصفحى لأحد المواضيع لفت نظرى كود وضعه أستاذنا الجليل جعفر وهو طريقة للتحايل على موضوع 32 و 64 عند تحويل القاعدة الى ACCDE وهذا هو الكود Function ConvertToaccDE() Dim sourcedb, targetdb As String sourcedb = "D:\Converter.accdb" targetdb = "D:\2.accde" Dim accessApplication As Access.Application Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With 'Set accessApplication = Nothing End Function ولكن اريد تطوير هذا الكود بحيث يفتح قاعدة البيانات ويحولها الى ACCDE بنفس اسمها ثم يحذف القاعدة الأصلية ليس الى سلة المهملات ولكن Shift+Delete وذلك للاطمئنان ووسيلة حماية اضافية ... ولو فيه طرق اخرى لعمل نفس الوظيفة مافى مشكلة ... جزاكم الله خير

جزاك الله خير استاذى الفاضل

اعذرنى استاذى لم الحظ انه ليس Expression اما بالنسبة للتقرير ياريت توضح ما هو استخدام حدث On_Print الذى استخدمته جزاك الله خير

up

السلام عليكم اساتذتى الافاضل فى المرفق تقرير حابب اطبق فيه شرط معين اذا كانت القيمة اكبر من صفر يكتب مدين واذا كانت غير ذلك يكتب دائن جربتها فى التقرير وثابتة على قيمة واحدة لاتتغير جربتها فى مربع نصى و جربتها فى حدث عند تحميل التقرير وجربتها فى الاستعلام وفى ال3 حالات النتيجة ثابتة لا تتغير بتغير الارقام ماهى المشكلة ارجو الاطلاع على المرفق ... جزاكم الله خير Madin.rar

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

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