helmy_foad قام بنشر أبريل 22, 2007 مشاركة قام بنشر أبريل 22, 2007 (معدل) كنت أريد أن أقوم بإخفاء شاشة الاكسيس ، فقمت بالبحث فى المنتديات الاجنبية و وجدت هذة الطريقة و جربتها و كانت سليمة 100 % و نبدأ بالخطوات : 1 - نسخ هذا الكود و لصقة فى module و نسمية باى اسم فهذا لا يهم Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function ---------------------- 2- قم بعمل ماكرو أسمة mcrHide ضع بة اكشن run code و فى خانة Function ضع الكود التالى fAccessWindow ("Minimize", False, False) ------------------------------ 3 - قم بعمل ماكرو أخر أسمة mcrRestore ضع بة نفس الاكشن السابق run code و فى خانة Function ضع الكود التالى fAccessWindow ("Show", False, False) ------------------------------- 4 - الأن الخطوة الاكثر مللاً إذا كانت لديك العديد من النماذج قم بتغيير خصائص كل النماذج : popup قم بتحويلها إلى yes بدلاً من no ------------------------------- 5- فى النموذج الرئيسى الذى تريدة ان يبدأ بالفتح ضع الكود التالى : Private Sub Form_Open(Cancel As Integer) DoCmd.RunMacro "mcrHide" End Sub ----------------------------- 6 - فى كل التقارير ضع الكود التالى عند الحدث OnOpen DoCmd.RunMacro "mcrRestore" و عند الحدث OnClose DoCmd.RunMacro "mcrHide" ------------------------------- و بهذا تكون قد إنتهت الخطوات ربما تظهر انها خطوات طويلة ، لكنها طريقة فعالة جداً و تعطى منظر إحترافى جميل للبرنامج و اعتذر للإطالة و تحياتى للجميع New_Microsoft_Access_Application.rar تم تعديل أبريل 22, 2007 بواسطه helmy_foad 5 1 رابط هذا التعليق شارك More sharing options...
جرير الصغير قام بنشر أبريل 23, 2007 مشاركة قام بنشر أبريل 23, 2007 وجب شكرك ففعلت حين أفدت منك رابط هذا التعليق شارك More sharing options...
التقني قام بنشر أبريل 23, 2007 مشاركة قام بنشر أبريل 23, 2007 (معدل) السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا النقل والمثال . الموضوع مثبت تم تعديل أبريل 23, 2007 بواسطه التقني رابط هذا التعليق شارك More sharing options...
محمد عسكر قام بنشر أبريل 24, 2007 مشاركة قام بنشر أبريل 24, 2007 السلام عليكم جزاك الله خيرا على الجهد فى البحث و النقل تحياتى السلام عليكم جزاك الله خيرا على الجهد فى البحث و النقل تحياتى رابط هذا التعليق شارك More sharing options...
helmy_foad قام بنشر أبريل 25, 2007 الكاتب مشاركة قام بنشر أبريل 25, 2007 (معدل) ألف شكر أخ التقنى على تثبيت الموضوع و الحقيقة أننى أيضاً تعلمت طريقة اخرى من الأخت و الأستاذة زهرة أيضاً تعمل بكفاءة و احب ان أفيد بها الزملاء فى منتدى اوفيسنا و هى كالتالى : تقوم بعمل وحدة نمطية module تضع فيها هذا الكود : 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 ثم فى النموذج الأساسى الذى يبدأ عند فتح قاعدة البيانات قم بوضع هذا الكود فى صفحة اكواد vba Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) End Sub ثم بعد ذلك نقوم بتغيير خصائص كل النماذج و التقارير الموجودة فى قاعدة البيانات بحيث أنة فى التبويب الكل أو (all) أبحث عن منبثق أو popup و إجعلة نعم أو yes ثم تحتة مباشرة شكلى او مشروط modal و إجعلة نعم أو yes ثم تحتة مباشرة نمط الحوار border style إجعلة مربع حوار او dialog و كما قلت هذا فى كل التقارير و النماذج اهم شئ ضع زر إنهاء للأكسيس فى الفورم بحيث تقوم بإغلاق البرنامج منة لكى لا يبقى الأكسيس عالقاً فى الذاكرة و أخيراً فى كل التقارير ضع الكود التالى فى صفحة اكواد vba Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub و ذلك لكى يعمل التقرير بملئ الشاشة و ذلك عند عرض التقرير و مرفق مثال على هذا من عمل الاخت زهرة و تحياتى للجميع Hide_Access2003.rar تم تعديل أبريل 25, 2007 بواسطه helmy_foad 1 رابط هذا التعليق شارك More sharing options...
waeelahmed قام بنشر أبريل 26, 2007 مشاركة قام بنشر أبريل 26, 2007 جزاكم الله كل خير وباركم الله فيكم رابط هذا التعليق شارك More sharing options...
alhomam قام بنشر أبريل 26, 2007 مشاركة قام بنشر أبريل 26, 2007 (معدل) شكرا على الشرح الجميل ولكن مش شرط انك تضع زر لاغلاق الاكسس يكفي الكود DoCmd.Quit عند الاغلاق(On Close) تم تعديل أبريل 26, 2007 بواسطه alhomam رابط هذا التعليق شارك More sharing options...
كريم عز الدين قام بنشر مايو 16, 2007 مشاركة قام بنشر مايو 16, 2007 الف الف شكر على المجهود المبذول والمثمر حقا ... وارجو ارفاق مثال بأوفيس 2000 ليتسنى لى الاستفادة منه على جهازى الشخصى رابط هذا التعليق شارك More sharing options...
Mohamed Nada قام بنشر مايو 20, 2007 مشاركة قام بنشر مايو 20, 2007 مع وافر الشكر وجزاكم الله كل الخير رابط هذا التعليق شارك More sharing options...
بن قبلان قام بنشر مايو 21, 2007 مشاركة قام بنشر مايو 21, 2007 الله يسلمك اخوكم بن قبلان رابط هذا التعليق شارك More sharing options...
mahmoudnasr قام بنشر مايو 24, 2007 مشاركة قام بنشر مايو 24, 2007 السلام عليكم اخى فى الله حلمى فؤاد الف شكر على المجهود الرائع ونتمنى منك المزيد لى سؤال ؟ كيف اعمل شريط ادوات للتقرير به زر الطباعه وزر اغلاق التقرير مع كون القاعد محميه ولا يمكن العبث بها بالطريق التى اخبرتنا بها ولك الف شكر منى اخوك محمود رابط هذا التعليق شارك More sharing options...
zapzetoo قام بنشر يونيو 17, 2007 مشاركة قام بنشر يونيو 17, 2007 لو سمحتم اريد شرح اخر كود بالصور وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 17, 2007 مشاركة قام بنشر يونيو 17, 2007 بارك الله فيكم إخوتي ولكن كتبت ونفذت كل ما قلتم فظهر النموذج به زر الإغلاق مع أن النموذج المرفق للأخت زهرة ليس به زر إغلاق مما يعطي شكلا متقدما للبرنامج أفيدونا 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 18, 2007 مشاركة قام بنشر يونيو 18, 2007 صورة لبرنامج الأخت زهرةصورة لبرنامجيفهل من يخبرني بالفرق في الخصائص بين البرنامجين 1 رابط هذا التعليق شارك More sharing options...
helmy_foad قام بنشر يونيو 19, 2007 الكاتب مشاركة قام بنشر يونيو 19, 2007 (معدل) صورة لبرنامج الأخت زهرة صورة لبرنامجي فهل من يخبرني بالفرق في الخصائص بين البرنامجين يوجد فى الخصائص الخيار control box قم بإعطائة القيمة no تم تعديل يونيو 19, 2007 بواسطه helmy_foad 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 19, 2007 مشاركة قام بنشر يونيو 19, 2007 جزاك الله خيرا أخي أعطى الخيار السابق حلا لمشكلة زر الإغلاق ماذا عن الجزء الأبيض على يسار وأسفل النموذج؟ 2 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 20, 2007 مشاركة قام بنشر يونيو 20, 2007 بسم الله الرحمن الرحيم لي ملاحظة صغيرة على طريقة الأخت زهرة في إخفاء نافذة الأكسس وهي أن البرنامج لا يكون له زر في شريط المهام ولا يمكننا التحكم به إلا من خلال واجهته فما الحل؟ 2 رابط هذا التعليق شارك More sharing options...
helmy_foad قام بنشر يونيو 20, 2007 الكاتب مشاركة قام بنشر يونيو 20, 2007 ماذا تقصد بالتحكم فى البرنامج ؟ فأنت يمكنك إنشاء العديد من الأزرار لتأدية جميع الوظائف التى يحتاجها المستخدم أرجو توضيح المقصود رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 20, 2007 مشاركة قام بنشر يونيو 20, 2007 أخي العزيز كل نافذة مفتوحة يوجد لها زر في شريط المهام يمكنك عمل كلك يمين عليه وغلقه مثلا أو على الأقل تعرف كم عدد التطبيقات المفتوحة ولكن هذه الطريقة لا تدل على أن هذا التطبيق له زر في شريط المهام ومن الممكن أن ينساه أحدنا ولا يعرف أنه مازال مفتوحا وأذكر بما الحل في ظهور جزء بغير لون خلفية النموذج على يسار النموذج بارك الله فيكم جميعا 1 رابط هذا التعليق شارك More sharing options...
dere قام بنشر يونيو 29, 2007 مشاركة قام بنشر يونيو 29, 2007 مشاركة رائعة الله يعطيك العافية رابط هذا التعليق شارك More sharing options...
ابراهيم نجم قام بنشر سبتمبر 4, 2008 مشاركة قام بنشر سبتمبر 4, 2008 (معدل) جعل الله هذا العمل في ميزان حسناتك ... واشكرك جدا علي الشرح الجميل .. وارجو كل الرجا الاستمرار في شرح كل جوانب الاكسس مع امثلة تطبيقية علي كل مايتم شرحه .. ولي رجاء . هو ان تجمع كل شروحاتك مع امثلة تطبيقية وتضعها في ملف واحد وترفعها علي الموقع ليستفيد منها الجميع وجزاكم الله خيرا .......وكل عام وانتم بخير بمناسبة شهر رمضان المبارك تم تعديل سبتمبر 4, 2008 بواسطه ابراهيم نجم 1 رابط هذا التعليق شارك More sharing options...
كمال النحال قام بنشر سبتمبر 5, 2008 مشاركة قام بنشر سبتمبر 5, 2008 (معدل) أخوتي الغاليين تحية طيبة وبعد ،،،،،،،،،،،،، طبعاً موضوع إخفاء شاشة الاكسس شيء رائع جداً وجميل حتى يبدو البرنامج في هذه الحالة كالبرامج التي يتم عملها بالفجوال بيسك أو أي برامج أخرى ، وما دام تم التطرق لهذا الموضوع وأشكر الجميع الذين شاركوا ويشاركون في هذا الموضوع. هناك طريقة سهلة لاخفاء شاشة الاكسس هي خطوتين فقط كل ما عليك : 1. وضع هذا الكود في الوحدة النمطية Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub 2. في أول نموذج يتم فتحه ، ضع عند حدث تحميل أو حدث عند الفتح هذا الكود HideAccess وتغيير خصائص النموذج الى منبثق وشكلي أو مشروط الى القيمة نعم لذا أرفق لكم قاعدة بيانات للأخت زهرة العبدلله تم تطبيق اخفاء شاشة الاكسس عليها. بالتوفيق للجميع وبارك الله فيكم HideAccess.rar تم تعديل سبتمبر 5, 2008 بواسطه كمال النحال رابط هذا التعليق شارك More sharing options...
down12 قام بنشر سبتمبر 8, 2008 مشاركة قام بنشر سبتمبر 8, 2008 thanuuuuu رابط هذا التعليق شارك More sharing options...
shakr1 قام بنشر سبتمبر 11, 2008 مشاركة قام بنشر سبتمبر 11, 2008 شكرا يا اخوان على هذه الخطوات الجيدة بس هذه مو لب قواعد البيانات الناجحة ما نبحث عنها هو الطرق العملية للانشاء قواعد بيانات ناجحة من البداية وحتى النهاية بشرح مفصل ودقيق يفهم كل من يقرأها كما هو الحال في الشروحات التي تاتي باللغة الانكليزية رابط هذا التعليق شارك More sharing options...
taghi قام بنشر يناير 3, 2009 مشاركة قام بنشر يناير 3, 2009 أشكر أساذتي الأجلاء على هذا الموضوع الممتع، فعلا غير في خصائص النمادج ، ولكن كيف يتم تغيير خصائص الاستعلام؟ خصوصا اذا كان في النمودج الاصلي زر يفتح استعلام. وعذرة على الإزعاج. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان