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

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


ابو جودي

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

وعليكم السلام، تفضل سويت لك مشروع صغير.

 

Dim Shell
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\" & CurrentProject.Name & ".lnk")
link.Description = "shortcut"
link.TargetPath = CurrentDb.Name
link.WindowStyle = 3
link.Save

 

يأخذ الاسم للقاعدة الحالية ثم يعمل لها اختصار الى سطح المكتب بنفس الاسم والايقونة

 

حسنين

shortcut_SEMO_Pa3x.accdb

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information