فيصل الحربي

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

22 ردود في هذا الموضوع

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

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

1- انشئ قاعدة بيانات جديده

2- انسخ الكود التالي ثم الصقه في وحده نمطيه جديدة وسمها أي اسم ترغب به

الكود

===============================================


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

===============================================

3- انشئ نموذج جديد وسمه اي اسم ترغب به

4- غير خصائص النموذج الى

pop up=yes

modal=yes

5- ضع زر امر لإغلاق النموذج مع الأكسس

6- ضع في حدث عند الفتح الكود التالي

الكود

==============================================

    fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HIDE)

==============================================

7- من قائمة أدوات اختر بدء التشغيل ثم حدد النموذج لكي يفتح في بدء التشغيل

8- إحفظ عملك ثم قم بإنهاء القاعدة .

9- شغل القاعدة وسوف ترى ان خلفية الأكسس مختفيه تماما ما عدا النموذج الذي اخترته من قائمة بدء التشغيل .

10 -دعواتكم لنا بالتوفيق

مرفق مثال على الطريقة

تحياتي (f)

========

counter2001b.cgi?602678

hideaccesswindow.zip

0

شارك هذا الرد


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

أخي العزيز الغالي / فيصل الحربي

ألـ(f)(gift)(f)(gift)(f)(gift)(f)(gift)ـف شكر لك ،،،،، وعساك على القوة ،،،

مع خالص تحياتي وتقديري لشخصكم الكريم ,,,,,, (f)(gift)(f)

أخوك : أبو عقيل (f)(f)(f)(f)(f)(f)(f)(f)(f)

0

شارك هذا الرد


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

السلام عليكم

اخ العزيز فيصل الحربي

مع خالص تحياتي وتقديري

الله صبحانه يزيدك علم وتقدير

برنامج ممتاز معلومات ممتازه

اخوك ابو محمد

(gift)(gift)

swcc-1053466947.gif

0

شارك هذا الرد


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

أخي العزيز فيصل الحربي

أشكرك على هذه الافاده المتميزه.

و للامام ان شاء الله.

0

شارك هذا الرد


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

أستاذي: المشرف فيصل

أسل الله أن يجعلك مباركا أين ماكنت نافعا بعلمك... آمين.

وبعد: أقترح أن تكتب هذه الشفرة على مستند وور ويكتب لها عنوان في رأس الصفحة حتى تصبح مداولتها سهلة، ثم تتولى أنت أو أحد الأخوة شرحها والزيادة عليها حتى تكتمل ثم تحول إلى ملف (أوكروبات ريدر )ثم تنقل إلى المكتبة كنسخة لتعم بها الفايدة.

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

تلميذكم

Gaham

0

شارك هذا الرد


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

(gift)(f)(gift)(f)(gift)(f)(gift)(f)(gift)(f)(gift)(f)(gift)(f)(gift)(f)

والله لو عبيت الصفحة هدايا ورود ما تكفي لرد جميلك ....

الله يجزاك خيراً كثيراً أخي فيصل ......

وشكراً لك ...

0

شارك هذا الرد


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

مشور يا استاذنا على المعلومات القيمة جزاك الله خيرا وذادك من عمله

0

شارك هذا الرد


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

أخي فيصل.. أدعو الله لك بالتوفيق. كما سألت في الفقرة 10

الأخ أبو عقيل.. إجابة صحيحة 100%

الأخ سامر سمير : سبحانه وليس صبحانه.

الأخ العواض إجابة صحيحة 100%

الأخ غاهام : أسأل وليس أسل ـ وورد وليس وور. إجابة ناقصة!!.

الأخ ماجد إجابة صحيحة 100%

الأخ أبو طالب: مشكور وليس مشور ـ وزادك وليس وذادك ـ من علمه وليس من عمله. إجابة ناقصة بالمرة!!.

0

شارك هذا الرد


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

الخصيتين ؟؟؟؟ ماذا تريد أن تقول يا أحمد ؟؟!!!.

0

شارك هذا الرد


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

basmallah.gif

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

أخي العزيز ahmed486

الخاصيتين هما :

منبثق = نعم = pop up

شكلي او مشروط = نعم = Modal

tahiyat.gif

========

counter2001b.cgi?602678

0

شارك هذا الرد


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

عفوا .....

تجربة عداد زيارات جديد

==========================================

counter.php?id=369765&usernum=4196675203

===========================================

0

شارك هذا الرد


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

(f)

0

شارك هذا الرد


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

مبروك العداد الجديد

ممكن رابط لشرح كيفية عمل عداد الزيارات

او تشرح طريقة عمله اود عمله على صفحه ويب للتجربه

وهل زرت بريدك الخاص

والسلام عليكم

0

شارك هذا الرد


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

basmallah.gif

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

أخي العزيز الهاجري

عليك الاشتراك بخدمة عداد الزيارات مع احد موفري الخدمه ( www.bravenet.com )

وبعد ان تحصل على عنوان العداد تلصقه في المشاركات بالطريقة التاليه :


[img=http://counter49.bravenet.com/counter.php?id=369765&usernum=4196675203]

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

راجع رسائلك الخاصه .

tahiyat.gif

========

counter.php?id=369765&usernum=4196675203

0

شارك هذا الرد


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

جزاك الله خير

الان فهمت شرح وافي

ساشترك واذا صادفتني مشكله ساعود اليك

0

شارك هذا الرد


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

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

http://www.arabteam2000.com/vb/showthread....=&threadid=5725

0

شارك هذا الرد


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

السلام عليكم

أخي moody1616

بارك الله فيك على التنبيه و كلي أسف لما بدر مني بعدم البحث ، فوالله العظيم طرحي لهذه المشاركة هو للصالح العام . والله من وراء القصد .

تحياتي

(f) (f) (f) (f) (f) (f) (f) (f) (f) (f) (f)

0

شارك هذا الرد


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

موضوع ممتاز

ولكن انا عندى مشكلة فى التقارير بعد الاخفاء لا تظهر التقارير

ارجو الرد

0

شارك هذا الرد


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

موضوع ممتاز

ولكن انا عندى مشكلة فى التقارير بعد الاخفاء لا تظهر التقارير

ارجو الرد

0

شارك هذا الرد


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

هل ممكن اعادة رفع المرفق

مع الشكر

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

شارك هذا الرد


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

بسم الله الرحمن الرحيم

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

وشكرا

1.zip

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

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

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

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