اريد اخفاء شاشة اكسيس

[aysar_0078]

الرجاء مساعدتي لاني تعبت من كثرة البحث

اريد اخفاء شاشة اكسيس وقد قراءت عشرات المواضيع عن الموضوع في هذا المنتدى وفي غيره ولم استطع معرفة الطريقة يا ريت احد يساعدني

ملاحظات / قراءت انه لازم تكون الخصائص

pop up = yes

ولم اعرف اساسا اين اجد هذه الخصائص

[.Azhar]

اهلا بك اخي في منتدى اوفيسنا .

سوف ارفق لك مثال عن كيفية اخفاء اطار الاكسس , لكن قبل ذلك لادلك اين تجد Pup up وكيف تغير خصائصه .

انظر الى الصورة

 

[aysar_0078]

اهلا بك اخي في منتدى اوفيسنا .

سوف ارفق لك مثال عن كيفية اخفاء اطار الاكسس , لكن قبل ذلك لادلك اين تجد Pup up وكيف تغير خصائصه .

انظر الى الصورة

انا في انتظارك وشكرا لك مقدما

[aysar_0078]

اين اجاباتكم يا جماعة محد يساعدني رجاااااااااااااااءا

[ابوخليل]

الصق هذا السطر في حدث فتح نموذج البداية

DoCmd.RunCommand acCmdAppMinimize

[علي المصري]

السلام عليكم ورحمة الله وبركاته

 

يمكنك استخدام الكود التالي ( قم بانشاء ميديول جديد والصق هذا الكود فيه )

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

[أبو عبدالله الحلوانى]

استاذ على والاساتذة الافاضل السلام عليكم ورحمة الله وبركاته

هو الكود اللى حضرتك اضفته يجعل البرنامج المصمم بالاكسس يعمل بشكل مستقل عن بيئة برنامج الاكسس؟ وهل ممكن استخدام نفس الكود مع اصدار 2010 ؟

مع العلم انى انا جربته في 2010 وادانى رسالة خطأ

وشكرا لحضراتكم وبارك الله جهودكم

[.Azhar]

الاكسس 2010 لا يدعم اخفاء شاشة الاكسس لكن يدعم اليه جديدة اسمها ريبون Ribbon 

وهي خاصية اجمل واكثر كفائة من اخفاء اطار الاكسس حيث من خلال هذه الميزة تستطيع صنع ايقونات وشريط مهام خاص بك . 

واعتقد يوجد لدي موضوع عن ذلك . 

ارفق لك مثال عن هذه الخاصية . 

 

EN.rar

[علي المصري]

استاذ على والاساتذة الافاضل السلام عليكم ورحمة الله وبركاته

هو الكود اللى حضرتك اضفته يجعل البرنامج المصمم بالاكسس يعمل بشكل مستقل عن بيئة برنامج الاكسس؟ وهل ممكن استخدام نفس الكود مع اصدار 2010 ؟

مع العلم انى انا جربته في 2010 وادانى رسالة خطأ

وشكرا لحضراتكم وبارك الله جهودكم

 

الاستاذ الفاضل أبو عبدالله

استخدم هذا الكود منذ 2012 وعملت به على اكسيس 2010 و2013 واعطى نفس النتيجة

 

الاستاذ الفاضل أزهر

جزاك الله خير وشكرا على البرنامج

[أبو عبدالله الحلوانى]

استاذى الفاضلين استاز على واستاذ ازهر جزاكما الله خيرا قد مررت بهذا الموضوع سريعا، ولكن برنامج استاذ ازهر كان رائعا وساحاول استخدام تخصيص الروبن فى برنامج قريبا ان شاء الله.

استاذ على قد نفذت ماقلت بالحرف الواحد ثم عند تشغيل البرنامج يعطى رسالة بعدم وجود user32. Dll هل هنك مكتبة ado يتم اضافتها ليعمل المودل مع اكسس 2010 وشكرا لكم

[أبو عبد لله الحلوانى]

السلام عليكم ورحمة الله وبركاته

 

يمكنك استخدام الكود التالي ( قم بانشاء ميديول جديد والصق هذا الكود فيه )

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 ارجو المساعدة فى توضيح سبب الخطأ وكيفية المعالجة

وادامكم الله لنا نبراسا للخير ونشر العلم

[.Azhar]

ماهي نسخة الاكسس لديك واي بايت تستخدم 32 ام 64 

[أبو عبد لله الحلوانى]

أستاذ أزهر شكرا على الاهتمام

نسخة الاكسيس لدى 2010 - 32 بايت

[.Azhar]

جيد اذا كان 2010 كل ما عليك كتابة هذا الكود 

واتبع خصائص المثال 

Private Sub Form_Current()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

Database5.rar

[أبو عبدالله الحلوانى]

جزاك الله خيرا أستاذ أزهر فكرة رائعة

ولكن ما أظن أنها تصلح اذا استخدمنا الفورم فى الوضع نورمل وليس مكسميز

وكرر شكرى مرة أخرى

[elsmahy83]

جزاكم الله خير يا شباب على المجهود

و انا كنت حاطط نفس الكود في برنامج مصمم باكسس 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 لا يقبل الاعلان عن هذه الجزئية

ارجو التوضيح

[ابو جودي]

هذا للاكسس 2013 ولم اجربه على باقى الاصدارات 
HideWin.rar

 

[abu_hied]

حتى فيى اوفيس 2013 يظهر اخطاء ما يشتغل فى حل اخر

في ٩‏/٥‏/٢٠١٥ at 03:29, محمد عصامـے said:

هذا للاكسس 2013 ولم اجربه على باقى الاصدارات 
HideWin.rar

اخى الكريم جربته على اوفيس 2013 بنفس التنسيقات يظهر اخطأ هل النواه تختلف من 32 او 64

 

[عبد الله قدور]

اخي الكريم 

جرب هذا الكود السحري وادعي لي 

1. وأنا ناطر ردك

   DoCmd.ShowToolbar "ribbon", acToolbarNo

    

[ابو جودي]

19 ساعات مضت, عبد الله قدور said:

اخي الكريم 

جرب هذا الكود السحري وادعي لي 

1. وأنا ناطر ردك

   
   DoCmd.ShowToolbar "ribbon", acToolbarNo

    

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

احنا كمان ناطرين ردك

[ابو جودي]

23 ساعات مضت, abu_hied said:

حتى فيى اوفيس 2013 يظهر اخطاء ما يشتغل فى حل اخر

 

اخى الغالى هذا المرفق من موقع اجنبى وللعلم قمت بتجربته على اصدارات الاوفيس المختلفة 2007 ,  2010  , 2013 ويعمل بكفاءة
الجميل فى هذ المرفق 
انه يخفى اطار الاكسس نهائيا ولكن بحيلة او بأخرى يستطيع المصمم ان يظهر الاطار مرة اخرى ان اراد اى تعديل برمجى وهذا ما اعجبنى فى هذا المثال

هناك اخر لاخفاء الاطار نهائيا وبأيد عربية من صنع وتطوير اساتذتنا فى هذا المنتدى وعلى رأسهم الاستاذ ابا عمر بارك الله فيه سأبحث واوافيك بالنتائج
امممممم
بخصوص موضوع اختلاف النواة من 32 بيت , 64 بيت يفيدك فيها اساتذتنا فلا علم لى ولا تجربة تخص هذا الجزء من سؤالك
ولكن كل ما قرأته من نصح من اساتذتنا الكرام بارك الله فيهم هو توصيتهم بإستخدام النواة 32 بيت

[عبد الله قدور]

السلام عليكم

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

أما باقي النماذج يكون منبثق نعم 

وهاك مثال لما أقول

 

one.rar

[أبو عبدالله الحلوانى]

السلام عليكم ورحمة الله وبركاته

جميل أن يرى المرء أحد موضوعاته التى افتتح بها وجوده فى هذا المنتدى الكريم يثار مرة أخرى وينفض عنه الغبار ليرى النور من جديد.

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

وبعد هذه المقدمة الطويلة اسمحوا لى بأن أدلى بدلوى على استحياء أو  أقص خبر ما توصلت اليه من معلومة ضئيلة على قدرى طبعا

بعد طرح هذا الموضوع بالمنتدى : وقد حاولت آن ذاك جاهدا تنفيذ الكود الموجود بمشاركة أستاذ على المصرى جزاه الله خيرا. ولكن حينها كانت تواجهمى تلك الرسالة المزعجة التى تخبرنى بخطأ باسم المكتبة "user32" ولم أكن أعلم ماسبب هذا الخطأ لأنى لم أزل ببداية الطريق أتعلم الحبو ..

إلا أنى توصلت بفضل الله تعالى أن الكود يحتاج لوجود مكتبة ما بمسار المكتبات الخاص بنظام التشغيل طبعا مسار المكتبات بالنسبة لنظامى القديم winXp  هو: "C:\Windows\System32"  ولا أدرى شيىء عن باقى اصدارات Win  الأخرى ... أما عن المكبة ماهى بالضبط فقد احترت فى اختيار أحد هذه المكتبات الثلاث بالمرفق وقد توصلت بالنهاية لاضافة ثلاثتها بالمسار "C:\Windows\System32" 

مع الأخذ بالاعتبار تنفيذ التعليمات السابقة بشرح أستاذ على : وهى باختصار تغير خواص النماذج والتقارير الرئيسية الى منبثق = نعم . وكذلك شكلى ومشروط = نعم .

هذه الاضافة الضئيلة القدر قد أردت اثراء الموضوع بها .. وقد فاتنى أن الموضوع أثرى بالفعل بهاتين الطريقتين الكبيرتين قدرا كقدر أصحابهما  الفكرة الأولى - فكرة أستاذ محمد عصام , وان كان قد نسبها لموقع أجنبى الا أن الفضل فى عرضها هاهنا لله ثم له وقد أعجبتنى جدا وتقوم على فكرة اخفاء اطار برنامج الاكسس من خلال  timer  المؤقت وهى طبعا فكرة جديدة بالنسبة لى 

الفكرة الثانية - فكرة أستاذ عبدالله قدور وإن كان قد سبق بها أستاذ Azhar من بدأ الموضوع , االا أن أستاذنا عبدالله قدور قد أوفى شرح هذه الطريقة باضافة مثالا للتوضيح 

فجزى الله الأساتذة الكرام على ماقدمو ولا زالو يقدمون للافادة العامة ومنح العلم للجميع حسبتا لله تعالى 

واعذرونى فقد أسهبت ولكن للحديث بينكم شجون.

مكتبات اخفاء البرنامج.rar

[مهند الزيدي]

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

[حسين العربى]

في 9/24/2014 at 19:49, aysar_0078 said: