Backup Restore النسخ الاحتياطي ممكن مساعدة ضرورييي

وين الناااااااااااس !!!

والله عجيب محد يعرف يرد

اخي العزيز ولا تزعل نفسك

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

ولو هنالك تعديل ارجو اخباري

(h)

backup&Restore2.rar

اخي ما ادري هل ضبط معك ام لا ارجوالرد

اخي / الفوارس 2000 وارجوان لا اكون قد أخطأت في الاسم

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

لم افهم مقصدك

هل البرنامج لم يكن حسب الطلب او به خطأ أم ماذا

ارجو التوضيح

اخي الفوارس 2000 صباح الخير

عندما اضغط على Browse أو Backup يفتح صندوق حوار حفظ باسم فكيف يتم التعامل مع هذا الصندوق وعند الضغط على Save To Dir In text تخرج رسالة تحذير warning : End-User

file not Found

هل ممكن شرح مختصر للكود ......... شكرا لتجاوبك

اخي الفوارس 2000 صباح الخير

عندما اضغط على Browse أو Backup يفتح صندوق حوار حفظ باسم فكيف يتم التعامل مع هذا الصندوق وعند الضغط على Save To Dir In text تخرج رسالة تحذير warning : End-User

file not Found

هل ممكن شرح مختصر للكود ......... شكرا لتجاوبك

اخي العزيز abosaad54

الله يعطيك العافية

ان تقول لي انه يظهر خطأ عند الضغط على الامر Save To Dir Text اولأ قبل الضغط على هذا الامر والذي يقصد به نسخ القاعدة على حسب المسار المحدد في حقل النص

كيف يحدد المسار في حقل النص ؟

اولا وقبل النقر على زر Save to dir text انقر على امر Browse وحددالمسار الذي تريد وسوف تجده في حقل النص وبعدها قم بضغط الامر Save to dir text

ورسالة الخطأ التي تأتيك لانه لم يحدد مسار النسخ في حقل النص

وقد عمل هذا لطلب صاحب الموضوع وتقبل احترامي

 'هذا الامر   عند حدوث خطأ في النسخ  يذهب الى راصد الاخطاء  Backup error في اسفل الكود
    On Error GoTo BackupError
    
    'هذا الكود خاص  بالدايلوج  لتفريغ الفايل نايم الخاص بالدايلوج ان  وجد
    Dialog.FileName = ""
    'انواع الملفات او الامتداد
    Dialog.Filter = "Backup files (*.bck) |*.bck|"
   'لفتح مربع حوار الحفظ لتحدد مسار الحفظ واسم النسخة
    Dialog.ShowSave
       'هنا شرط اذا كان لم يتم  تحديد المسار واسم النسخه
        If Dialog.FileName <> "" Then
            
            If FileLen(App.Path & "\data.MDB") > 1210000 And Mid(Dialog.FileName, 1, 1) = "A" Then
                MsgBox "لا يمكن نسخ قاعدة البيانات على هذا المحرك فضلاً قم بإستبداله بمحرك ذو سعة اكبر .", vbOKOnly + vbCritical, " خطأ في النسخ" + UserName
            Else
                
                'هذا هو المهم  هنا وهو  نسخ القاعدة  المرفقة  الى المسار المحدد مسبقا
               'ملاحظة  غير اسم القاعدة   من data
               'الى اسم القاعدة التي  لديك
        '     FileCopy (App.Path & "\Name database.MDB"), Dialog.FileName
                FileCopy (App.Path & "\data.MDB"), Dialog.FileName
              'رسالة تفيد نجاح عملية النسخ
               MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName
            End If
        End If
    Exit Sub
'متصيد الأخطاء
BackupError:
'رسالة بمعلومات الخطاء
  MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName

وبا ختصار فالمهم في هذه الشغلة هي

هذا الكود

'ممكن نختصر الكود  بهذا الشكل بدون الشروط التي سبقت
            Dialog.FileName = ""
            Dialog.Filter = "Backup files (*.bck) |*.bck|"
            Dialog.ShowSave
            'نسخ قاعدة البيانات المرفقه في المسار  الى  المسار المحدد
            FileCopy (App.Path & "\data.MDB"), Dialog.FileName
             'رسالة تفيد نجاح عملية النسخ
           MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName

ارجو المعذره على هذه الكركبه نظراً لاني رديت عليك وانا على عجل كوني مشغول للغاية

ارجو المواصلة واخباري بما تصل اليه

اخي / الفوارس 2000

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

أخي الكريم أنظر ببرنامجي مصنع الطابوق الوجود بالتوقيع ستجد كيفية نسخ قاعدة البيانات وأيضاَ ضغط واصلاح قاعدة البيانات

تحياتي

ملاحظة :

كلمة الدخول : مشرف والرقم السري : مشرف

الأخ /omani أشكرك على اهتمامك بموضوعي وأهنئك على البرنامج الرائع ( مصنع الطابوق) ولكني نسيت ان أذكر لكم أنني مبتدىء وأفهم بالتدرج ( خطوة خطوة )

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

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

OMANI واعتقد انك ستجد شاشة الصلاحيات في نفس البرنامج على ما اعتقد لأني لم أشاهده

وتقل احترامي

اخي / الفوارس2000

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

اكرر شكري لكم

اخي / الفوارس2000

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

اكرر شكري لكم

اخي العزيز

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

file not found

انظر الصورة المرفقة

وشكراً على الاهتمام

اخي الفوارس 2000 اشكرك على مواصلة الاهتمام

معليش استطعت التغلب على مشكلة الملف غير موجود وكان خطأ مني لكن الان بعد تحديد الوجهة وكتابة اسم قاعدة البيانات واغلاق مربع الحوار ينتقل المسار الى text المقابل للزر browse وعند الضغط على حفظ أو backup تنتج رسالة تشير الى عدم السماح permission denied على حسب فهمي فكيف حل هذه المسألة ولك فائق الاحترام .

ارجو ارفقا مثالك ليتم معاينة المشكلة وارفاق الحل

ارجو ارفقا مثالك ليتم معاينة المشكلة وارفاق الحل

شكرا أخي الفوارس 2000

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

ياشباب بعد البحث عن مشكلة لي وهي permission denied رأيت تلك المشاركات وقد مررت بنفس المشاكل التي مر بها الأخ أبو سعد حتى وصلت لمشكلة permission denied ووجدته قد حلها ولم نعرف كيف حلت لأنها تمر بي الآن فلو أي من الشباب المتميزين في المنتدى يرشدني على سبب تلك المشكلة وجزاكم

الله خيراًَ

والكود هو كالتالي

	On Error GoTo BackupError
	dialog1.FileName = ""
	dialog1.Filter = "backup files(*.bck) |*.bck|"
	dialog1.ShowSave
		If dialog1.FileName <> "" Then
			   If FileLen(App.Path & "\sairlines.mdb") > 1210000 And Mid(dialog1.FileName, 1, 1) = "A" Then
			   MsgBox "لا يمكن نسخ قاعدة البيانات على ذلك المحرك فضلا اختر محرك أقراص ذو سعة أكبر.", vbOKOnly + vbCritical, " خطأ في النسخ" + UserName
			Else
			FileCopy (App.Path & "\sairlines.mdb"), dialog1.FileName
			   MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName
			End If
		End If
	Exit Sub
BackupError:
  MsgBox Err.Description, vbOKOnly + vbCritical, " Warning:End-User" + UserName

والخطأ الذي يطلع هو runtime error 70 " permission denied"

وشكراً للجميع

مرحبا لم اتفحص الخطا جيداً

ولكن ماذا تعني (( dialog1.Filter = "backup files(*.bck) |*.bck|"

الفيلتر إذا كانت قاعدة البيانات اكسس

جرب كتابة

mdb.

ومسح

bck.

تحياتي ، ارجو ان اكون ساعدتك

اخي محمدvb أعتقد أنه في الصفحة الأولى من ذلك الموضوع مثال تم فيه توضيح معنيdialog filter وهو كما يلي

اقتباس

'انواع الملفات او الامتداد

Dialog.Filter = "Backup files (*.bck) |*.bck|"

أي يجبر فيه مربع الحوار الحفظ على إظهار نوع الملفات bck وهو امتداد ملفات backup فقط في جزء نوع الملف

شكراً على الإهتمام أخي محمد وجزاكم الله خيراً

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

بارك الله فيك أخي محمد