اخي جابر الدكتورة . ام عهود لها الفضل بالنسبة لي ... وانا اتحدث عن نفسي بعد الله عز وجل في كثير من الخبرات التي استفدتها منها .... نسأل الله لها التوفيق والصحة لها ولجميع افراد اسرتها ......
أخي @حسين العربى استخدم هذا الكود في حدت عند تحميل النموذج
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
أخي @عبد اللطيف سلوم وجدت مثالا أكوادة مأخوذه من مثال أخي جعفر والله أعلم ...
البرنامج مفعل حسب الكود ليومين ... حاول ارجاع أو زيادة تاريخ جهازك وشاهد..
Database.mdb