اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

قام بنشر
28 دقائق مضت, حمادة عثمان said:

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

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

انت بتهزر صح ؟
انت بجد يحثت فى المنتدى والا بتهزر 
هذا فقط غيث من فيض 

 

 

 

  • Like 1
قام بنشر

  من يوم اشتراكى فى منتداكم وانا معتاد على الهجوم انا ياسيدى لى طلب محدد

لا اريد تصغير شاشة الاكسس بل اريد اخفاءها

قام بنشر
4 دقائق مضت, حمادة عثمان said:

  من يوم اشتراكى فى منتداكم وانا معتاد على الهجوم انا ياسيدى لى طلب محدد

لا اريد تصغير شاشة الاكسس بل اريد اخفاءها

ههههههههههههههه
هجوم ايه بس يا استاذ @حمادة عثمان

طيب هات مرفق اعدلهولك
 

  • Like 1
قام بنشر (معدل)
7 دقائق مضت, حمادة عثمان said:

  من يوم اشتراكى فى منتداكم وانا معتاد على الهجوم انا ياسيدى لى طلب محدد

لا اريد تصغير شاشة الاكسس بل اريد اخفاءها

يا صاحب ابتسامة الجميلة

نحن لا نهاجم على اي شخص كلكم احباءنا في الله ونبحكم في الله

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

اتفضل 

الصق هذا الكود في وحدة نمطية


Option Compare Database
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

وفي نموذج عند تحميل او عند فتح اكتب

HideAccess للاخفاء

و

ShowAccess للاظهار من جديد

وهذا هو رابط الموضوع

 

 

تم تعديل بواسطه Shivan Rekany
  • Like 2
  • 2 weeks later...
قام بنشر
On 5/25/2017 at 7:07 PM, Shivan Rekany said:

يا صاحب ابتسامة الجميلة

نحن لا نهاجم على اي شخص كلكم احباءنا في الله ونبحكم في الله

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

اتفضل 

الصق هذا الكود في وحدة نمطية



Option Compare Database
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

وفي نموذج عند تحميل او عند فتح اكتب

HideAccess للاخفاء

و

ShowAccess للاظهار من جديد

وهذا هو رابط الموضوع

 

 

استاذي شيفان تحياتي لك

هل تقصد ان اضع 

showAccess

 & HideAccess 

في النموذج اللي راح يشتغل في البدايه  فقط لو في كل النماذج 

 

تحياتي وتقديري لك 

قام بنشر (معدل)
5 hours ago, Shivan Rekany said:

اذا تريد اخفاء الشاشة اكتب في نموذج البداية فقط

 

دمت فخرا 

شكرا لردك 

تمت التجربه 

جميل جداً

تم تعديل بواسطه Aliko
  • 1 year later...

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