مساعدة في اخفاء خلفية الاكسس كليا

[AliAli47]

السلام عليكم 

لدي قاعدة بيانات قمت بإخفاء الخلفية لها عن طريق الكود لكن عند انزال البرنامج عن طريق التصغير واعادة فتحه من taskbar

تظهر الخلفية كما هو موضح في الصورة

هل يمكن اخفاء الخلفية كليا ؟

 

 

تم تعديل يوليو 12, 2021 بواسطه AliAli47

[Eng.Qassim]

57 minutes ago, AliAli47 said:

السلام عليكم 

لدي قاعدة بيانات قمت بإخفاء الخلفية لها عن طريق الكود لكن عند انزال البرنامج عن طريق التصغير واعادة فتحه من taskbar

تظهر الخلفية كما هو موضح في الصورة

هل يمكن اخفاء الخلفية كليا ؟

 

 

هذه المشاركة قد تفيدك ...

 

[AliAli47]

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

تم تعديل يوليو 12, 2021 بواسطه AliAli47

[Eng.Qassim]

 

اخي العزيز ..اول شي اعمل shortcut   للملف الاصلي

اذهب الى ملف ال shortcut … وبالضغط على الزر الايمن والضغط على properites  سوف تظهر لك صفحة shortcut … قم باختيار minimized

[Eng.Qassim]

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

عند الضغط على زر الفأرة الايمن تظهر لك قائمة ...اختر منها Creat shortcut

سوف يقوم البرنامج بعمل نسخة مختصرة ...اذهب اليها وبالنقر على الزر الايمن سوف ياخذك لصفحة shortcut

اقم بأختيار minimized  سطر Run

ارجو ان يكون الجواب واضحا ...

[AliAli47]

نعم لقد طبقت هاته الخطوات وعند فتح البرنامج للمرة الاولى الخلفية لا تظهر لكن عند الضغط على زر minimized داخل البرنامج 

ثم الضغط على زر maximazed تظهر الخلفية مثل ماهو موضح في الصورة

تم تعديل يوليو 13, 2021 بواسطه AliAli47

[emam asherif]

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

 

[AliAli47]

هل من أحد يمكنه إفادتنا من فضلكم 

[د.كاف يار]

اتبع الإجراءات التالية

 

اولاً / انشئ Module1 جديد

و الصق فيه الشيفرة التالية

Option Compare Database
ption Explicit

Public MyUserName, MyPassword, Full_Name, MyUser_Active, MyAddition, MyUpdate, MyDeletion, MyUser_NO As String

Const SW_HIDE = 0
Const SW_NORMAL = 1
Const SW_MINIMIZED = 2
Const SW_MAXIMIZED = 3

Private Declare PtrSafe Function ShowWindow Lib "user32" (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

 

فالك التوفيق انشاء الله

[أواب]

/