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

الاخت زهرة 

جزاكم الله خيرا على ذلك

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

شكرا لكى 

اخي الكريم

الاستاذة الفاضلة ام عهود وضعت لك كل شئ بما فيها طلبك الاخير

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

بالتوفيق

وربنا ما يحرمنا منك يا اختنا زهرة

SQLDOS كتب:

الاخت زهرة 

 

جزاكم الله خيرا على ذلك

 

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

 

 

شكرا لكى 

بارك الله بك اخي محمود 

يبدو ان صاحب السؤال مبتدأ في الأكواد البرمجية

عموما هذا هو الكود البرمجي ضعه في النموذج الخاص بك

Public Sub zaCompactAndRepairCurrentDatabase()
   With CommandBars.Add(, 1, , True)
       .Controls.Add 1, 2071, , , True
       .Visible = True
       .Controls(1).SetFocus
       DoEvents
       SendKeys "~"
   End With
End Sub
 
Private Sub CmdCR_Click()
Call zaCompactAndRepairCurrentDatabase
End Sub

بعد اذن صاحب الموضوع والسادة المشرفين،

هل هناك كود للضغط والاصلاح، وكود للإصلاح فقط، وكود للضغط فقط؟ وما فائدة الضغط بدون اصلاح، ومافائدة الاصلاح بدون ضغط؟