نسخ البيانات من جدول الى جدول آخر في قاعدة البيانات نفسها

[ابوعبدالله_1972]

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

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

فيها بيانات مع صور اريد نقلها من الى بارك الله فيكم و عزكم بعلمك و رفع قدركم ... وشكرا

Database2.rar

[ابوخليل]

عليكم السلام

عنوان الموضوع غير مناسب  ، ولكن دعني أسألك قبل ان نشرع في تعديله

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

ولكن يمكننا نسخ الجدول بكامله ولصق صورة منه بجانبه

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

يترتب على الكلام اعلاه .. احد اجرائين :

1- تكرار النسخ 

2- تحديث النسخة السابقة

انتظر  ردك وتعليقك

 

[د.كاف يار]

تفضل اخي الكريم هذا الكود لانشاء نسخة احتياطية مماثلة 

في ازرار النسخة الاحتياطية ضع في حدث عند الضغط الكود التالي

 

كما انصحك بأن تضع هذا كود ضمن امر الحفظ

 

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 بواسطه د.كاف يار

[ابوخليل]

1 ساعه مضت, د.كاف يار said:

تفضل اخي الكريم هذا الكود لانشاء نسخة احتياطية مماثلة 

الاستاذ حسين  .. السائل يريد نسخ البيانات من جدول الى جدول آخر في قاعدة البيانات نفسها

[د.كاف يار]

اذا تفضل هذا التعديل 

 

Database2.accdb

[ابوعبدالله_1972]

الف شكر لجميع الذين ساهموا معي في هذا الموضوع و اللهم اجعالها في ميزان حسناتكم

طلب اخر هل ممكن يتم عمل بدون اكواد  لان نظام الشركة لا يسمح بالاكواد ... ودمتم سالمين

[د.كاف يار]

تفضل التعديل اخي الكريم ==>> بالماكرو

Database2.accdb

[ابوعبدالله_1972]

الله رب العرش العظيم ان يبارك لك و ينفعك بعلمك و ما هو خير لك و للاهلك .