السلام عليكم ورحمة الله وبركاته :
الضغط والإصلاح الموجود في الأدوات مفيد جدا في حالة إذا أراد المستخدم إعادة الترقيم التلقائي ليبدأ من جديد .
وأقصد بذلك الموجود في الصورة هذه :
المطلوب اريد وضع هذه الوظيفة في كود بحيث يستخدم في زر يقوم بحذف السجلات ثم ضغط القاعدة وإصلاحها تمام مثل ما يفعل في الوظيفة الموجودة في الأدوات .
تفضل اخي
Public Sub zaCompactAndRepairCurrentDatabase()
With CommandBars.Add(, 1, , True)
.Controls.Add 1, 2071, , , True
.Visible = True
.Controls(1).SetFocus
DoEvents
SendKeys "~"
End With
End Subثم ضع هذا الكود في زر الامر
Call zaCompactAndRepairCurrentDatabase
بالتوفيق
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اخي ماذا لو كانت القاعدة المستخدمة هي لاكسس 2010
ماذا يلزم الكود من تغيير؟
لاني جربت الكود الحالي في 2010 ولم يفلح
مع الشكر الجزيل
للرفع
للرفع
ما زلت في انتظار المساعد
السلام عليكم ورحمة الله وبركاته
أخي الكريم بالنسبة لي فأنا أستخدم أسلوب مغاير تماماً وهو أنني أطلب من البرنامج أن يقوم بضغط وإصلاح قاعدة البيانات مباشرة عند إغلاق القاعدة
كما هو موضح
Public Function SetAutoCompact()
Dim blnCompact As Boolean
blnCompact = Application.GetOption("Auto Compact")
If Not blnCompact Then
Application.SetOption "Auto Compact", True
End If
End Functionوهذه الطريقة تعمل في جميع إصدارات الأوفس
وسلامي لك وللجميع
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
اخي هذه الطريقة تسمح لك فقط بضغط القاعدة دو عمل اصلاح او اعادة تشغيل للبرنامج
على سبيل المثال انا لدي حقول من نوع رقم بها خاصية ترقيم تلقائي......فلو حذف هذه الحقول وخرجت من البرنامج....ستلاحظ بان التسلسل في الترقيم التلقائي لم يعد الى الرقم صفر بل انه سيكمل معك الترقيم الذي وصلت اليه قبل ان تحذف السجلات.
بينما لو استخدمت الطريقة التقليدية للضغط والاصلاح من شريط الادوات الموجود.....سيعمل اعادة تشغيل للبرنامج هذا اولا,,,وثانيا ستلاحظ الترقيم التلقائي يبدا من جديد
اتمنى وضحت افكرة
فهنا اسال عن الكود الذي يعمل على اعادة تشغيل قاعدة البيانات بعد الضغط والاصلاح
مع الشكر الجزيل
ارفق مثال لاختنا ام عهود جزاها الله عنا كل خير
للفائده لعله يفيد
بارك الله فيك اخي العزيز / نعم هو عين المطلووب
وبارك الله في اختنا القديرة ام عهود
اخي العزيز في مثال الاخت زهرة
الكود لا يعمل اذا كان النموذج منبثق.....لماذ ؟
ارجو التجربة,,,انا شخصيا جربت ولم يفلح معي
مع التحية
لا اعلم اخى
ولكن لى سؤال هل سوف تضعه فى زر امر مثل المثال السابق ام انك سوف تضعه فى حدث عند الاغلاق للبرنامج
اذا كنت سوف تضعه فى حدث عند الاغلاق فسوف يعمل معك
والله اعلم
