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

[ابو جودي]

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

 

Creat Shortcut.mdb

[محمد أبوعبدالله]

جزاك الله خيرا استاذنا الفاضل

تحياتي

[Ali Mohamed Ali]

احسنت استاذى الكريم جزاك الله كل خير

[SEMO.Pa3x]

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

 

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