ضغط واصلاح زر ضغط واصلاح قاعدة البيانات مايكروسوفت 2016 عربي

[عبد اللطيف سلوم]

بحثت في الموقع وعلى النت ولم اجد طلبي

اعمل على مايكروسوفت اكسس 2016 عربي 32 بت

اريد زر امر عند الضغط عليه يقوم بعمل ضغط واصلاح لقاعدة البيانات عن طريق vba

كون مستخدم البرنامج لا يرى شيء سوى النماذج فلا يتمكن من عمل ضغط واصلاح 

 

جزاكم الله خيرا

@kanory

[kanory]

أخي @عبد اللطيف سلوم جرب هذا الكود قد يفي بالغرض

    Dim status As Boolean
    
    status = 0
    
    If (MsgBox("ضغط عند الخروج" & Chr(13) & Chr(13) & "هل تريد ضغط قاعدة البيانات عند الخروج", vbYesNo, "ضغط اٍختياري")) = vbYes Then
        status = 1
    Else
        status = 0
    End If
    
    Application.SetOption "Auto Compact", status

 

[عبد اللطيف سلوم]

جاري التجربة  @kanory

2 دقائق مضت, kanory said:

أخي @عبد اللطيف سلوم جرب هذا الكود قد يفي بالغرض

    Dim status As Boolean
    
    status = 0
    
    If (MsgBox("ضغط عند الخروج" & Chr(13) & Chr(13) & "هل تريد ضغط قاعدة البيانات عند الخروج", vbYesNo, "ضغط اٍختياري")) = vbYes Then
        status = 1
    Else
        status = 0
    End If
    
    Application.SetOption "Auto Compact", status

 

وين اضع الكود ؟؟

[kanory]

أخي @عبد اللطيف سلوم إما يحت زر أو عند الخروج من البرنامج ... والأفضل عند الخروج من البرنامج ... بالتوفيق

 

[عبد اللطيف سلوم]

19 دقائق مضت, kanory said:

أخي @عبد اللطيف سلوم إما يحت زر أو عند الخروج من البرنامج ... والأفضل عند الخروج من البرنامج ... بالتوفيق

 

صديقي ما بدي عند الخروج 

ايش اعدل على الكود ؟

بدي اضغطها وقت اريد على زر

ويهر عندي انه ضغط 

وفتح البرنامج من جديد 

29 دقائق مضت, kanory said:

أخي @عبد اللطيف سلوم إما يحت زر أو عند الخروج من البرنامج ... والأفضل عند الخروج من البرنامج ... بالتوفيق

 

صديقي @kanory ما بدي عند الخروج 

ايش اعدل على الكود ؟

[kanory]

أخي @عبد اللطيف سلوم دون تعديل مباشرة تحت حدث عند النقر على الرز فقط .... دون تعديل

 

[عبد اللطيف سلوم]

5 دقائق مضت, kanory said:

أخي @عبد اللطيف سلوم دون تعديل مباشرة تحت حدث عند النقر على الرز فقط .... دون تعديل

 

جربت ما اشتغل الكود

تم تعديل يونيو 13, 2018 بواسطه عبد اللطيف سلوم

[kanory]

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

 

[عبد اللطيف سلوم]

4 دقائق مضت, kanory said:

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

 

خلص غلبتك عزيزي

عملت الكود عند اغلاق البرنامج 

[kanory]

أخي @عبد اللطيف سلوم بالعكس هذا يجعلنا نفكر بكود أخر يقوم بالضغط دون الحاجة لأغلاق البرنامج ... السؤال : هل هذا ممكن ؟

 

أخي @عبد اللطيف سلوم وجدت هذا الكود ضمن أكواد قديمة مجمعه من منتديات أخرى جربه وأعطني خبر هل يعمل أو لا ...

SendKeys "{F10}"
SendKeys "]sq"

 

[عبد اللطيف سلوم]

5 دقائق مضت, kanory said:

أخي @عبد اللطيف سلوم بالعكس هذا يجعلنا نفكر بكود أخر يقوم بالضغط دون الحاجة لأغلاق البرنامج ... السؤال : هل هذا ممكن ؟

 

وجدت كود لكن ما اعرفت اشتغل عليه

رح ارفعه وتجربه انت يمكن تزبط الامور

يمكن لأنه mdb 

 

compact.mdb

[kanory]

أخي @عبد اللطيف سلوم 

2 دقائق مضت, عبد اللطيف سلوم said:

وجدت كود لكن ما اعرفت اشتغل عليه

رح ارفعه وتجربه انت يمكن تزبط الامور

يمكن لأنه mdb 

 

compact.mdb

هذا الكود يصلح لقاعدة بيانات خارجية غير التي تعمل عليها