تصدير واستيراد الجدوال لقاعده مقسمه

[النجاشي]

السلام عليكم 

احبتي الكرام هناك الكثير من النسخ الاحتياطي ولكن لم اجد ما اريده 

المطلوب عمل نسخ احتياطيه بمجلدBackUp   مع تاريخ النسخه  والاحتفاظ بالعلاقات

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

تحياتي احبتي

 

xxx.rar

[د.كاف يار]

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

'تم وضع اسم المجلد الخاص بك فقط انسخ الكود و الصق

Dim MyFile, DstFile As String
Dim Syso As Object
On Error GoTo ErrH

MyFile = CurrentProject.FullName
DstFile = CurrentProject.Path & "BackUp\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, vbOKOnly, "emphasis" & "/" & "تاكيد"

Exit Sub
ErrH:
Select Case Err.Number
End Select

 

تم تعديل أغسطس 23, 2019 بواسطه د.كاف يار

[النجاشي]

19 دقائق مضت, د.كاف يار said:

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

'تم وضع اسم المجلد الخاص بك فقط انسخ الكود و الصق

Dim MyFile, DstFile As String
Dim Syso As Object
On Error GoTo ErrH

MyFile = CurrentProject.FullName
DstFile = CurrentProject.Path & "BackUp\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, vbOKOnly, "emphasis" & "/" & "تاكيد"

Exit Sub
ErrH:
Select Case Err.Number
End Select

 

تسلم يديك استاذي والاستعاده للنسخه كيف

[د.كاف يار]

10 دقائق مضت, ابو زاهر said:

تسلم يديك استاذي والاستعاده للنسخه كيف

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

انصحك بأن تضع الكود ضمن الاضافة و الحذف و التعديل

[ابو ياسين المشولي]

1 ساعه مضت, ابو زاهر said:

السلام عليكم 

احبتي الكرام هناك الكثير من النسخ الاحتياطي ولكن لم اجد ما اريده 

المطلوب عمل نسخ احتياطيه بمجلدBackUp   مع تاريخ النسخه  والاحتفاظ بالعلاقات

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

تحياتي احبxxx.rar

لديك موضوع من قبل بنفس الطلب

هنا

وهناهنا 2

[ابو ياسين المشولي]

اتفضل

xxx.rar

[النجاشي]

53 دقائق مضت, ابو ياسين المشولي said:

اتفضل

xxx.rar 65.03 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

ممتاز استاذ ابو ياسين الله يعطيك العافيه

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

[النجاشي]

للرفع

[د.كاف يار]

تفضل هذا المثال اخي الكريم

تصدير و استيراد.accdb

[النجاشي]

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

تفضل هذا المثال اخي الكريم

تصدير و استيراد.accdb 756 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

ان شاء الله اجربه غدا لاننا حاليا على الموبيل واشكرك استاذي الغالي ان شاء الله يكون المطلوب رغم ان الاستيراد عمل لي وجع راس ههههه

تحياتي اليك دكتور

[النجاشي]

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

تفضل هذا المثال اخي الكريم

تصدير و استيراد.accdb 756 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 5 downloads

استاذي تجي رساله لم يتم التعرف علي التنسيق اي لم تفتح القاعده معي

[ابو ياسين المشولي]

شوف هذا لعله يكون هو طلبك

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

xxx.rar