الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طريقة الباك اب

مغلق
بدأه qiser في 23 يونيو 2001 · 22 رد · 2,330 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بعد السلام

ايه الاخوه الاعزاء

لدي برنامج في الاكسس واقوم بادخال بيانات بشكل يومي

وخوفا من ضياع البيانات اقوم نهاية كل اسبوع بنسخ البرنامج ولصقه في فولدر معد لذلك .

امل منكم اذا كان هناك طريقه آليه لعمل ذلك ان تدلوني عليها .

بشكل يومي او اسبوعي .

والسلالالالالالالالام

02/04/1422هـ

#2

ياجماعه مايصير الموضوع مهم من جد

لا وما ادراكم طلب جديد

عندي برنامج صادر ووارد

ابي اطبع تقرير - يوضح المعاملات التي اتخذ عليها اجراء وارسلت و المعاملات المتبقيه داخل الادارة - .

في جدول واحد طبعا 0 بالله لاتبخلون علي .

والسلام

#3

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

على العموم ، سؤالك متعلق اكثر ببرامج النسخ الاحتياطي اكثر ما هو متعلق ب Access بحد ذاته ، فهناك الكثير من برامج النسخ الاحتياطي و التي يمكن برمجتها لتقوم باخذ نسخ احتياطية من الملفات كل يوم ، وانا استخدم احدهما على الجهاز المركزي و هو Verias BackupExec 8 من شركة http://www.veritas.com

مع انه هناك امكانية لجدولة مهام بداخل ويندوس لتنفذ بصورة الية و لكن بخصوص هذا الموضوع ارجع الى Windows Resource Kit في http://www.microsoft.com/technet و يمكن برمجة امر النسخ ليقوم بنسخها يوميا

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

اما ان كان برنامجك معتمد على Access و SQL Server فيمكن اعداد الثاني ليقوم بكل عمليات النسخ الاحتياطي ، حيث به نظام نسخ احتياطي متقدم للغاية

#4

يمكن ايضا في ويندوس الفين و اعتقد بان الامكانية موجودة في ويندوس ثمانية و تسعون ، يمكن برمجة برنامج النسخ الاحتياطي لياخذ نسخة احتياطية من قاعدة البيانات يوميا ة يحفظ كل النسخ في ملفات او ملف واحد

حاول ان تجربه ايضا

#5

عزيزي

هذا النسخ الاحتياطى لملف الاكسس كاملا

الذين قد يكون كبيرا

الا توجد طريقه فقط لتخزين الداتا فقط

حيث يمكن انك لو نزلت الملف حق مشروع اكسس على كمبيوتر جديد

تستعيد الداتا من الملف الصغير الذى يحو السجلات فقط؟

#6

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

على ما اضن انه يوجد عدة طرق لحل هذي المشكل

وانا استخدم طريقة وهي اخذ نسخه من البينات (( الجداول فقط))

وتتم ذلك عن طريق كود(( وحدة نمطيه )) يقوم بانشاء قاعدة بينات على (( الاهرد دسك )) او(( الفلبي دسك ))وبعد ذلك يقوم مكرو بتصدير الجداول الى هذي القاعدة سؤا كانت في (( الاهرد دسك)) او (( الفلبي دسك )) على حسب المسار المعطاء في المكرو لملف قاعدة البينات

اما الاسترجاع البينات (( الجداول )) فتقوم بانشاء ماكرو يقوم باستيراد الجداول من (( الاهرد دسك )) او (( الفلبي دسك ))

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

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

وايضن انه فيه ميزه جيدة وهيه ليس بشرط ان يكون امتداد الملف من نوع (( DB1.MDB او DB1.MDE )) بل يمكنك ان تضع اي امتداد الا اي نوع من الملفات واذا عملة امتداد الملف مثل (( DB1.SYS )) على الاهرد دسك فانه يكون ملف مخفي ولكنه يعمل ولا يوجد اي مشكل في ذلك المتداد

وتقبل تحياتي / مسافر الغامدي

#7

عزيزى المسافر

هل تفضلت بوضع الكود حتى اتمكن من سحبه

ولك جزيل الشكر

#8

بعد السلام

اشكر الجميع على تفاعلهم مع الموضوع .

اخوي مسافر ممكن تمسك يدي خطوه بخطوه - اخوك غشيم شوي .

ياليت الشرح يكون باللصور اذا امكن - وشرح بالطريقه المفصله الممله - اخوك فهمه على قده .

والسلالالام

05/04/1422هـد

#9

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

لقد حوالة ان انسخه الكود واضعه هناء ولكن في اثناء معاينه الرساله يكون شكل الكود غير منظم

وتقبل تحياتي / مسافر الغامدي

#10

حاول ان تكتب الكلمة التالية قبل الكود (بدون فراغات طبعا)

[ code 2 ]

و الكلمة التالية بعد الكود (بدون فراغات ايضا)

[ code 2 /]

و ضع الكود بينهما

#11

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

هذا كود يقوم بعمل ملف قاعدة بيانات ويشغل المكرو الذي يقوم

نسخه من الجداول

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

Public Function data03()  'ينشي ملف جديد بتنسيق عربي '
  Dim wrkDefault As Workspace
  Dim dbsNew As Database
  Dim mydb
  Dim t As Variant
  On Error GoTo LINE_1
LINE_2:
  mydb = Dir("c:data1.dat") '   اسم الملف والمسار'

  If mydb = "" Then
      Set wrkDefault = DBEngine.Workspaces(0)
      Set dbsNew = wrkDefault.CreateDatabase("c:data1.dat", dbLangArabic)
      DoCmd.RunMacro "datac3"
      GoTo LINE_3
  Else
    DoCmd.RunMacro "datac3" 'اسم امكرو الذي يقوم بتصدير الجداول'
    GoTo LINE_3
  End If
LINE_1:
  If t = 6 Then
    Resume
  End If
LINE_3:
End Function

يجب عمل المكور يقوم بتصدير الجداول الى الملف المحدد اعلاه

واسم هذا المكرو في هذا الكود ((( datac3 ))

كود يقوم باسترجاع الجداول

Function MOVE_C124()
'يقوم بحذف الجداول التي في الملف الاساسي وبعد ذلك يسترج الجداول المحدده
   DoCmd.SetWarnings False
    DoCmd.DeleteObject acTable, "البنك المودع"  'حذف الجدول'
    DoCmd.DeleteObject acTable, "البنك سحب"      'حذف الجدول'
    DoCmd.DeleteObject acTable, "المصروف"   'حذف الجدول'
    DoCmd.TransferDatabase acImport, "Microsoft Access", "c:data1.dat", acTable, "البنك المودع", "البنك المودع", False  'استيراد الجدول الجدول'
    DoCmd.TransferDatabase acImport, "Microsoft Access", "c:data1.dat", acTable, "البنك سحب", "البنك سحب", False   'استيراد الجدول'
    DoCmd.TransferDatabase acImport, "Microsoft Access", "c:data1.dat", acTable, "المصروف", "المصروف", False  'استيراد الجدول'
    Exit Function


MOVE_C_Exit:
    Exit Function

MOVE_C_Err:
    MsgBox Error$
    Resume MOVE_C_Exit

End Function
#12

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

هذا المثال على كيف عمل نسخه للبينات

يجب ان تعرف انه لايقوم بحذف الجداول التي بينها ربط واذا حذفها فانه لايعد الربط

http://mypage.ayna.com/mesfer823/copy.zip

ولكم تحياتي / مسافر الغامدي

#13

اخى المسافر هل يمكن ان توضح اين اضع الكود ؟؟

هل هو فى الفيجول بيسك

ام فى الاكسس

#14

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

اخي بارك الله فيك

المثال في الرد السابق يعمل على الأكسيس 2000

وهوا جاهز ويمكنك ان تعدل عليه بعض التعديلات البسيطه مثل

اسماء الجداول

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

وتقبل تحياتي / مسافر الغامدي

#15

لقد قمت الان بتحميل الملف

و قمت بتشغيله بنجاح

حقا انه جهد رائع منك

وفقك الله للخير و فائده المسلمين

بارك الله فيك

#16

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

ثم أني ارجو أن توضح عبارتك التالية (يجب ان تعرف انه لايقوم بحذف الجداول التي بينها ربط واذا حذفها فانه لايعد الربط ) فهل يعني ذلك أحتمال قيام الكود بحذف الروابط .

ومتمنياً للجميع التوفيق .

#17

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

بنسبه لطريقة التي ذكرتها انت حولته اعمله انا ولكن لم اوفق في عمل ذلك

اما بنسبه لقصدي في التالية (((يجب ان تعرف انه لايقوم بحذف الجداول التي بينها ربط واذا حذفها فانه لايعد الربط )))

فان اغلب الجداول تكون مرتبطه بعدة حقول واذا اخذته نسخه على

الهرد دسك فانه لايوجد اي مشكله في ذلك ولكن اذا اخذته نسخه

على الفلبي دسك فانه تكمن المشكله في عدد الجداول التي قيد

يتسع لها هذا الدسك لهذا لبد من تقسم الجدول على دسكات مثال :_

دسك رقم (1) يكون فيه جدول الموظفين

دسك رقم (2) يكون فيه جدول الاجازات

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

واذا تم الحذف فانه لن يعد العلاقات مع جدول الموظفين ....

ملاحظه :-

الدسك يتحمل جدول فيه مبين (( 1500 الى 4500 سجل تقريبن ))زيد و ينقص هذا العدد على حسب عدد الحقول في الجدول والبينات

هذا والله اعلم

وتقبل تحياتي /مسافر

#18

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

#19

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

awadsm@hotmail.com

وتقبل فائق شكري ايها المبدع .

#20

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

darpc1421@ayna.com

ملاحظة ان الان مجاز واتصفح الانتر نت من المقهى ولايوجد اكسس على الجهاز لذلك للن اتمكن من ارسال المثال الابعد 3 ايام

#21

اخي العزيز والله باكون شاكر وممنون وكل الأخوان بصراحة متعاونين في هذا المنتدى وانا بانتظار الملف الله يحفظك

#22

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

aa11_sa@yahoo.com (بعد حرف a رقم واحد مرتين)

وشكرا لتعاونك

#23

الأخ الفاضل / مسافر

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

شكرا لك على جهودك الطيبة

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

الرسالة هى :

لا يمكن تعريف الحقل أكثر من مرة

رسالة اخرى معناها

لن يتم تحويل الملف الى نسخى 97

ارجو ان يكون لديك الحل

خالص شكرى و تقديرى

تقبل تحيات

أخــــــBengaـــوك

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

هذا الموضوع مغلق.

مواضيع مشابهة