تخفيض امن اكسس وإلغاء خلفية تشغيل اكسس وإلغاء رسائل الأخطاء

[Mohameddd200300]

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

كيف حالكم ان شاله بخير  اليوم حبيت اشاركم كود او ملف راح يفيد مستخدمين اكسس بشكل كبير   الملف المرفق في هذا الموضوع فيه ملف تجريبي  هو عباره عن ملف يتم وضعه بجوار البرنامج ويحمل نفس اسم البرنامج وعند عمل اختصار لفتح البرنامج قم بوضع الاختصار علي الملف الذي وضعته بجوار البرنامج     محتوا الملف كود  وكل ما عليك فعله وها فتح الملف من خلال تحريره  وفي مكان المخطط في الأصفر ضع اسم البرنامج مع صيغته  كما موضح في الصورة

 

 

بعدها اعمل اختصار لفتح هذا الملف وها بدورة راح  يفتحك برنامج ولاكن بدون تشغيل خلفية اكسس وأيضا اذا كان الأمان شغال راح يلغيه فقط اذا فتحت برنامج  الجود ممتاز جدا  جربوه وعطني رايك  طبعا  الكود عطاني أيها صديقي  أبو ياسين 

تخفيظ امان اكسس واخفاء خلفية تشغيل الاكسس.rar

[ابو ياسين المشولي]

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

Dim Fso
dim MyPath
set fso=createObject("Scripting.fileSystemObject")
Mypath=fso.GetAbsolutePathName(".")

	With Createobject("Access.Application")
		.AutomationSecurity = 1
		.opencurrentdatabase mypath & "\Type here your program name", , "Type here the passward" 
		.usercontrol=True
	End with

 

[abouelhassan]

بارك الله فيك اخى الغالى ظهر هذا الخطأ عند التشغيل

 

تم تعديل فبراير 21, 2021 بواسطه abouelhassan

[ابو ياسين المشولي]

في ٢١‏/٢‏/٢٠٢١ at 19:01, abouelhassan said:

بارك الله فيك اخى الغالى ظهر هذا الخطأ عند التشغيل

 

Dim Fso
dim MyPath
set fso=createObject("Scripting.fileSystemObject")
Mypath=fso.GetAbsolutePathName(".")

	With Createobject("Access.Application")
		.AutomationSecurity = 1
		.opencurrentdatabase mypath & "\هناء اسم برنامجك", , "هناء كلمه السر" 
		.usercontrol=True
	End with
او اذا كان بدون كلمه سر هكذا
Dim Fso
dim MyPath
set fso=createObject("Scripting.fileSystemObject")
Mypath=fso.GetAbsolutePathName(".")

	With Createobject("Access.Application")
		.AutomationSecurity = 1
		.opencurrentdatabase mypath & "\هناء اسم برنامجك"
		.usercontrol=True
	End with

 

[abouelhassan]

نحتاج كتابة اليوزر نام اضافة الى الباس وورد مشكور اخى حيث يوجد فورم يطلب الاسم والباس ورد

شكر وتقدير واحترام من اخيك

تم تعديل فبراير 22, 2021 بواسطه abouelhassan

[emam asherif]

هذا الكود يخفي البرنامج بالكامل