السلام عليكم
تقبل الله منا و منكم الصلاة و الصيام و القيام إن شاء الله
أقدم لكم اليوم كود لضغط و إصلاح قاعدة البيانات الحالية
ضع هذا الكود في وحدة نمطية:
Function Allenda_Compact()
'On Error Resume Next
Dim mdb_Path_Name As String
Dim wrkAcc As Object
Dim dbsNew As Object
Dim file_data As String
Dim app As Access.Application
Dim frm As Form
Dim crt As Control
Dim old_name_frm As String
Dim new_name_frm As String
Dim str_code As String
Dim name_new_db As String
Dim name_old_db