اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

النسخ الاحتياطي/ التصدير/ تغيير المسار/ضغط واصلاح


الردود الموصى بها

مثال علي :

النسخ الاحتياطي

التصدير الي الاكسيل

مع ملاحظة أن الجدول E_List يحوي الجداول و الاستعلامات التي تريد الاختيار بينها للتصدير

تغيير روابط الجداول من خلال النموذج

مع ملاحظة أن الجدول F_LIST يحوي أسماء الجداوال التي تريد تجديد رابطها

3in1.zip

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

  • 2 months later...

طبق الكود السابق هكذا

On Error GoTo errsub

DoCmd.Hourglass True

  DBEngine.CompactDatabase datapath, Backuppath, DB_LANG_ARABIC

  DoCmd.Hourglass False

errsub:


  If Err.Number = 3204 Then

    MsgBox " A database with the same name exists in the same location ! ", 64, "Duplicate Backup Name"

  ElseIf Err.Number = 3356 Then

    MsgBox "Another user is Currently using the Database" + Chr(10) + Chr(13) + "Wait Until No Other Users are Using the Database !", 16, " Other Users WArning Message "

  ElseIf Err.Number = 3024 Then

    m = " The Database Source File : " + datapath + Chr(10) + Chr(13) + " is not available !" + Chr(10) + Chr(13) + "Please check the Source Database Name and Location"

    MsgBox m, 16, "Missing Data Table "

  ElseIf Err.Number = 3044 Then

    m = " Invalid File Name : " + Chr(10) + Chr(13) + "Please check the File name and location "

    MsgBox m, 64, "Invalid File Name "

  ElseIf Err.Number = 20477 Then

    m = " Invalid File Name : " + m3 + Chr(10) + Chr(13) + " OR " + m4 + Chr(10) + Chr(13) + " is not available !" + Chr(10) + Chr(13) + "Please check the Source Database Name and Location"

    MsgBox m, 64, "Invalid File Name "

  Else

    MsgBox Str(Err.Number) + Err.Description

  End If


MsgBox "Action Canceled ! "

DoCmd.Hourglass False

فى زر اغلاق التطبيق

  • Like 1
رابط هذا التعليق
شارك

  • 3 weeks later...

وعليكم السلام ورحمة الله وبركاته

أخي/ moayad

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

وأعتقد أنك لو أنشئت إختصار للمثال المذكور على سطح المكتب لأستطعت أن تضغط وتأخذ نسخة إحتياطية من أي قاعدة :pp: .

جرب وأخبرني أن كانت مفيده والمثال مرفق والله الموفق.

Compact_Backup.rar

  • Like 1
رابط هذا التعليق
شارك

مثال جميل جدا و يمتاز بتعدد القواعد :(

الفرق بين مثال ابن مسقط والمثال السابق أن المثال السابق أبسط قليلا لعمل ذلك و هو مجهز لنسخ و ضغط القاعدة نفسها افتراضيا فى مسار آخر ، و يمكن استخدامه ايضا لنسخ و ضغط أي قاعدة الي مسار آخر

تم تعديل بواسطه امير عاطف
رابط هذا التعليق
شارك

  • 3 weeks later...

أشكرك على اهتمامك وأسف على التأخير في الرد

يوجد طريقة وجدتها ربما تفيد..

وهي عمل ايقونة اختصار ووضع الجملة التالية في الرابط

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" /rtl  /repair "C:\موقع الملف.mdb" /compact

رابط هذا التعليق
شارك

  • 1 month later...

السلام عليكم ..... إخواني الكرام .... مشترك جديد ومبتدىء بالأكسس ... لدي عدة تساؤلات

1- كيف يمكنني استيراد وتصدير قاعدة بيانات مضغوطة بالون زيب من والى قرص مرن

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

رابط هذا التعليق
شارك

السلام عليكم أساتذتي الكرام وينكم ؟ ما احد يرد ؟ :)

بعدما طرحت السؤال تجولت بالمنتدى ووجدت مجموعة دروس ساعدتني في سؤالي الاول لكن النقل للقاعدة بدون ضغط :') أنا عملت هذا الكود او بالأحرى جمعته من هنا وهناك وضبط في عملية نسخ القاعدة الى فلوبي بس ابي قبل ما يرسلها للفلوبي يعمل لهل ضغط ارجو المساعدة الكود هو

Private Sub أمر3_Click()
On Error GoTo Err_أمر3_Click
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
 fs.CopyFile "C:\My Documents\naql\ndb1.mdb", "A:\", True
MsgBox "تم نقل البيانات بنجاح "
Err_أمر3_Click:
    Exit Sub
End Sub

بالنسبة للسؤال الثاني لا زلت أنتظركم ........ تحياتي لكم جميعا

رابط هذا التعليق
شارك

  • 4 weeks later...

يوجد عندي مثال جميل جدا للأخ أبو هاجر,فهو لا يكتفي باٍنشاء نسخة اٍحتياطية للقاعدة خاصة الجداول, و لكن يقوم بضغطها باِمتداد winzip و يمكن استراد النسخة الاحتياطية بواسطة زر أمر ,أي أن العملية تتم كلها بطريقة تلقائية,مع الأسف لن أتمكن من وضعه في المنتدى , و سوف أحاول اٍيجاد موقعا أضعه فيه حتى يستفيد منهالاخوة.

رابط هذا التعليق
شارك

  • 4 weeks later...

تحياتي للجميع

عندي قاعدتين الاولى هي الرئيسية و الثانية تحوي الجداول فقط

ارغب في عمل نموذج في القاعدة الرئيسية لانشاء قاعدة جديدة (مع حرية اخيتار مكانها) و تصدير الجداول من القاعدة الثانية اليها مع بيانات و بدون بيانات (مع حرية اختيار القاعدة الفرعية)

وشكرا للجميع[move]

رابط هذا التعليق
شارك

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

المثال بوورد 97

mantnace.rar

تم تعديل بواسطه aymanemara
رابط هذا التعليق
شارك

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

الأداه هي XceedZip.dll

تم تعديل بواسطه امير عاطف
رابط هذا التعليق
شارك

  • 3 weeks later...

السلام على الجميع

عملت قاعدة بيانات وفصلت الجداول عن بقية كائنات القاعدة في قاعدة أسميتها البيانات وجعلت بقية كائنات قاعدة البيانات في قاعدة أسميتها الواجهة

وسحبت من المنتدى المثال الرائع للأستاذ محمد طاهر وهو 3in1 وكان هذا المثال يعنى بعمل نسخة احتياطية لقاعدة البيانات وإعادة ربط قاعدة البيانات بالجداول من خلال نموذج وكان هذا الأخير هو ماأريد أن أحصل عليه

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

أجد أن القاعدة الحالية لم ترتبط بجداول القاعدة المحددة في المسار

تأملت في الكود لكن لم ألاحظ خطأ

أرجوا الإفادة

تحياتي للجميع :pp:

رابط هذا التعليق
شارك

الأستاذ العزيز محمد مااسم هذا الجدول وأين يوجد

سوف أخبرك بماعملته أنا :

*عملت قاعدة بيانات وفصلت الجداول عن بقية كائنات القاعدة في قاعدة أسميتها المعلومات وجعلت بقية كائنات قاعدة البيانات في قاعدة أسميتها الواجهة

* قمت بعملية استيراد الكائنات التالية من القاعدة 3in1 الى قاعدة الواجهة

- الجداول التالية COMPANY وE_LIST و F_LIST

- الاستعلام Q_COMP

- النماذج التالية FCOPY و LINK_F

- الوحدات النمطية التالية openFile و UTILITY

* ثم قمت بعملية نسخ لقاعدة المعلومات من خلال النموذج FCOPY وحفظت النسخة باسم المعلومات 1 في نسخ الاحتياط

*ثم قمت بتعديلات على البيانات واحتفظت بنسخة من التعديلات باسم المعلومات 2 في مجلد نسخ الاحتياط

الآن لو حبيت أن ترتبط قاعدة الواجهة بقاعدة المعلومات 1 كيف أعمل هذا ؟

طبعا ذهبت إلى النموذجLINK_F لكي أغير مسار ربط الجداول بالقاعدة التي أحددها أنا ولكن المشكلة مثل ماأخبرتك بعد تحديد مسار القاعدة وضعط زر التوجيه أجد أن قاعدة الواجهة لاتعرض إلا آخر المعلومات المحدثة يعني لاتعرض معلومات النسخ الاحتياطية السابقة

أرجوا أن يكون قصدي واضح

مع خالص شكري وتقديري لك ياأستاذ محمد

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information