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

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


ابو جودي

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

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

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

'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
رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

 0000000.thumb.png.7831cca87db938fa90d2c60fc9e1d432.png

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

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

رابط هذا التعليق
شارك

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

 

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

 

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

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

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

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

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

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

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

 

Utilities Hide Ico Minimze To SysTray V.02.zip

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

  • 3 months later...

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

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

السبب :

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

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

02.PNG.edcb53327b0fc19aadaf2322611594a3.PNG

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

DoCmd.MoveSize 250, 100, 20000, 10500

 

 

رابط هذا التعليق
شارك

منذ ساعه, qathi said:

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

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

السبب :

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

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

02.PNG.edcb53327b0fc19aadaf2322611594a3.PNG

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


DoCmd.MoveSize 250, 100, 20000, 10500

 

 

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

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

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

رابط هذا التعليق
شارك

في ‏٢٠‏/‏٠٧‏/‏٢٠١٩ 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 اعضاء متواجدين الان

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

Important Information