النسخ الاحتياطي

[al.sheen2000]

السلام عليكم 

اسعد الله او قاتكم بكل خير 

فضلا المثال ادناه المرفق مثال للنسخ الاحتياطي   وينسخ الملف لاكن عند فتح القاعدة المنسوخة يعطي رسالة لا يمكن التعرف 

ياليت التعديل جزاكم الله خير 

تحياتي للجميع 

النسخ الاحتياطي.mdb

[kkhalifa1960]

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

Backup.rar

تم تعديل نوفمبر 6, 2023 بواسطه kkhalifa1960

[al.sheen2000]

اشكرك محتاج نسخة 2003

[al.sheen2000]

للرفع

[Foksh]

2 ساعات مضت, al.sheen2000 said:

للرفع

جرب هذه الفكرة في هذه المشاركه 

[kkhalifa1960]

17 ساعات مضت, al.sheen2000 said:

اشكرك محتاج نسخة 2003

تفضل أخي .

Backup.mdb

[al.sheen2000]

اشكرك 

[دروب مبرمج]

تفضل هذا هو كود النسخة الاحتياطية بإختصار
 

لإنشاء نسخة احتياطة من القاعدة الحالية

Dim MyFile          As String
Dim DstFile         As String
Dim Syso            As Object
Dim GetType         As Variant

MyFile = CurrentProject.FullName  ' مسار القاعدة الحالية 
GetType = Right$(MyFile, Len(MyFile) - InStrRev(MyFile, "."))
DstFile = CurrentProject.Path & "\" & Format(Now, "dd-mm-yyyy-nss") & "." &  GetType  ' الاسم الجديد للنسخة الاحتياطية

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"

 

لإنشاء نسخة احتياطية لقاعدة البيانات في حال ان القاعدة منفصلة عن الواجهة

Dim MyFile          As String
Dim DstFile         As String
Dim Syso            As Object
Dim GetType         As Variant

MyFile = CurrentProject.FullName  ' مسار قاعدة البيانات
GetType = Right$(MyFile, Len(MyFile) - InStrRev(MyFile, "."))
DstFile = CurrentProject.Path & "\" & Format(Now, "dd-mm-yyyy-hnss") & "." & GetType  ' الاسم الجديد للنسخة الاحتياطية

Set Syso = CreateObject("Scripting.FileSystemObject")
Syso.copyfile MyFile, DstFile
Set Syso = Nothing

 

[kkhalifa1960]

استاذ @دروب مبرمج ممكن الكود لما تكون قاعدة البيانات بيوزر وباسوورد .

[دروب مبرمج]

في 10‏/11‏/2023 at 21:19, kkhalifa1960 said:

استاذ @دروب مبرمج ممكن الكود لما تكون قاعدة البيانات بيوزر وباسوورد .

ما تحتاج كود لأن الكود يقوم بإنشاء نسخة مماثلة من النسخة الاساسية

يعني ما راح يفتح الملف و يقرأ الجداول

[abouelhassan]

شكر وتقدير واحترام 

[طير البحر]

Name DstFile As DstFile & ".ptc"
DBEngine.CompactDatabase DstFile & ".ptc", DstFile
Kill DstFile & ".ptc"
ممكن تشرحلى القطعه دي من الكود

[عبد اللطيف سلوم]

في 6‏/11‏/2023 at 07:46, kkhalifa1960 said:

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

Backup.rar 314.34 kB · 86 downloads