اذهب الي المحتوي
أوفيسنا

(تمت الفائدة) إخفاء واجهة أكسس


الردود الموصى بها

السلام عليكم

أنا متأسف جدا لأنني أزعجتكم بأسئلتي الكثيرة
ولاكنني مطر إلى ذلك

سؤالي هو كيف أقوم بإخفاء واجهة الأكسس وإظهار النموذج الرئيسي الذي قمت بتصميمه

هذا ولقد قمت بالاطلاع على العديد من المشاركات والمواضيع الموجودة بالمنتدى ولكن بلا فائدة

وللعلم أنني أملك access 2007

مع جزيل الشكر والتقدير
رابط هذا التعليق
شارك

اخي الأوفيس العالمي

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

أنا متأسف جدا لأنني أزعجتكم بأسئلتي الكثيرة

ولاكنني مطر إلى ذلك

لا عليك فالمنتدى وجد لخدمة الجميع وتبادل العلم والمعرفة ... فمرحباً بك في اي وقت

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

ادناه في حدث عند الفتح للنموذج

fSetAccessWindow (SW_HIDE)

وبالتوفيق

Hide_Access2003.rar

رابط هذا التعليق
شارك

اخي / الأوفس العالمي

حقيقة لم احمل اوفيس 2007 وليس لدي فكرة فيما اذا كان هناك فرق ام لا في طريقة الاخفاء

بالنسبة للإخفاء لابد ان تضبط الخصائص التالية الى نعم ( منبثق ـــــ شكلي ومشروط ) تجدها من التبويب ( اخرى ) من

خصائص النموذج .

ايضاً انظر الصورة المرفقة فيما يخص اختيار نموذج البدء واخفاء اشرطة الادوات والقوائم وذلك من قائمة ادوات ثم بدء التشغيل

وبالتوفيق

post-15480-1187075532_thumb.jpg

تم تعديل بواسطه yousef
رابط هذا التعليق
شارك

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

ألان قم بنسخ هذا الكود ولصقه في مكانه المخصص

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)

Dim loX As Long

Dim loForm As Form

loX = apiShowWindow(hWndAccessApp, nCmdShow)

End Function

الآن قم بحظف الوحدة النمطية بأي اسم تختاره وفي مثالنا هذا سنقوم بحفظها باسم ( HideAccessWindow ) وأغلق محرر الفيجوال بيسك .

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

ثم اذهب إلى التبويب ( حدث) وأختر البند المسمى ( عند الفتح ) وأختر منه إجراء حدث ثم اضغط على المربع الصغير الذي على يسار الإجراء وهو بهذا الشكل لفتح محرر الفيجوال بيسك

وبعد فتح محرر الفيجوال بيسك سيظهر بهذا الشكل

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

fSetAccessWindow (SW_HIDE)

رابط هذا التعليق
شارك

ارجو المساعدة

لقد قمت بعمل المطلوب من اجل اخفاء واجهة الاكسس

لكن عندما افتح البرنامج يختفي الاكسس والفورم معا

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

db5.rar

تم تعديل بواسطه wewe75
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information