مشكلة في حجم الاكسس

[Saeed Abu Salem]

لدي مشكلة انه فجاة اصبح حجم ملف الداتا بيس 2 جيجا من 200 ميجا 

لا اعلم ما السبب 

و اصبح الملف لا يستجيب 

الرجاء المساعدة في حل الشكلة 

اما بتقليل الحجم او بالزيادة 

و شكرا 

تم تعديل سبتمبر 22, 2019 بواسطه Saeed Abu Salem

[essam rabea]

الأخ Saeed Abu Salem

قم بضغط واصلاح الملف وإن لم يستجب فقم بإنشاء ملف اكسيس جديد واستورد جميع العناصر من الملف القديم

ربنا يصلح الحال

[Saeed Abu Salem]

2 ساعات مضت, essam rabea said:

الأخ Saeed Abu Salem

قم بضغط واصلاح الملف وإن لم يستجب فقم بإنشاء ملف اكسيس جديد واستورد جميع العناصر من الملف القديم

ربنا يصلح الحال

شكرا لك اخ عصام تم عمل مثلما قلت ولكن حجم الملف يبقى 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" , vbOKOnly, "emphasis" & "/" & "تاكيد"

Exit Sub
ErrH:
Select Case Err.Number
End Select

 

[المهاجر ابو معاذ]

جهد مشكور

لى طلب على غرار ذلك 

أطلب كود لصيانة قاعدة البيانات