11-12-16, 10:41 PM
(آخر تعديل لهذه المشاركة : 11-12-16, 10:53 PM {2} بواسطة sendbad100.)
يعتبر برنامجك عند تشغيله قام بفاتح قاعدة
اما قاعدة البينات 2000 يمكن ضغطها بهذا الكود
كنت افكر انك تستخدم 2007
عدل الكود كالتالي
اما قاعدة البينات 2000 يمكن ضغطها بهذا الكود
كنت افكر انك تستخدم 2007
عدل الكود كالتالي
كود :
DB.Close
If DAOCompactDatabase("DOUSSA.mdb", "") Then
Form2.Show
Call Form_Load
MsgBox "Êã ÖÛØ æÅÕáÇÍ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÈäÌÇÍ"
End If
End Sub
