aysar_0078 قام بنشر سبتمبر 24, 2014 قام بنشر سبتمبر 24, 2014 الرجاء مساعدتي لاني تعبت من كثرة البحث اريد اخفاء شاشة اكسيس وقد قراءت عشرات المواضيع عن الموضوع في هذا المنتدى وفي غيره ولم استطع معرفة الطريقة يا ريت احد يساعدني ملاحظات / قراءت انه لازم تكون الخصائص pop up = yes ولم اعرف اساسا اين اجد هذه الخصائص 1
.Azhar قام بنشر سبتمبر 24, 2014 قام بنشر سبتمبر 24, 2014 اهلا بك اخي في منتدى اوفيسنا . سوف ارفق لك مثال عن كيفية اخفاء اطار الاكسس , لكن قبل ذلك لادلك اين تجد Pup up وكيف تغير خصائصه . انظر الى الصورة 3
aysar_0078 قام بنشر سبتمبر 24, 2014 الكاتب قام بنشر سبتمبر 24, 2014 اهلا بك اخي في منتدى اوفيسنا . سوف ارفق لك مثال عن كيفية اخفاء اطار الاكسس , لكن قبل ذلك لادلك اين تجد Pup up وكيف تغير خصائصه . انظر الى الصورة انا في انتظارك وشكرا لك مقدما
aysar_0078 قام بنشر سبتمبر 24, 2014 الكاتب قام بنشر سبتمبر 24, 2014 اين اجاباتكم يا جماعة محد يساعدني رجاااااااااااااااءا
ابوخليل قام بنشر سبتمبر 24, 2014 قام بنشر سبتمبر 24, 2014 الصق هذا السطر في حدث فتح نموذج البداية DoCmd.RunCommand acCmdAppMinimize 2
علي المصري قام بنشر سبتمبر 26, 2014 قام بنشر سبتمبر 26, 2014 السلام عليكم ورحمة الله وبركاته يمكنك استخدام الكود التالي ( قم بانشاء ميديول جديد والصق هذا الكود فيه ) Option Compare Database Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function نفذ الاجراءات التالية على كل نموذج رئيسي في القاعدة '1- في خصائص النموذج تحت التبويب "تنسيق" (Format) حول خاصية "نمط الحدود" (Border style) الى "مربع حوار" (Dialog). '2- في التبويب "الكل" (All) 'حول الخاصية "منبثق" (Pop up) الى نعم (Yes) 'حول الخاصية "مشروط" (Modal) الى نعم (Yes) 'خلف نموذج البداية Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) End Sub 1
أبو عبدالله الحلوانى قام بنشر سبتمبر 30, 2014 قام بنشر سبتمبر 30, 2014 استاذ على والاساتذة الافاضل السلام عليكم ورحمة الله وبركاته هو الكود اللى حضرتك اضفته يجعل البرنامج المصمم بالاكسس يعمل بشكل مستقل عن بيئة برنامج الاكسس؟ وهل ممكن استخدام نفس الكود مع اصدار 2010 ؟ مع العلم انى انا جربته في 2010 وادانى رسالة خطأ وشكرا لحضراتكم وبارك الله جهودكم
.Azhar قام بنشر سبتمبر 30, 2014 قام بنشر سبتمبر 30, 2014 الاكسس 2010 لا يدعم اخفاء شاشة الاكسس لكن يدعم اليه جديدة اسمها ريبون Ribbon وهي خاصية اجمل واكثر كفائة من اخفاء اطار الاكسس حيث من خلال هذه الميزة تستطيع صنع ايقونات وشريط مهام خاص بك . واعتقد يوجد لدي موضوع عن ذلك . ارفق لك مثال عن هذه الخاصية . EN.rar 1 1
علي المصري قام بنشر سبتمبر 30, 2014 قام بنشر سبتمبر 30, 2014 استاذ على والاساتذة الافاضل السلام عليكم ورحمة الله وبركاته هو الكود اللى حضرتك اضفته يجعل البرنامج المصمم بالاكسس يعمل بشكل مستقل عن بيئة برنامج الاكسس؟ وهل ممكن استخدام نفس الكود مع اصدار 2010 ؟ مع العلم انى انا جربته في 2010 وادانى رسالة خطأ وشكرا لحضراتكم وبارك الله جهودكم الاستاذ الفاضل أبو عبدالله استخدم هذا الكود منذ 2012 وعملت به على اكسيس 2010 و2013 واعطى نفس النتيجة الاستاذ الفاضل أزهر جزاك الله خير وشكرا على البرنامج 2
أبو عبدالله الحلوانى قام بنشر أكتوبر 12, 2014 قام بنشر أكتوبر 12, 2014 استاذى الفاضلين استاز على واستاذ ازهر جزاكما الله خيرا قد مررت بهذا الموضوع سريعا، ولكن برنامج استاذ ازهر كان رائعا وساحاول استخدام تخصيص الروبن فى برنامج قريبا ان شاء الله. استاذ على قد نفذت ماقلت بالحرف الواحد ثم عند تشغيل البرنامج يعطى رسالة بعدم وجود user32. Dll هل هنك مكتبة ado يتم اضافتها ليعمل المودل مع اكسس 2010 وشكرا لكم
أبو عبد لله الحلوانى قام بنشر أكتوبر 20, 2014 قام بنشر أكتوبر 20, 2014 السلام عليكم ورحمة الله وبركاته يمكنك استخدام الكود التالي ( قم بانشاء ميديول جديد والصق هذا الكود فيه ) Option Compare Database Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function نفذ الاجراءات التالية على كل نموذج رئيسي في القاعدة '1- في خصائص النموذج تحت التبويب "تنسيق" (Format) حول خاصية "نمط الحدود" (Border style) الى "مربع حوار" (Dialog). '2- في التبويب "الكل" (All) 'حول الخاصية "منبثق" (Pop up) الى نعم (Yes) 'حول الخاصية "مشروط" (Modal) الى نعم (Yes) 'خلف نموذج البداية Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) End Sub اكرر استفساري مجددا آملا من الله أن يوفقنى لحسن السؤال بعد تنفيذ هذه الاجراءات كاملة اعطتنى رسالة خطأ بعد التنفيذ مفادها عدم وجود user32.dll ارجو المساعدة فى توضيح سبب الخطأ وكيفية المعالجة وادامكم الله لنا نبراسا للخير ونشر العلم 1
.Azhar قام بنشر أكتوبر 20, 2014 قام بنشر أكتوبر 20, 2014 ماهي نسخة الاكسس لديك واي بايت تستخدم 32 ام 64
أبو عبد لله الحلوانى قام بنشر أكتوبر 24, 2014 قام بنشر أكتوبر 24, 2014 أستاذ أزهر شكرا على الاهتمام نسخة الاكسيس لدى 2010 - 32 بايت
.Azhar قام بنشر أكتوبر 24, 2014 قام بنشر أكتوبر 24, 2014 جيد اذا كان 2010 كل ما عليك كتابة هذا الكود واتبع خصائص المثال Private Sub Form_Current() DoCmd.ShowToolbar "Ribbon", acToolbarNo End Sub Database5.rar
أبو عبدالله الحلوانى قام بنشر أكتوبر 25, 2014 قام بنشر أكتوبر 25, 2014 جزاك الله خيرا أستاذ أزهر فكرة رائعة ولكن ما أظن أنها تصلح اذا استخدمنا الفورم فى الوضع نورمل وليس مكسميز وكرر شكرى مرة أخرى
elsmahy83 قام بنشر مارس 18, 2015 قام بنشر مارس 18, 2015 جزاكم الله خير يا شباب على المجهود و انا كنت حاطط نفس الكود في برنامج مصمم باكسس 2003 و برنامج ب اكسس 2010 و كان تمام و لكن عندما حاولت ان اعمل نفس الكود مع اكسس 2013 اعطاني مشكلة و اعتقد انها في جزئية Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) اعتقد ان الاكسس 2013 لا يقبل الاعلان عن هذه الجزئية ارجو التوضيح
ابو جودي قام بنشر مايو 9, 2015 قام بنشر مايو 9, 2015 هذا للاكسس 2013 ولم اجربه على باقى الاصدارات HideWin.rar 1
abu_hied قام بنشر ديسمبر 12, 2015 قام بنشر ديسمبر 12, 2015 حتى فيى اوفيس 2013 يظهر اخطاء ما يشتغل فى حل اخر في ٩/٥/٢٠١٥ at 03:29, محمد عصامـے said: هذا للاكسس 2013 ولم اجربه على باقى الاصدارات HideWin.rar اخى الكريم جربته على اوفيس 2013 بنفس التنسيقات يظهر اخطأ هل النواه تختلف من 32 او 64
عبد الله قدور قام بنشر ديسمبر 12, 2015 قام بنشر ديسمبر 12, 2015 اخي الكريم جرب هذا الكود السحري وادعي لي وأنا ناطر ردك DoCmd.ShowToolbar "ribbon", acToolbarNo
ابو جودي قام بنشر ديسمبر 13, 2015 قام بنشر ديسمبر 13, 2015 19 ساعات مضت, عبد الله قدور said: اخي الكريم جرب هذا الكود السحري وادعي لي وأنا ناطر ردك DoCmd.ShowToolbar "ribbon", acToolbarNo اولا استاذ عبد الله شكرا على اضافاتك ولمساتك الخلابه لكن اتمنى ان تدرك انك تتعامل مع طلاب علم واغلبهم دون المستوى السحرى الذى تتعامل معه فترفق بنا انا جربت ومش فاهم بصراحة ايه الساحر فى الكود لان انا على ادى فى البرمجة ولسه باتعلم ياريت ترفق لنا مرفق لو تكرمت وتوضح لنا السحر فين علشان نتعلم من حضرتك يا استاذ عبد الله ونستفيد احنا كمان ناطرين ردك
ابو جودي قام بنشر ديسمبر 13, 2015 قام بنشر ديسمبر 13, 2015 23 ساعات مضت, abu_hied said: حتى فيى اوفيس 2013 يظهر اخطاء ما يشتغل فى حل اخر اخى الغالى هذا المرفق من موقع اجنبى وللعلم قمت بتجربته على اصدارات الاوفيس المختلفة 2007 , 2010 , 2013 ويعمل بكفاءة الجميل فى هذ المرفق انه يخفى اطار الاكسس نهائيا ولكن بحيلة او بأخرى يستطيع المصمم ان يظهر الاطار مرة اخرى ان اراد اى تعديل برمجى وهذا ما اعجبنى فى هذا المثال هناك اخر لاخفاء الاطار نهائيا وبأيد عربية من صنع وتطوير اساتذتنا فى هذا المنتدى وعلى رأسهم الاستاذ ابا عمر بارك الله فيه سأبحث واوافيك بالنتائج امممممم بخصوص موضوع اختلاف النواة من 32 بيت , 64 بيت يفيدك فيها اساتذتنا فلا علم لى ولا تجربة تخص هذا الجزء من سؤالك ولكن كل ما قرأته من نصح من اساتذتنا الكرام بارك الله فيهم هو توصيتهم بإستخدام النواة 32 بيت 1
عبد الله قدور قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 السلام عليكم أخي الكريم بالنسبة لي أنا أستخدم الكود في النموذج الافتتاحي و أضع نموذج أخر سطح مكتب يكون خيار منبثق لا وهذا النموذج يفتح مع فتح البرنامج ولا يغلق إلا باغلاق البرنامج أما باقي النماذج يكون منبثق نعم وهاك مثال لما أقول one.rar
أبو عبدالله الحلوانى قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 السلام عليكم ورحمة الله وبركاته جميل أن يرى المرء أحد موضوعاته التى افتتح بها وجوده فى هذا المنتدى الكريم يثار مرة أخرى وينفض عنه الغبار ليرى النور من جديد. وان دل هذا على شىء انما يدل على عدم احتقار موضوع ما أو فكرة طرأت بالبال لا يجد لها المرء سبيلا أن يسأل ويستشير أهل الخبرة وأهل العلم بالمسألة. وبعد هذه المقدمة الطويلة اسمحوا لى بأن أدلى بدلوى على استحياء أو أقص خبر ما توصلت اليه من معلومة ضئيلة على قدرى طبعا بعد طرح هذا الموضوع بالمنتدى : وقد حاولت آن ذاك جاهدا تنفيذ الكود الموجود بمشاركة أستاذ على المصرى جزاه الله خيرا. ولكن حينها كانت تواجهمى تلك الرسالة المزعجة التى تخبرنى بخطأ باسم المكتبة "user32" ولم أكن أعلم ماسبب هذا الخطأ لأنى لم أزل ببداية الطريق أتعلم الحبو .. إلا أنى توصلت بفضل الله تعالى أن الكود يحتاج لوجود مكتبة ما بمسار المكتبات الخاص بنظام التشغيل طبعا مسار المكتبات بالنسبة لنظامى القديم winXp هو: "C:\Windows\System32" ولا أدرى شيىء عن باقى اصدارات Win الأخرى ... أما عن المكبة ماهى بالضبط فقد احترت فى اختيار أحد هذه المكتبات الثلاث بالمرفق وقد توصلت بالنهاية لاضافة ثلاثتها بالمسار "C:\Windows\System32" مع الأخذ بالاعتبار تنفيذ التعليمات السابقة بشرح أستاذ على : وهى باختصار تغير خواص النماذج والتقارير الرئيسية الى منبثق = نعم . وكذلك شكلى ومشروط = نعم . هذه الاضافة الضئيلة القدر قد أردت اثراء الموضوع بها .. وقد فاتنى أن الموضوع أثرى بالفعل بهاتين الطريقتين الكبيرتين قدرا كقدر أصحابهما الفكرة الأولى - فكرة أستاذ محمد عصام , وان كان قد نسبها لموقع أجنبى الا أن الفضل فى عرضها هاهنا لله ثم له وقد أعجبتنى جدا وتقوم على فكرة اخفاء اطار برنامج الاكسس من خلال timer المؤقت وهى طبعا فكرة جديدة بالنسبة لى الفكرة الثانية - فكرة أستاذ عبدالله قدور وإن كان قد سبق بها أستاذ Azhar من بدأ الموضوع , االا أن أستاذنا عبدالله قدور قد أوفى شرح هذه الطريقة باضافة مثالا للتوضيح فجزى الله الأساتذة الكرام على ماقدمو ولا زالو يقدمون للافادة العامة ومنح العلم للجميع حسبتا لله تعالى واعذرونى فقد أسهبت ولكن للحديث بينكم شجون. مكتبات اخفاء البرنامج.rar
مهند الزيدي قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 شكر خاص للأخ علي المصري .. جزاك الله خيرا لقد جربتة على 2013 ونجح .. ممكن عمل زر فيه كود يعكس هذه العملية .. أي يمكن إستعادة واجهة الأكسس عند حاجتنا لها مع الشكر
حسين العربى قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 في 9/24/2014 at 19:49, aysar_0078 said:
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.