استفسار اعن كود منع تغير الاسم او امتداد البرنامج

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته
اساتذتى الكرام اعتذر لاثقالى عليكم بكثر سؤالى

 

هل يوجد كود vba عند وضعه فى حدث عند الفتح يغلق القاعدة تلقائيا لو تم تغيير الاسم او الامتداد الخاص بها

ارجوا الافاده والشرح ان امكن ارفاق مثال لو وجد

للعلم بحثت فى المنتدى ولم اوفق ووجدت موضوع يتعيين الدرايف والاسم ولما حاولات التعديل فقط ليقتصر على اسم البرنامج لم يعمل المثال 

جزاكم الله عنا كل الخير 

 

[ابو جودي]

 

[ابوخليل]

Private Sub Form_Open(Cancel As Integer)
If CurrentProject.Name = "myName.mdb" Then
Else
DoCmd.Quit
End If
End Sub

[ابو جودي]

 

Private Sub Form_Open(Cancel As Integer)
If CurrentProject.Name = "myName.mdb" Then
Else
DoCmd.Quit
End If
End Sub

 

السلام عليكم ورحمة الله تعالى وبركاته

استاذى الجليل ومعلمى القدير بكم نقتضى وبعلمكم نهتدى

كل الشكر والتقدير شكر الله لك وزادكم الله من علمه       

جزاكم الله عنا كل الخير

تم تعديل فبراير 9, 2015 بواسطه اسير الشروق