حسين العربى قام بنشر ديسمبر 3, 2021 مشاركة قام بنشر ديسمبر 3, 2021 السلام عليكم ورحمة الله وبركاته اعضاء ومشرفي المنتدي الكرام اخوني واساتذتي الافاضل في المرفق كود ينسخ البرنامج في نفس المسار الموجود فيه بمعني البرنامج الي انا ارفقة هو الي هيتنسخ مش الجداول المرتبطه يعني لو انا عامل ربط في الجداول مش هتظبط معاي انا عاوز احدد في الكود نفسة / قاعدة الجدول هي الي تنسخ وليس الشاشات وشكرا TEST1.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو جودي قام بنشر ديسمبر 3, 2021 أفضل إجابة مشاركة قام بنشر ديسمبر 3, 2021 اتفضل 3 رابط هذا التعليق شارك More sharing options...
Matin_Murad قام بنشر ديسمبر 3, 2021 مشاركة قام بنشر ديسمبر 3, 2021 اختر مسار TEST1 (1).accdb 2 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر ديسمبر 3, 2021 الكاتب مشاركة قام بنشر ديسمبر 3, 2021 منذ ساعه, ابو جودي said: اتفضل ممتاز استاي الفاضل ابو جودي بس كنت عاوز اضيف فيه الوقت ساعة دقيقه ثانيه رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر ديسمبر 3, 2021 الكاتب مشاركة قام بنشر ديسمبر 3, 2021 ظبط معي استاذي الفاضل ابو جودي ممتاذ 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 5, 2021 مشاركة قام بنشر ديسمبر 5, 2021 في ٣/١٢/٢٠٢١ at 23:23, حسين العربى said: ظبط معي استاذي الفاضل ابو جودي ممتاذ تحياتى استاذ @حسين العربى 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر ديسمبر 9, 2021 الكاتب مشاركة قام بنشر ديسمبر 9, 2021 (معدل) في ٥/١٢/٢٠٢١ at 15:23, ابو جودي said: تحياتى استاذ @حسين العربى استاذي الفاضل ابو جودي ملوحظه مهمه اكتشفتها اليوم في الكود بالصدفة عندما اضع باسورد لقاعدة الجداول db واعادة ربط الجداول مره اخره الكود لايعمل ويعطيني رسالة خطأ كما في المرفق فما الحل تم تعديل ديسمبر 9, 2021 بواسطه حسين العربى فف رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر ديسمبر 9, 2021 الكاتب مشاركة قام بنشر ديسمبر 9, 2021 Up رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر ديسمبر 10, 2021 مشاركة قام بنشر ديسمبر 10, 2021 تفضل هذا الكود فقط ضع مسار قاعدة البيانات و سيتم انشاء نسخة مماثلة منها دون الحاجة الى فتحها و تمرير كلمة المرور If MsgBox("هل تريد انشاء نسخة احتياطية الآن ؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then Dim MyFile, DstFile As String Dim Syso As Object MyFile = " ضع هنا مسار قاعدة البيانات " DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & "." & Split(Mid(MyFile, InStrRev(MyFile, "\") + 1), ".")(1) Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing End if 2 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 10, 2021 مشاركة قام بنشر ديسمبر 10, 2021 22 ساعات مضت, حسين العربى said: استاذي الفاضل ابو جودي ملوحظه مهمه اكتشفتها اليوم في الكود بالصدفة عندما اضع باسورد لقاعدة الجداول db واعادة ربط الجداول مره اخره الكود لايعمل ويعطيني رسالة خطأ كما في المرفق فما الحل ممكن اطلع على مرفقكم استاذى رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر ديسمبر 10, 2021 الكاتب مشاركة قام بنشر ديسمبر 10, 2021 اتفضل استاذي الفاضل هذا المرفق الخاص بحضرتك اخذته هو الي اخذته من المشاركة وطبقت عليه يعمل جيدا ولاكن انظر بعد ان تم عمل باسورد لقاعدة الجداول db لم يعمل الباسورد 1982 test1.rar رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر ديسمبر 10, 2021 الكاتب مشاركة قام بنشر ديسمبر 10, 2021 8 ساعات مضت, د.كاف يار said: تفضل هذا الكود فقط ضع مسار قاعدة البيانات و سيتم انشاء نسخة مماثلة منها دون الحاجة الى فتحها و تمرير كلمة المرور If MsgBox("هل تريد انشاء نسخة احتياطية الآن ؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then Dim MyFile, DstFile As String Dim Syso As Object MyFile = " ضع هنا مسار قاعدة البيانات " DstFile = CurrentProject.Path & "\Backup-" & Format(Now, "dd-mm-yyyy") & "." & Split(Mid(MyFile, InStrRev(MyFile, "\") + 1), ".")(1) Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing End if استاذي الفاضل د.كاف يار شكرا علي مرورط الطيب وجزاك الله خير الجزاء كود فوق الممتاذ بس ناقصه حاجه انا عاوز النسخة توضع في فولدر اسمه Backup رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر ديسمبر 10, 2021 مشاركة قام بنشر ديسمبر 10, 2021 50 دقائق مضت, حسين العربى said: استاذي الفاضل د.كاف يار شكرا علي مرورط الطيب وجزاك الله خير الجزاء كود فوق الممتاذ بس ناقصه حاجه انا عاوز النسخة توضع في فولدر اسمه Backup تفضل If MsgBox("هل تريد انشاء نسخة احتياطية الآن ؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد") = vbYes Then Dim MyFile, DstFile As String Dim Syso As Object MyFile = " ضع هنا مسار قاعدة البيانات " DstFile = CurrentProject.Path & "\Backup\Backup-" & Format(Now, "dd-mm-yyyy") & "." & Split(Mid(MyFile, InStrRev(MyFile, "\") + 1), ".")(1) Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing End if 1 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر ديسمبر 10, 2021 الكاتب مشاركة قام بنشر ديسمبر 10, 2021 الف الف شكر استاذي الفاضل د.كاف يار رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر ديسمبر 10, 2021 مشاركة قام بنشر ديسمبر 10, 2021 العفو اخي الكريم تحت امرك في اي وقت 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان