ابوعبدالله_1972 قام بنشر سبتمبر 14, 2019 مشاركة قام بنشر سبتمبر 14, 2019 السلام عليكم و رحمته الله وبركاته طلب من المنتدي بان لدي جدولين TAb1 & Tab2 أساسيTAb1 يتم ادخال و المعلومات و الصور فيه المطلوب هو نقل البيانات الى TAb2 لعمل نسخة احتياطية و ذلك لمنع من العبث فيها فيها بيانات مع صور اريد نقلها من الى بارك الله فيكم و عزكم بعلمك و رفع قدركم ... وشكرا Database2.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 14, 2019 مشاركة قام بنشر سبتمبر 14, 2019 عليكم السلام عنوان الموضوع غير مناسب ، ولكن دعني أسألك قبل ان نشرع في تعديله بداية يجب ان تعلم انه لا يمكنك نسخ الحقول ذات البيانات المتعددة عن طريق الاستعلام ولكن يمكننا نسخ الجدول بكامله ولصق صورة منه بجانبه وهذا يعني انك في المستقبل وحين تريد اخذ نسخة جديدة ان تأخذ باعتبارك البيانات الموجودة في النسخة السابقة ، وايضا هل البيانات في الجدول الآصلي زادت فقط ام تم حذفها وسجلت البيانات من جديد ؟ يترتب على الكلام اعلاه .. احد اجرائين : 1- تكرار النسخ 2- تحديث النسخة السابقة انتظر ردك وتعليقك 2 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 14, 2019 مشاركة قام بنشر سبتمبر 14, 2019 (معدل) تفضل اخي الكريم هذا الكود لانشاء نسخة احتياطية مماثلة في ازرار النسخة الاحتياطية ضع في حدث عند الضغط الكود التالي كما انصحك بأن تضع هذا كود ضمن امر الحفظ Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select تم تعديل سبتمبر 14, 2019 بواسطه د.كاف يار 2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر سبتمبر 14, 2019 مشاركة قام بنشر سبتمبر 14, 2019 1 ساعه مضت, د.كاف يار said: تفضل اخي الكريم هذا الكود لانشاء نسخة احتياطية مماثلة الاستاذ حسين .. السائل يريد نسخ البيانات من جدول الى جدول آخر في قاعدة البيانات نفسها 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 14, 2019 مشاركة قام بنشر سبتمبر 14, 2019 اذا تفضل هذا التعديل Database2.accdb 3 رابط هذا التعليق شارك More sharing options...
ابوعبدالله_1972 قام بنشر سبتمبر 14, 2019 الكاتب مشاركة قام بنشر سبتمبر 14, 2019 الف شكر لجميع الذين ساهموا معي في هذا الموضوع و اللهم اجعالها في ميزان حسناتكم طلب اخر هل ممكن يتم عمل بدون اكواد لان نظام الشركة لا يسمح بالاكواد ... ودمتم سالمين رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 14, 2019 مشاركة قام بنشر سبتمبر 14, 2019 تفضل التعديل اخي الكريم ==>> بالماكرو Database2.accdb 3 رابط هذا التعليق شارك More sharing options...
ابوعبدالله_1972 قام بنشر سبتمبر 14, 2019 الكاتب مشاركة قام بنشر سبتمبر 14, 2019 الله رب العرش العظيم ان يبارك لك و ينفعك بعلمك و ما هو خير لك و للاهلك . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.