كود ضغط قاعدة البيانات

[sqldos]

قمت بتصميم قاعدة بيانات لعيادة طبيب

 

 واريد من زملائنا فى المنتدى  ان يعيطني كود ضغط قاعدة البيانات

 

 

  لانه مع مرور الزمن تمتلئ قاعدة البيانات بالداتا ويكبر حجمها ممكن يؤثر على البرنامج

 

 

  لذا اريد كود ضغط قاعدة البيانات بحيث اضعه فى الشاشة الرئيسية او اضعها فى زر اسمه (ضغط قاعدة البيانات )

 

 

  وشكرا

 

 

[سمير1]

 Dim status As Boolean

        status = 0

        If (MsgBox("ÖÛØ ÚäÏ ÇáÎÑæÌ" & Chr(13) & Chr(13) & "åá ÊÑíÏ ÖÛØ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÚäÏ ÇáÎÑæÌ", vbYesNo, "ÖÛØ ÇòÎÊíÇÑí")) = vbYes Then

        status = 1

    Else

        status = 0

    End If

    

    Application.SetOption "Auto Compact", status

 

    DoCmd.Quit

 

[sqldos]

اخى العزيز 

 

جربت هذا الكود ولكن لم ينجع

 

قمت بعمل زر على الفورم وكتبت بداخل هذا الكود

 

ولكن عند محاولة الضغط على هذا الزر والخروج من قاعدة البيانات ومعرفة المساحة نجد ان المساحة لم تتغير

 

نرجوا الافادة وشكرا

[سمير1]

قم بتشغيل البرنامج فترة ثم جرب ثانية او ارفق الملف 

تم تعديل نوفمبر 6, 2013 بواسطه سمير1

[عبدالله المجرب]

يمكنك القيام بذلك من زر الاوفيس 

شاهد الصورة