كيف آخذ نسخه إحتياطيه من ملف أو قاعدة بيانات

للرفع

بسم الله الرحمن الرحيم

موضوع يستاهل الرفع وينكم يا جماعه

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

الأخ fahad

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

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

وعند إستخدام الأمر filecopyيتوقف البرنامج على هذا السطر حتى يتم تحديث قاعة البيانات

السئوال . هل هناك طرق لكي يعمل البرنامج التحديث أو الحفظ بحيث يخرج على الشاشه ما يدل على ذلك إما مؤشر أو شريط(أعتقد تعبئه إذا صحت تسميتي) أو غير ذلك

أعتقد السئوال واضح .

معقوله ما فيه أحد يعرف !؟ ما أعتقد

:confused:

الظاهر إني سأجاوب نفسي رغماً لأن ما في أحد

1- طريقة doevents يمكن السبلت حطأ

2- أسمع بالثريد

طيب بقي أحد يشرح هاتين الطريقتين لأني خلاص ما أعرف أكثر من ذلك

وإلا سأضطر للبحث في الكتب والمراجع لعل وعسى

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

أقترح إستخدام الأمر التالي لأخذ نسخة

قم بوضع المسارات الأصلي datapath و الجديد Backuppath

فى صندوق نص علي الفورم

DoCmd.Hourglass True
Dim m3,  m4 As String
  Dim datapath As String, Backuppath As String
  m3 = Trim$(datapath)
  m4 = Trim$(Backuppath)
  DBEngine.CompactDatabase m3, m4, DB_LANG_ARABIC
  DoCmd.Hourglass False
  MsgBox " Data Copied Successfully ! ", 64, "  Backup Confirmation"

السلام عليكم

جرب هذا المثال :

http://mypage.ayna.com/ajami/myfiles/RepComp.zip

فقط قم بإلغاء أمر Kill

وسف تجد نسخة للملف موجود في Drive C بإسم

MyComapctTempFileAjm.mdb

Regards

Al-Ajami

اخي / ALAJAMI

الرابط لا يعمل

برجاء الرد

لااهمية الموضوع