[elgokr]

اخى الحبيب السبب فى الرسالة المرفقة

هو كونك وضعت كلمة المرور بطريقة غير صحيحة

شرح مجدداً للكود مع الخطوات المطلوب نشائها حتى تتاكد جيداً بان كل شئ بدون مشكلة

قم بعمل مشروع جديد على جهازك يحتوى على زر

ادرج بداخل الزر الكود التالى

كود :

       RunCompactDatabase("C:\123.accdb", "C:\123-ok.accdb", "12341234")

اسفل حدث الزر او باى مكان قم بادراج كود هذا الـ 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

قم باضافة Microsoft.Office.interop.access.dao

من خلال References

الان قم بتحميل قاعدة البيانات المرفقة وقم بوضعها على الدريف C

قم بتشغيل الان البرنامج من المشروع واضغط على الزر

وبعد ثوانى قليلة ستجد ظهور تلك الرسالة

كود :

The database was compacted successfully

الان اذهب الى الدريف C لتجد تم انشاء قاعدة بيانات جديدة بع الضغط تحت اسم

كود :

123-ok.accdb

تحياتى لك

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