فتح البرنامج اكثر من مره من قبل المستخدم

[حسين العربى]

السلام عليكم ورحمة الله وبركاته  اخواني اعضاء ومشرفي المنتدي الكرام

اريد كود  اذا كان البرنامج مفتوح لايفتح مره اخري عند فتح المستخدم له يعطي له رساله ان البرنامج مفتوح بالفعل 

 

1

 

 

 

 

[kanory]

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

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

 

[حسين العربى]

الف الف شكر استاذي الفاضل kanory هذا هو المطلوب

[kanory]

حياك الله اخي @حسين العربى