وضع زر ضغط واصلاح قاعدة بيانات اكسس 2007 على شريط القوائم

[علي كعبي]

كود ضغط واصلاح قاعدة البيانات اكسس 2007 بحيث يكون الامر على شريط قوائم البرنامج

تم تعديل أكتوبر 13, 2017 بواسطه علي كعبي
ارفق صورة الكود التابع لشريط الادوات حق البرنامج

[sandanet]

اخي الكريم انت تخالف قوانين المنتدى بوضع عناوين لاتدل على المحتوى واعتقد انك بذلك تخسر العديد من المساعدات بسبب اغلاق موضوعك من قبل ادارة المنتدى .. فانصحك بتعديل العنوان بما يلائم السؤال المطروح

 

ثانيا وقبل ان يغلق موضوعك خذ هذا الكود وضعه في زر امر على شريط القوائم

Application.SetOption "Auto compact", True

تحياتي

[علي كعبي]

في ١٣‏/١٠‏/٢٠١٧ at 22:57, sandanet said:

اخي الكريم انت تخالف قوانين المنتدى بوضع عناوين لاتدل على المحتوى واعتقد انك بذلك تخسر العديد من المساعدات بسبب اغلاق موضوعك من قبل ادارة المنتدى .. فانصحك بتعديل العنوان بما يلائم السؤال المطروح

 

ثانيا وقبل ان يغلق موضوعك خذ هذا الكود وضعه في زر امر على شريط القوائم

Application.SetOption "Auto compact", True

تحياتي

وضعتة في هذا الكود ولكن لم يفلح الامر

[ابو جودي]

50 دقائق مضت, علي كعبي said:

وضعتة في هذا الكود ولكن لم يفلح الامر

ارفق القاعدة 

[علي كعبي]

في ١٤‏/١٠‏/٢٠١٧ at 00:11, ابا جودى said:

ارفق القاعدة 

هذه قاعدة البيانات 

وارجو توضح الطريقة اذا تكرمت

برنامج إنشاء قوائم منسدلة PopUp.rar

[ابو جودي]

13 دقائق مضت, علي كعبي said:

هذه قاعدة البيانات 

وارجو توضح الطريقة اذا تكرمت

برنامج إنشاء قوائم منسدلة PopUp.rar

اتفضل فكرة تانيه

برنامج إنشاء قوائم منسدلة PopUp.rar

[Shivan Rekany]

36 دقائق مضت, علي كعبي said:

هذه قاعدة البيانات 

وارجو توضح الطريقة اذا تكرمت

برنامج إنشاء قوائم منسدلة PopUp.rar

استأذن من استاذنا @sandanet و @ابا جودى
اتفضل 
تم عمل فانكشن جديد باسم ( se) 
وتم کتابە فیه هذا الكود 
 

Function se() As Boolean
On Error Resume Next
    SendKeys ("%(fic)"), True
End Function

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

   .OnAction = "=se()"

واتفضل اليك قاعدة بعد تعديل
 

برنامج إنشاء قوائم منسدلة PopUp.rar

[ابو جودي]

الان, Shivan Rekany said:

استأذن من استاذنا @sandanet و @ابا جودى
اتفضل 
تم عمل فانكشن جديد باسم ( se) 
وتم کتابە فیه هذا الكود 
 

Function se() As Boolean
On Error Resume Next
    SendKeys ("%(fic)"), True
End Function

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

   .OnAction = "=se()"

واتفضل اليك قاعدة بعد تعديل
 

برنامج إنشاء قوائم منسدلة PopUp.rar

العفو منك استاذ @Shivan Rekany 

انت تفعل متل ما بدك

[علي كعبي]

مشكور على هذه المعلومة

كيف اتاكد اذا كان شغال في الفكرة الثانية

[علي كعبي]

في ١٤‏/١٠‏/٢٠١٧ at 01:36, ابا جودى said:

العفو منك استاذ @Shivan Rekany 

انت تفعل متل ما بدك

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

تم تعديل أكتوبر 14, 2017 بواسطه علي كعبي
اضافة

[Shivan Rekany]

10 ساعات مضت, علي كعبي said:

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

بھذا فانكشن ستعرف حجم قاعدة بياناتك بكيلوبايت
 

Function GetFileSize() As Long
    GetFileSize = FileLen(CurrentDb.Name) \ 1024
End Function

 

[علي كعبي]

في ١٤‏/١٠‏/٢٠١٧ at 13:44, Shivan Rekany said:

بھذا فانكشن ستعرف حجم قاعدة بياناتك بكيلوبايت
 

Function GetFileSize() As Long
    GetFileSize = FileLen(CurrentDb.Name) \ 1024
End Function

 

ممكن توضح وين نضع هذا الكود في كلا المثالين في الاعلا لعملية الضغط والاصلاح

[علي كعبي]

في ١٤‏/١٠‏/٢٠١٧ at 13:44, Shivan Rekany said:

بھذا فانكشن ستعرف حجم قاعدة بياناتك بكيلوبايت
 

Function GetFileSize() As Long
    GetFileSize = FileLen(CurrentDb.Name) \ 1024
End Function

 

ممكن توضح وين نضع هذا الكود في كلا المثالين في الاعلا لعملية الضغط والاصلاح

[Shivan Rekany]

اکتب 
 

CALL GetFileSize
MSGBOX(GetFileSize)

سيظهر رسالة بحجم القاعدة