الاخة الكرام
السلام عليكم ورحمة الله وبركاته
أود الحصول على الأتي :
1ــــ كود ينسخ القاعدة والجداول فقط في مكان يحدده المستخدم 0
2ــــ كود على زر أمر يقوم بالبحث عن النسخه المحددة في الشفرة فإن لم يتم العثور على تلك النسخة تظهر رسالة بعدم العثور على النسخة ويطلب من المستخدم تحديد مكانها بنفسه وإذا عثر على النسخة يقوم باستبدال الجداول الموجودة في قاعدة البيانات الحالية بنفس الجداول الموجودة في قاعدة البيانات النسخة وبنفس تسميات الجداول 0
أرجو ممن اسعفه وقته أن يفيدنا عن ذلك0
حفظ الله الجميع0
أخي الكريم
السلام عليكم وبعد
بالنسبة الأولى غير واضحة
الثانية في مقالي حول ضغط قاعدة البيانات بامتداد ZIP من داخل الأكسس استخدمت كوداً للبحث عن الملف في مكان معين والتأكد من وجوده ربما تسفيد منه
وأهلاً بك
اخي الكريم
لقد اطلعت على مثالك " ضغط قاعدة البيانات بامتداد ZIP من داخل الأكسس استخدمت كوداً للبحث " واعجبني كثيراً ولكن المثال ينسخ القاعدة والنماذج والاستعلامات وما اردته نسخ القاعدة والجداول فقط ثم أنني لم اتمكن من استخلاص ما أريد من المثال لطول الأكواد وخبيرتي قليلة في ذلك0
هذا لب الموضوع بلكامل0
بارك الله فيك0
الأخ مصلح
بالطبع لا يمكنك نسخ بعض كائنات قواعد البيانات فقط لأن أمر النسخ يشكل الملف بكامله لكن الطريقة هي إنشاء قاعدة بيانات جديدة وتصدير الكائنات إليها
بالنسبة لتصدير الكائنات ليست عملية صعبة إذ يمكن القيام بها من خلال الماكرو
أما إنشاء قاعدة بيانات فارغة بالكود فيمكنك ذلك من خلال الكود التالي
Dim db As DAO.Database
Set db = DBEngine.CreateDatabase("C:new.mdb", dbLangGeneral)أخوك / أبو هاجر
الأخ مصلح
ربما يمكنك الاستفادة من الرابط التالي
http://www.arabteam2000.com/vb/showthread....&threadid=14653
بعنوان
نموذج نسخ احتياطي يصلح لقواعد بيانات مختلفة
الأخ ابو هاجر
الأخ حارث
ألف ألف شكر لكما 0
حقيقتاً أنني مديناً لكما بالشكر والعرفان
وفقكما الله وضي عنكما وأرضاكما
ألف ألف شكر
أرجو من الله ان يجعلكما من أهل الفردوس الأعلى
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…