27-07-23, 05:36 PM
27-07-23, 08:33 PM
وعليكم السلام ورحمة الله وبركاته
كود :
Dim TempDb As String, DbName As String
DbName = App.Path & "\TA_MB State.mdb" ' مسار واسم قاعدة البيانات
' db.Close ' يجب أن تكون قاعدة البيانات مغلقة قبل بدء الضغط والاصلاح
TempDb = DbName & "_" ' مسار اسم قاعدة البيانات بعد الضغط
CompactDatabase DbName, TempDb ' ضغط قاعدة البيانات
Kill DbName ' مسح الملف الأساسي لقاعدة البيانات - ويمكنك تغيير اسمه بدل حذفه
Name TempDb As DbName ' تغيير اسم قاعدة البيانات بعد الضغط لاسم القاعدة كما كان قبل الضغط
' db.Open (....) ' يمكنك الان فتح قاعدة البيانات
MsgBox "The 'Compact Database' was done Successfully", , "Compact Database" ' رسالة التأكيد على نجاح العملية