منافع لا غنى عنها موديول إخفاء إطار الأكسس - التوسيط - التصغير بجوار الساعة - تغيير الأيقونة - استدعاء بيانات ورسائل من جدول

[ابو جودي]

- موديول إخفاء إطار الأكسس
- التوسيط
- التصغير بجوار الساعة
- تغيير الأيقونة
- استدعاء بيانات ورسائل من جدول 

تم وضع التذكيـــر الاتى برأس الموديول لسهولة التعامل مع الأكودا واستدعائها
 

'icon path               >>--->     CurrentProject.Path &"\"&"\File Library\Fav Ico\Myicon.ico"
'Hide Access             >>--->     CallStartForm()
'CenterObjects           >>--->     Call CenterFrm(Me)

'Minimize To Systray     >>--->     Call AppMini()
'To Quit Application     >>--->     Call AppQuit()
'To Close Any Forms      >>--->     Call AppCloseFrm()

'Application Name        >>--->     Call AppName()

'Designer Name           >>--->     Call DesName()
'Designer Phone          >>--->     Call DesPhone()
'Designer Email          >>--->     Call DesEmail()

'call Any Message From Table
'>>>>>       StrMyCriteria = "MyCriteria ='xxxx'"
'>>>>>       MyMesg (txtOfMesg), vbOKOnly, strMsgTitle
'>>>>>       Change "xxx" By Criteria From Table  >> UsystblUsefulData << By Criteria From Field [MyCriteria]

'>>>>> Example  MyCriteria  >>---->>  msgDesData
'>>>>>       StrMyCriteria = "MyCriteria ='msgDesData'"
'>>>>>       MyMesg (txtOfMesg), vbOKOnly, strMsgTitle

 

هذا المرفق الاول بدون عمل اختصار للبرنامج

Utilities Hide Ico Minimze To SysTray.zip

 

---------------------------------------------------------------
هذا المرفق للإضافة إختصار أليا الى سطح المكتب وتحكم كامل فى كل ما يخص الاختصار من الجدول  UsystblUsefulData

اسم الاختصار
الوصف
مفتاح الاختصار من الكيبور لفتح التطبيق
 

وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية 

Utilities Hide Ico Minimze To SysTray V.02.zip

 

تم تعديل يوليو 20, 2019 بواسطه ابا جودى
اضافة مرفق جديد

[مسفر]

الله يعطيك العافية يا بوجودي 

جزاك الله خيرا لما تقدمه من نفع للجميع 

[محمد احمد لطفى]

افادك الله وزادك علمك

[محمد قاسم 12]

بارك الله فيك استاذى الفاضل

هل من الممكن تجهيز قاعدة بالمستخدمين والاضافات اللازمه لاى برنامج بحيث يتم نقل اى  عمل اليها 

ليسهل العمل على امثالى 

 

[qathi]

بارك الله فيك ..

[محمد احمد لطفى]

أستاذى @ابا جودى

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

Utilities Hide Ico Minimze To SysTray.rar

[qathi]

وحليت مشكلة اخرى .. تسلم أخي @محمد احمد لطفى

[ابو جودي]

افعل ما شئت وكيفما شئت المرفق كلط يمينك 

لكن مع التجربة

 

سوف ارى ما يمكن عمله بهذا الشأن قريبا

[محمد احمد لطفى]

4 دقائق مضت, ابا جودى said:

افعل ما شئت وكيفما شئت المرفق كلط يمينك 

لكن مع التجربة

 

سوف ارى ما يمكن عمله بهذا الشأن قريبا

غريبة يعمل عندى

[jjafferr]

السلام عليكم 🙂

 

مجهود تُشكر عليه ابا جودي 🙂

 

 

انظر هنا

 

جعفر

[محمد احمد لطفى]

تم اضافة الكود فى الوحدة النمطية 

 

Function Make_Desktop_Shortcut()

    DB_Name = Application.CurrentProject.Name
    DB_Path = Application.CurrentProject.Path
    icon_Name = "Myicon.ico"
    icon_Path = Application.CurrentProject.Path
    icon_Name_Path = icon_Path & "\File Library\Fav Ico\" & icon_Name
        
With CreateObject("WScript.Shell")
  With .CreateShortcut(.SpecialFolders("Desktop") & "\Utilities Hide Ico Minimze To SysTray.lnk")
    .TargetPath = DB_Path & "\" & DB_Name
    .WindowStyle = 1
    .Hotkey = ""
    .IconLocation = icon_Name_Path
    .Description = "ابا جودى"
    .WorkingDirectory = DB_Path & "\"
      .Save
  End With
End With

End Function

و تم اضافتها  فى المايكرو  autoexec

Make_Desktop_Shortcut()

 

تم تعديل يوليو 20, 2019 بواسطه محمد احمد لطفى

[ابو جودي]

قمت بالتجربة استاذى الجليل ومعلمى القدير استاذى الغالى و والدى الحبيب الاستاذ @jjafferr 

دون جدوى

[عبد اللطيف سلوم]

الله لا يحرمنا منك اخونا الكبير  ابا جودي  قاهر الاكسس

دمت بخير يا غالي

ونطمع بالمزيد من روعاتك 

[ابوآمنة]

شكراً معلمنا الجليل ابا جودى

شكر الله سعيك ، وغفر ذنبك ، وأعلى درجتك  .

وزادك الله علماً وفهماً وعملاً .

[jjafferr]

55 دقائق مضت, ابا جودى said:

دون جدوى

اذن يجب استيراد كائنات البرنامج الى برنامج جديد !!

 

جعفر

[ابو جودي]

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

وتم وضع المرفق الجديد بالمشاركة الأصلية واختصار منه هنا

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

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

اسم الاختصار
الوصف
مفتاح الاختصار من الكيبور لفتح التطبيق
 

وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية للاكسس  

 

Utilities Hide Ico Minimze To SysTray V.02.zip

[Ali Mohamed Ali]

بارك الله فيك أستاذ محمد وزادك الله من فضله

[at_aziz]

بوركت ابا جودي

[qathi]

ملف رائع جداً وأفادني كثيرا  بارك الله فيك أستاذي @ابا جودى

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

السبب :

عند وجود نموذج كبير في حجمة نسبياً فأن شريط المهام يقوم بتغطية جزء من النموج .. بينما ماقبل راس النموذج يكون في مساحة فارغة

الصورة للتوضيح

طبعاً أعلم بهذا الكود:  ليس هو المطلوب .. ولا أتحدث عنه

DoCmd.MoveSize 250, 100, 20000, 10500

 

 

[ابو جودي]

منذ ساعه, qathi said:

ملف رائع جداً وأفادني كثيرا  بارك الله فيك @ابا جودى

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

السبب :

عند وجود نموذج كبير في حجمة نسبياً فأن شريط المهام يقوم بتغطية جزء من النموج .. بينما ماقبل راس النموذج يكون في مساحة فارغة

الصورة للتوضيح

طبعاً أعلم بهذا الكود:  ليس هو المطلوب .. ولا أتحدث عنه

DoCmd.MoveSize 250, 100, 20000, 10500

 

 

ارجوك اولا انا فقط اما محمد او ابا جودى فقط

ثانيا انا لم افهم ما هى المشكلة 

فضلا وكرمنا وليس امرا هلا تترفق بى بارفاق القاعدة التى بها هذه المشكلة 

[ابو جودي]

[qathi]

2 ساعات مضت, ابا جودى said:

فضلا وكرمنا وليس امرا هلا تترفق بى بارفاق القاعدة التى بها هذه المشكلة 

تفضل استاذي الغالي

Database1.rar

[Gamor]

في ‏٢٠‏/‏٠٧‏/‏٢٠١٩ at 20:58, محمد احمد لطفى said:

تم اضافة الكود فى الوحدة النمطية 

 

Function Make_Desktop_Shortcut()

    DB_Name = Application.CurrentProject.Name
    DB_Path = Application.CurrentProject.Path
    icon_Name = "Myicon.ico"
    icon_Path = Application.CurrentProject.Path
    icon_Name_Path = icon_Path & "\File Library\Fav Ico\" & icon_Name
        
With CreateObject("WScript.Shell")
  With .CreateShortcut(.SpecialFolders("Desktop") & "\Utilities Hide Ico Minimze To SysTray.lnk")
    .TargetPath = DB_Path & "\" & DB_Name
    .WindowStyle = 1
    .Hotkey = ""
    .IconLocation = icon_Name_Path
    .Description = "ابا جودى"
    .WorkingDirectory = DB_Path & "\"
      .Save
  End With
End With

End Function

و تم اضافتها  فى المايكرو  autoexec

Make_Desktop_Shortcut()

 

السلام عليكم اخي محمد

فكره جميييله جدا وانا احتاجها جدا جدا

لقد اضفت الاكود المذكوره في المشاركم لاكن ضهر لي خطء

الرجو التكرم بشرح المشكله

 

صور توضيحيه

 

 

غيرت اسم البرنامج فقط . محدد بلون الازرق

خالص الود

تم تعديل نوفمبر 13, 2019 بواسطه Gamor

[qathi]

18 ساعات مضت, qathi said:

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

السبب :

عند وجود نموذج كبير في حجمة نسبياً فأن شريط المهام يقوم بتغطية جزء من النموج .. بينما ماقبل راس النموذج يكون في مساحة فارغة

 

14 ساعات مضت, qathi said:

16 ساعات مضت, ابا جودى said:

فضلا وكرمنا وليس امرا هلا تترفق بى بارفاق القاعدة التى بها هذه المشكلة 

تفضل استاذي الغالي

Database1.rar 43.85 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 4 downloads

 

أرجوا من أساتذتي الذي لديهم قدرة في معرفة الحل .. أن لا يترددو بالمساعدة ..

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

واحتاج حلها في أسرع وقت ممكن 

تم تعديل نوفمبر 13, 2019 بواسطه qathi

[ابو جودي]

3 ساعات مضت, qathi said:

 

 

أرجوا من أساتذتي الذي لديهم قدرة في معرفة الحل .. أن لا يترددو بالمساعدة ..

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

واحتاج حلها في أسرع وقت ممكن 

السلام عليكم

استاذى الحبيب ممكن سؤال

ليه حضرتك غيرت كود اخفاء اطار الاكسس