الأوفس العالمي قام بنشر أغسطس 13, 2007 قام بنشر أغسطس 13, 2007 السلام عليكمأنا متأسف جدا لأنني أزعجتكم بأسئلتي الكثيرة ولاكنني مطر إلى ذلكسؤالي هو كيف أقوم بإخفاء واجهة الأكسس وإظهار النموذج الرئيسي الذي قمت بتصميمههذا ولقد قمت بالاطلاع على العديد من المشاركات والمواضيع الموجودة بالمنتدى ولكن بلا فائدة وللعلم أنني أملك access 2007مع جزيل الشكر والتقدير
يوسف أحمد قام بنشر أغسطس 13, 2007 قام بنشر أغسطس 13, 2007 اخي الأوفيس العالمي وعليكم السلام ورحمة الله وبركاته أنا متأسف جدا لأنني أزعجتكم بأسئلتي الكثيرة ولاكنني مطر إلى ذلك لا عليك فالمنتدى وجد لخدمة الجميع وتبادل العلم والمعرفة ... فمرحباً بك في اي وقت المرفق به مثال رائع للاخت الفاضلة زهرة جزاها الله خيراً ... قم باستيراد الوحدة النمطية الى برنامجك ثم ضع الكود ادناه في حدث عند الفتح للنموذج fSetAccessWindow (SW_HIDE) وبالتوفيق Hide_Access2003.rar
الأوفس العالمي قام بنشر أغسطس 13, 2007 الكاتب قام بنشر أغسطس 13, 2007 شكرا جزيلا ولكن أنا عندي أوفس 2007
wewe75 قام بنشر أغسطس 14, 2007 قام بنشر أغسطس 14, 2007 بارك الله فيك اخي الكريم لكنني عندما اقوم بوضع هذا الكود واحاول فتح الفورم المطلوب يظهر عندي error وصورة هذا error موجودة بالمرفق untitled.rar
يوسف أحمد قام بنشر أغسطس 14, 2007 قام بنشر أغسطس 14, 2007 (معدل) اخي / الأوفس العالمي حقيقة لم احمل اوفيس 2007 وليس لدي فكرة فيما اذا كان هناك فرق ام لا في طريقة الاخفاء بالنسبة للإخفاء لابد ان تضبط الخصائص التالية الى نعم ( منبثق ـــــ شكلي ومشروط ) تجدها من التبويب ( اخرى ) من خصائص النموذج . ايضاً انظر الصورة المرفقة فيما يخص اختيار نموذج البدء واخفاء اشرطة الادوات والقوائم وذلك من قائمة ادوات ثم بدء التشغيل وبالتوفيق تم تعديل أغسطس 14, 2007 بواسطه yousef
mostafaawad2002 قام بنشر أغسطس 15, 2007 قام بنشر أغسطس 15, 2007 بالرغم من ان الاوفس 2007 جيد وبه امكانيات جديده وقويه وتسهل العمل الا انه صعب التعامل معه نظرا لتغير شكل الاوفس بالكامل
foxman قام بنشر أغسطس 15, 2007 قام بنشر أغسطس 15, 2007 بعد ذلك اضغط على الأيقونة المسماة جديد سوف يفتح لك محرر الفيجوال بيسك الخاص بالوحدات النمطية ألان قم بنسخ هذا الكود ولصقه في مكانه المخصص 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)
wewe75 قام بنشر أغسطس 16, 2007 قام بنشر أغسطس 16, 2007 (معدل) اخواني والله ما قصرتو جميعا لكن عندما اقوم بنسخ هذا الكود fSetAccessWindow (SW_HIDE) يظهر combile error VB ما العمل بارك الله فيكم تم تعديل أغسطس 16, 2007 بواسطه wewe75
wewe75 قام بنشر أغسطس 21, 2007 قام بنشر أغسطس 21, 2007 (معدل) ارجو المساعدة لقد قمت بعمل المطلوب من اجل اخفاء واجهة الاكسس لكن عندما افتح البرنامج يختفي الاكسس والفورم معا ارجو المساعدة في بيان الخطأ db5.rar تم تعديل أغسطس 21, 2007 بواسطه wewe75
الجشعمي قام بنشر أغسطس 21, 2007 قام بنشر أغسطس 21, 2007 اخي الفاضل .. شكرا لك على هذه الردود .. لكن كيف أخفي الشريط الازرق ( في أعلي النموذج )الذي يحتوي على اسم النموذج ..!!
Najeep_h قام بنشر أغسطس 27, 2007 قام بنشر أغسطس 27, 2007 السلام عليكم ورحمة الله وبركاته اخواني الاعزاء ،، أنا مجرب الطريقة بس فيها عيب اذا ممكن تساعدوني فيه انه لما افتح معاينة تقرير ما يفتح الا اذا قفلت النموذججزاكم الله خير .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.