بوكفوس عبدالسلام قام بنشر نوفمبر 14, 2022 مشاركة قام بنشر نوفمبر 14, 2022 السلام عليكم ... هل يمكن برمجة زر التصغير لنافدة قاعدة البيانات أكسس داخل شريط القوائم ( صورة 1 ) بدل زر التصغير في ميكروسفت أكسس ( صورة 2 ) ؟ Main menu.accdb رابط هذا التعليق شارك More sharing options...
biskra قام بنشر نوفمبر 14, 2022 مشاركة قام بنشر نوفمبر 14, 2022 المشكلة عند تصغير النموذج لا يمكنك استرجاعه طريقة أخرى لكبير و تصغير النموذج بواسطة زر واحد Main menu (1).accdb للتصغير يمكنك تجربة الكود بواسطة زر DoCmd.Maximize رابط هذا التعليق شارك More sharing options...
بوكفوس عبدالسلام قام بنشر نوفمبر 14, 2022 الكاتب مشاركة قام بنشر نوفمبر 14, 2022 40 دقائق مضت, biskra said: المشكلة عند تصغير النموذج لا يمكنك استرجاعه طريقة أخرى لكبير و تصغير النموذج بواسطة زر واحد Main menu (1).accdb 516 kB · 1 download للتصغير يمكنك تجربة الكود بواسطة زر DoCmd.Maximize الشلام عليكم ... بارك الله فيك على المحاولة ، و لكن ليس هذا ما رغبت فيه ، بحيث أردت الإستغناء عن شريط التكبير و التصغير و الإغلاق لميكروسفت ، و أضع زر مبرمج خاص بتصغير النافدة على قاعدة البيانات عندما تريد عمل آخر على الحاسوب خارج هذه القاعدة . رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 14, 2022 مشاركة قام بنشر نوفمبر 14, 2022 وعليكم السلام 🙂 ضع الكود التالي على الزر: 'https://www.devhut.net/ms-access-vba-minimizemaximize-access-application/ DoCmd.RunCommand acCmdAppMinimize 'Minimize the MS Access Application جعفر رابط هذا التعليق شارك More sharing options...
بوكفوس عبدالسلام قام بنشر نوفمبر 14, 2022 الكاتب مشاركة قام بنشر نوفمبر 14, 2022 34 دقائق مضت, jjafferr said: وعليكم السلام 🙂 ضع الكود التالي على الزر: 'https://www.devhut.net/ms-access-vba-minimizemaximize-access-application/ DoCmd.RunCommand acCmdAppMinimize 'Minimize the MS Access Application جعفر بارك الله فيك ، هذا هو المطلوب. رابط هذا التعليق شارك More sharing options...
بوكفوس عبدالسلام قام بنشر نوفمبر 15, 2022 الكاتب مشاركة قام بنشر نوفمبر 15, 2022 15 ساعات مضت, بوكفوس عبدالسلام said: بارك الله فيك ، هذا هو المطلوب. السلام عليكم مجدداً ... لما طبّقت الكود الذي وافيتني به على قاعدة بياناتي لم يشتغل ( صور مرفقة ) ، فما السبب ؟. رابط قاعدة البيانات : http://www.mediafire.com/file/s9eqm1pvt3fjk4m/H_B_M_64_bits.accdb رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 15, 2022 مشاركة قام بنشر نوفمبر 15, 2022 الملف غير موجود على الرابط (الرابط يقول بانك لازلت تُحمّل الملف !!) قبل ان ترفع اي ملف الى اي موقع على الانترنت ، يُفضل ان تعمل له ضغط بواسطة winRar او winZip لتقليل حجمه وسرعة ارساله 🙂 رابط هذا التعليق شارك More sharing options...
بوكفوس عبدالسلام قام بنشر نوفمبر 15, 2022 الكاتب مشاركة قام بنشر نوفمبر 15, 2022 1 ساعه مضت, jjafferr said: الملف غير موجود على الرابط (الرابط يقول بانك لازلت تُحمّل الملف !!) قبل ان ترفع اي ملف الى اي موقع على الانترنت ، يُفضل ان تعمل له ضغط بواسطة winRar او winZip لتقليل حجمه وسرعة ارساله 🙂 السلام عليكم ... تفضل ، رابط قاعدة البيانات: http://www.mediafire.com/file/j6t7bhzfdk9lj99/H_B_M_64_bits.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 16, 2022 مشاركة قام بنشر نوفمبر 16, 2022 في 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 جعفر 1 رابط هذا التعليق شارك More sharing options...
بوكفوس عبدالسلام قام بنشر نوفمبر 16, 2022 الكاتب مشاركة قام بنشر نوفمبر 16, 2022 (معدل) 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 بواسطه بوكفوس عبدالسلام إضافة مرفقة رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر نوفمبر 16, 2022 أفضل إجابة مشاركة قام بنشر نوفمبر 16, 2022 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") . جعفر رابط هذا التعليق شارك More sharing options...
بوكفوس عبدالسلام قام بنشر نوفمبر 16, 2022 الكاتب مشاركة قام بنشر نوفمبر 16, 2022 1 ساعه مضت, jjafferr said: . انت تخفي خلفية الاكسس ، وهذا يجعل العمل غير المألوف !! تجربة اخرى ، بدل الاختيارات فوق ، جرب: Call fAccessWindow("minimize") . جعفر شكرا جزيلا ، أصبح الزر " تصغير النافدة " يعمل بكفاءة عالية جداً بعد إضافة كودك الأخير : رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان