[elgokr]

وعليكم اسلام ورحمة الله وبركاته

تفضل استخدم الكود بهذا الشكل وهو كود Sub

كود :

   Sub RunCompactDatabase(ByVal Sou As String, ByVal Com As String, ByVal Pass As String)
       Dim AccessDatabaseEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
       Dim source As String = Sou
       Dim compact As String = Com
       Dim MyPassword As String = Pass
       AccessDatabaseEngine.CompactDatabase(source, compact, ";pwd=" & MyPassword, , ";pwd=" & MyPassword)
       MsgBox("The database was compacted successfully")
   End Sub

من ثم تقوم باستدعائه فى الزر من خلال

كود :

RunCompactDatabase("مسار قاعدة البيانات الرئيسيى", "مسار قاعدة البيانات بعد الضغط", "كلمة المرور المخصصة لقاعدة البيانات")

قم باختبار الكود وما هو الناتج معك

تحياتى لك

وتمنياتى لك التوفيق