• 0
zahrah

طريقة اخفاء شاشة الاكسيس

سؤال

سؤال من الاخ abd_abd62

الأستاذ ة زهرة

السلام عليكم

هل من ممكن أن تفيديني بكيفية عمل نموذج (قاعدة بيانات) ، بحيث تختفي قاعدة البيانات ، بمعنى يكون البرنامج مثل ملفات exe

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

اخي الكريم abd_abd62

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

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

1. قم بعمل وحدة نمطية Module جديد في قاعدة البيانات المطلوب اخفاء شاشاتها وقوائمها وابقاء النموذج يعمل لوحده مثل ملفات exe وضع فيها هذا الكود

Option Compare Database
Option Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
   Alias "ShowWindow" (ByVal hwnd As Long, _
         ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
'       ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
'       ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
'       ?fSetAccessWindow(SW_HIDE)
'Normal window:
'       ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX  As Long
Dim loForm As Form
   On Error Resume Next
   Set loForm = Screen.ActiveForm
   If Err <> 0 Then 'no Activeform
     If nCmdShow = SW_HIDE Then
       'MsgBox "Cannot hide Access unless " _
                   & "a form is on screen"
     Else
       loX = apiShowWindow(hWndAccessApp, nCmdShow)
       Err.Clear
     End If
   Else
       If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
           'MsgBox "Cannot minimize Access with " _
                   & (loForm.Caption + " ") _
                   & "form on screen"
       ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
           'MsgBox "Cannot hide Access with " _
                   & (loForm.Caption + " ") _
                   & "form on screen"
       Else
           loX = apiShowWindow(hWndAccessApp, nCmdShow)
       End If
   End If
   fSetAccessWindow = (loX <> 0)
End Function

2. قم بحفظ هذه الوحدة النمطية بإسم api_ShowWindow

3. انتقل الان الى النموذج المطلوب واجعله في عرض التصميم

4. قم بإختيار خصائص هذا النموذج عن طريق الضغط بزر الماوس الايمن على النموذج

5. عند ظهور خصائص النموذج اختر التبويب الكل ثم قم بعمل التالي

اشرطة التمرير ..... لا هذا ولا ذاك

محددات السجلات ..... لا

الخطوط المقسمة .....لا

تغيير حجم تلقائي ... نعم

توسيط تلقائي ... نعم

منبثق .... نعم

شكلي او مشروط ..... نعم

نمط الحدود .... مربع حوار او رفيع

مربع عنصر التحكم .... لا

زر التصغير والتكبير ... بلا

زر الاغلاق .... لا

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

fSetAccessWindow (SW_SHOWMINIMIZED)
   fSetAccessWindow (SW_HIDE)

7. قم بحفظ ما قمت بعمله

ملاحظه : يجب وضع زر اغلاق على النموذج والا لن تتمكن من اغلاق النموذج

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

http://www.arabteam2000-forum.com/index.php?showtopic=66785

اختكم

زهره

تم تعديل بواسطه zahrah
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

24 إجابة على هذا السؤال .

  • 0

مع جزيل الشكر والإمتنان على هذا الشرح الطيب

ويسعدني أن اكون من طلابك في الأكسس

وهناك رجاء من الأستاذة، إذا كان من الممكن دروس عملية

في sql server من ناحية بناء قواعد البيانات

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

تم تعديل بواسطه zahrah
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

سلمت يداكي من كل شر اختي زهره

تسلمين على الشرح

وجعلها الله في موازين حسناتك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

للرفع اعترفا بفضل الاخت زهرة على المنتدى لحين معرفة اخبارها

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

ولا فى طريق أخرى

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي اشرف

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

وبالنسبة للتقارير ايضا يجب تغيير خصائصها حتى تتمكن من فتحها ويكفي تغيير الاتي لتتمكن من فتحها

منبثق .... نعم

شكلي او مشروط ..... نعم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أختي الغالية / زهرة

مليون تحية طيبة وبعد ،،،،،،،،،،،،،

مليون شكر لا يكفي لعطائك ولجهودك الكبيرة والعظيمة لخدمة أبناء الأمة العربية متمثلة في قسم الاكسس الفريق العربي للبرمجة.

وتقبلي مني فائق الاحترام والتقدير.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الف شكر اختي زهرة على المجهود الرائع جدا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اختى زهرة مشكورة على كل جهودك

عندى مشكلة عملت اخغاء شاشة اكسس ولم اقم بعمل زر اغلاق ماهو الحل ارجو مساعدتى

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عند فتح قاعدة البيانات إضغط باستمرار عل مفتاح shift

باستمرار اعني قبل تحميل ابلرنامج و ظهوره على الشاشة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

طيب الله ثراكي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عندي سؤال مهم جداً

لدي شاشتين مرتبطة بالكمبيوتر

الشاشة الأولى الرئيسية تفتح البرنامج وبها الصفحة الرئيسية

أريد أن يتم فتح التقرير على الشاشة الأخرى بدون أن أغلق صفحة البرنامج الرئيسية من الشاشة الرئيسية

كيف يتم ذلك ؟؟؟؟؟؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

على هذا الرابط

http://www.arabteam2000-forum.com/index.php?showtopic=66785

IMG.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

كما هو في المثال

مع الشكر الجزيل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

والله ابدااااع

مشكووورة اختي زهرة على هذا الابداع

لكن طلعت لي مشكلة الرجاء مساعدتي باسرع وقت

عن فتح فورم ثاني يصبح الاول محمي حتى اغلق الفورم الثاني

لاني عامل فورم ثاني خاص بالبحث وبه زر تحرير للفورم الاول

الملف مرفق بعد التعديل وهو المثال السابق

وشكرا

_______________________.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الغالي اولا احب اشكرك على سرعة الرد واسأل الله ان يكتب اجرك

لكن للاسف ليس هذا ما قصدته

الان عند تشغيل الملف الملف يفتح معك الفورم MainForm وهو الفورم الاساسي

وعند الضغط على الزر الموجود بالاعلى يفتح لك فورم 22

في هذه اللحظة اريد التنقل بين الفورمين بالضغط على اي منهما بالماوس دون اغلاقهما

اتمنى الصورة وضحت اخواني ولكم جزيل الشكر

0

شارك هذا الرد


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

لكن للاسف ليس هذا ما قصدته

الان عند تشغيل الملف الملف يفتح معك الفورم MainForm وهو الفورم الاساسي

وعند الضغط على الزر الموجود بالاعلى يفتح لك فورم 22

في هذه اللحظة اريد التنقل بين الفورمين بالضغط على اي منهما بالماوس دون اغلاقهما

اتمنى الصورة وضحت اخواني ولكم جزيل الشكر

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

هل جربت تغيير خصائص النموذجين إلى

منبثق : لا

شكلي أو مشروط : لا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

نعم اخي لكن لن يعمل في خلفية سطح المكتب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يعني انسى الفكرة؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

وين العباقرة !!!!!!!!!!

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تحياتي .... عفوا على فتح هذا الموضوع من جديد

لكنها فعلا مشكلة..

ولكن... بعد التجربة وللتغلب على مشكلة عدم ظهور التقارير.. نعمل ما يلي..

1- وضع كود في النموذج الاول لاخفاء الشاشة

2-وضع كود لاخفاء الشاشة في النماذج التي تعرض منها تقارير ... وذلك في حدث "عند التنشيط وليس عند التحميل"

3-وضع كود لاعادة اظهار الشاشة عند فتح تقرير معين

4-وضع كود لاعادة اخفاء الشاشة عند اغلاق تقرير او تنشيط نموذج..

تحياتي.. وسارفق مثالا صغيرا للتجربة لكن بعد تعديل بعض الامور الفنية

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكر وتقدير للاخت الكريمة وبارك الله فيك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ورحمة الله :-

أنا جديد في هذا المنتدى الرائع وأتمنى الإستفادة منا جميعا

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

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

وسأرفق صورة توضح الكائنات المراد إخفاءها ...

شاكرا لكم حسن تعاونكم معي وأتمنى إيجاد الحل لهذه المشكلة البسيطة

post-234494-078532000 1286202750_thumb.j

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

بعد الشكر للأخت زهرة والسادة أعضاء المنتدى ،،، عندى سؤال

عندما أستخدم هذه الأكواد التى ذكرتها الأخت زهرة فى أول الموضوع مع Office 2010

فإن البرنامج يعطينى رسائل خطأ

فهل مطلوب منى أن أضيف شئ إلى البرنامج لتفعيل هذه الأكواد دون رسائل خطأ

وبارك الله فيكم

أخوكم جنابو

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .