السلام عليكم ورحمة الله وبركاتة
اعلم انه تم الإجابة عن هذا الموضوع سابقا ولكن الموضوع الموجود لم يجب عن سؤالي
لدي قاعدة مفصولة بين الجداول والنماذج (لهدف وضعها على الشبكة) وأرغب في عمل ضغط وإصلاح الي لكل من قاعدة النماذج وقاعدة الجداول
وجدت هذا الكود لضغط القاعدة الحالية في احدى برامج الاخت زهرة
ماهو التعديل البرمجي حتى يتم تنفيذة على قاعدة الجداول ؟
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
