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

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

Recommended Posts

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

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

'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

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

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

Utilities Hide Ico Minimze To SysTray V.02.zip

 

تم تعديل بواسطه ابا جودى
اضافة مرفق جديد
  • Like 7
  • Thanks 4

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

  • Thanks 2

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

 

شارك هذه المشاركه


رابط المشاركه
شارك

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

Utilities Hide Ico Minimze To SysTray.rar

  • Like 1
  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

 0000000.thumb.png.7831cca87db938fa90d2c60fc9e1d432.png

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

  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك
4 دقائق مضت, ابا جودى said:

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

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

 0000000.thumb.png.7831cca87db938fa90d2c60fc9e1d432.png

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

 

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

 

 

انظر هنا

 

جعفر

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

 

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()

 

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

دون جدوى

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك
55 دقائق مضت, ابا جودى said:

دون جدوى

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

 

جعفر

  • Confused 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

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

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

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

 

Utilities Hide Ico Minimze To SysTray V.02.zip

  • Like 2
  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

السبب :

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

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

02.PNG.edcb53327b0fc19aadaf2322611594a3.PNG

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

DoCmd.MoveSize 250, 100, 20000, 10500

 

 

شارك هذه المشاركه


رابط المشاركه
شارك
منذ ساعه, qathi said:

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

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

السبب :

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

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

02.PNG.edcb53327b0fc19aadaf2322611594a3.PNG

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


DoCmd.MoveSize 250, 100, 20000, 10500

 

 

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك
2 ساعات مضت, ابا جودى said:

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

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

Database1.rar

شارك هذه المشاركه


رابط المشاركه
شارك
في ‏٢٠‏/‏٠٧‏/‏٢٠١٩ 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()

 

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

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

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

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

 

صور توضيحيه

534948572.jpg

 

 

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

510507968.jpg

خالص الود

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

شارك هذه المشاركه


رابط المشاركه
شارك
18 ساعات مضت, qathi said:

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

السبب :

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

 

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

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

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

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

 

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

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك
3 ساعات مضت, qathi said:

 

 

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

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

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

السلام عليكم

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×
×
  • اضف...