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

[zahrah 4,304]

سؤال من الاخ 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

اختكم

زهره

تم تعديل 6 Jun 2005 بواسطه zahrah

[abd_abd62 0]

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

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

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

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

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

تم تعديل 19 Oct 2005 بواسطه zahrah

[Abu-Salman 0]

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

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

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

[wehadyxp 1]

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

[ashrafcardio 0]

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

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

[TheAccessBoy 0]

اخي اشرف

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

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

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

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

[kamal alnahhal 55]

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

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

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

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

[AL-YASEER-2007 1]

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

[bander2004 0]

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

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

[خربوط 0]

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

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

[alamdi 0]

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

[alamdi 0]

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

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

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

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

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

[eng_seham 0]

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

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

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

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

IMG.rar

[eng_seham 0]

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

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

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

[eng_seham 0]

هذا المثال الذي قمت بتجربته في المرفقات

db1.rar

[w00000w 0]

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

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

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

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

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

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

وشكرا

_______________________.rar

[مشارف 35]

اتمنى انه يكون هذي الي تبيه اخوي شكل ما فهمت من كلامك

اخوك محمد

_______________________.rar

[w00000w 0]

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

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

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

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

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

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

[راكز 0]

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

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

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

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

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

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

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

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

منبثق : لا

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

[w00000w 0]

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

[w00000w 0]

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

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

[hammamsana 136]

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

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

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

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

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

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

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

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

[احمد هاشم 0]

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

[AlHaitham 0]

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

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

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

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

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

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

[Ganabo61 1]

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

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

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

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

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

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

أخوكم جنابو