اخي @ابو زاهر حسب استخدامها . ممكن تحت حدث زر أو عند تحميل النموذج الرئيس .... والافضل وضع الكود السابق في وحدة نمطية ثم استدعائها من النموذج أو الزر ..... ارجو أن أكون وفقت في الشرح
اخي جابر الدكتورة . ام عهود لها الفضل بالنسبة لي ... وانا اتحدث عن نفسي بعد الله عز وجل في كثير من الخبرات التي استفدتها منها .... نسأل الله لها التوفيق والصحة لها ولجميع افراد اسرتها ......
أخي @حسين العربى استخدم هذا الكود في حدت عند تحميل النموذج
If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_Process where Name ='msaccess.exe'").Count > 1 Then MsgBox ("i can work alone"): DoCmd.Quit acQuitSaveAll