زر التصغير في شريط القوائم

[بوكفوس عبدالسلام]

السلام عليكم ...

هل يمكن برمجة زر التصغير لنافدة قاعدة البيانات أكسس داخل شريط القوائم ( صورة 1 ) بدل زر التصغير في ميكروسفت أكسس ( صورة 2 ) ؟

Main menu.accdb

[biskra]

المشكلة عند تصغير النموذج لا يمكنك استرجاعه طريقة أخرى لكبير و تصغير النموذج بواسطة زر واحد

Main menu (1).accdb

للتصغير يمكنك تجربة الكود بواسطة زر

DoCmd.Maximize

 

[بوكفوس عبدالسلام]

40 دقائق مضت, biskra said:

المشكلة عند تصغير النموذج لا يمكنك استرجاعه طريقة أخرى لكبير و تصغير النموذج بواسطة زر واحد

Main menu (1).accdb 516 kB · 1 download

للتصغير يمكنك تجربة الكود بواسطة زر

DoCmd.Maximize

 

الشلام عليكم ...

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

[jjafferr]

وعليكم السلام 🙂

 

ضع الكود التالي على الزر:

    'https://www.devhut.net/ms-access-vba-minimizemaximize-access-application/
    DoCmd.RunCommand acCmdAppMinimize 'Minimize the MS Access Application

 

جعفر

[بوكفوس عبدالسلام]

34 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

ضع الكود التالي على الزر:

    'https://www.devhut.net/ms-access-vba-minimizemaximize-access-application/
    DoCmd.RunCommand acCmdAppMinimize 'Minimize the MS Access Application

 

جعفر

بارك الله فيك ، هذا هو المطلوب.

[بوكفوس عبدالسلام]

15 ساعات مضت, بوكفوس عبدالسلام said:

بارك الله فيك ، هذا هو المطلوب.

السلام عليكم مجدداً ...

لما طبّقت الكود الذي وافيتني به على قاعدة بياناتي لم يشتغل ( صور مرفقة ) ، فما السبب ؟.

رابط قاعدة البيانات :

http://www.mediafire.com/file/s9eqm1pvt3fjk4m/H_B_M_64_bits.accdb

[jjafferr]

الملف غير موجود على الرابط (الرابط يقول بانك لازلت تُحمّل الملف !!)

قبل ان ترفع اي ملف الى اي موقع على الانترنت ، يُفضل ان تعمل له ضغط بواسطة winRar او winZip لتقليل حجمه وسرعة ارساله 🙂

[بوكفوس عبدالسلام]

1 ساعه مضت, jjafferr said:

الملف غير موجود على الرابط (الرابط يقول بانك لازلت تُحمّل الملف !!)

قبل ان ترفع اي ملف الى اي موقع على الانترنت ، يُفضل ان تعمل له ضغط بواسطة winRar او winZip لتقليل حجمه وسرعة ارساله 🙂

السلام عليكم ...

تفضل ، رابط قاعدة البيانات:

http://www.mediafire.com/file/j6t7bhzfdk9lj99/H_B_M_64_bits.rar

[jjafferr]

في 14‏/11‏/2022 at 21:38, jjafferr said:

ضع الكود التالي على الزر:

    'https://www.devhut.net/ms-access-vba-minimizemaximize-access-application/
    DoCmd.RunCommand acCmdAppMinimize 'Minimize the MS Access Application

 

 

جرب هذا الكود بدلا عن السابق :

'https://answers.microsoft.com/en-us/msoffice/forum/all/vba-to-minimize-the-window/dcfa65d1-50ab-490d-b140-9fe55e1d8b70

Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.ToggleDesktop
Set objShell = Nothing

 

جعفر

[بوكفوس عبدالسلام]

5 ساعات مضت, jjafferr said:

 

جرب هذا الكود بدلا عن السابق :

'https://answers.microsoft.com/en-us/msoffice/forum/all/vba-to-minimize-the-window/dcfa65d1-50ab-490d-b140-9fe55e1d8b70

Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.ToggleDesktop
Set objShell = Nothing

 

جعفر

السلام عليكم الأخ جعفر 

النقطة الأولى : بخصوص الكود فإنه يعمل ، و بارك الله فيك على تعبك و مجهودك .

النقطة الثانية : بعد عمل الملف التنفيذي ( setup )  لقاعدة بيانتي و تنصيبه ( صورة 1 ) و عند الضغط على زر '' تصغير النافدة '' يختفي تماما الإختصار للقاعدة من المفرزض تظهر أسفل شريط العناوين ( صورة مرفقة 2 ) ، لماذا ؟ 

و تظهر النافدة عندما أضغط على أي إختصار في سطح المكتب .

ملاحظة : رابط الملف التنفيذي .

إسم المستخدم : dass_33

كلمة المرور : 33.

https://www.mediafire.com/file/ql6f3lsftuqqija/setup.rar/file

 

 

تم تعديل نوفمبر 16, 2022 بواسطه بوكفوس عبدالسلام
إضافة مرفقة

[jjafferr]

18 ساعات مضت, jjafferr said:

في 14‏/11‏/2022 at 21:38, jjafferr said:

ضع الكود التالي على الزر:

    'https://www.devhut.net/ms-access-vba-minimizemaximize-access-application/
    DoCmd.RunCommand acCmdAppMinimize 'Minimize the MS Access Application

 

 

جرب هذا الكود بدلا عن السابق :

'https://answers.microsoft.com/en-us/msoffice/forum/all/vba-to-minimize-the-window/dcfa65d1-50ab-490d-b140-9fe55e1d8b70

Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.ToggleDesktop
Set objShell = Nothing

 

.

انت تخفي خلفية الاكسس ، وهذا يجعل العمل غير المألوف ، ويجعل بعض الاوامر لا تتواءم معه !!

تجربة اخرى وباستعمال الدالة التي تستخدمها في اخفاء الاكسس ، بدل الاختيارات فوق ، جرب:

Call fAccessWindow("minimize")

.

جعفر

[بوكفوس عبدالسلام]

1 ساعه مضت, jjafferr said:

.

انت تخفي خلفية الاكسس ، وهذا يجعل العمل غير المألوف !!

تجربة اخرى ، بدل الاختيارات فوق ، جرب:

Call fAccessWindow("minimize")

.

جعفر

شكرا جزيلا ، أصبح الزر " تصغير النافدة " يعمل بكفاءة عالية جداً بعد إضافة كودك الأخير :