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

[ابو جودي]

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

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

'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.zipFetching info...

 

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

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

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

Utilities Hide Ico Minimze To SysTray V.02.zipFetching info...

 

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

[مسفر]

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

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

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

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

[محمد قاسم 12]

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

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

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

 

[qathi]

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

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

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

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

Utilities Hide Ico Minimze To SysTray.rarFetching info...

[qathi]

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

[ابو جودي]

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

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

 

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

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

  في 20‏/7‏/2019 at 17:44, ابا جودى said:

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

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

 

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

Expand  

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

[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]

  في 20‏/7‏/2019 at 18:18, ابا جودى said:

دون جدوى

Expand  

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

 

جعفر

[ابو جودي]

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

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

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

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

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

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

 

Utilities Hide Ico Minimze To SysTray V.02.zipFetching info...

[Ali Mohamed Ali]

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

[at_aziz]

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

[qathi]

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

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

السبب :

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

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

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

DoCmd.MoveSize 250, 100, 20000, 10500

 

 

[ابو جودي]

  في 12‏/11‏/2019 at 14:26, qathi said:

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

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

السبب :

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

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

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

DoCmd.MoveSize 250, 100, 20000, 10500

 

 

Expand  

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

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

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

[ابو جودي]

[qathi]

  في 12‏/11‏/2019 at 15:37, ابا جودى said:

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

Expand  

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

Database1.rarFetching info...

[Gamor]

  في 20‏/7‏/2019 at 17: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()

 

Expand  

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

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

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

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

 

صور توضيحيه

 

 

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

خالص الود

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

[qathi]

  في 12‏/11‏/2019 at 14:26, qathi said:

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

السبب :

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

Expand  

 

  في 12‏/11‏/2019 at 17:40, qathi said:

  في 12‏/11‏/2019 at 15:37, ابا جودى said:

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

Expand  

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

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

Expand  

 

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

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

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

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

[ابو جودي]

  في 13‏/11‏/2019 at 08:16, qathi said:

 

 

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

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

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

Expand  

السلام عليكم

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

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