فتح قاعدة بيانات عن طريق ملف الاسكريبت Script (معدل)

[tharwt22]

اريد كود لتشغيل قاعدة بيانات بملف خارجى ويكون عباره عن كود Script File  

[husamwahab]

تفضل هذا الملف

ارجو ان يكون طلبك

ملاحظة : يتم فتح الملف ب  NotePad وتغيير المسار الى المسار المطلوب

RemoteOpen.rar

[tharwt22]

شكرا اخى الكريم هذا ما كنت ابحث عنه  لك الشكر 

[tharwt22]

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

تم تعديل نوفمبر 5, 2022 بواسطه tharwt22

[jjafferr]

وعليكم السلام 🙂

 

هذا كود اخي حسام بعد التعديل:

 Dim appAccess

    Set appAccess = CreateObject("Access.Application")
	appAccess.OpenCurrentDatabase "C:\Users\User10\Database1.accdb", , "كلمة سر قاعدة البيانات"
      appAccess.UserControl = True

 

جعفر

[tharwt22]

تم تجربه الكود  هو المطلوب اشكركم جزيل الشكر  ولكن برنامج الاكسس لايفتح بكامل الشاشه 

يوجد بها نموذج منبثق يفتح بكامل الشاشة  ام  قاعدة البيانات فى الخلف  لا تفتح بكامل الشاشه 

هل الكود لة نتكمله  لهذا   ولكم عظيم الاحترام 

 

[jjafferr]

وعليكم السلام 🙂

 

حسب مساعد الاكسس Help ، فيمكنك استعمال اي من الاوامر ، مثل تلك التي تبدأ بـ DoCmd ، وجميع اوامر RunCommand ، مثلا:

لفتح نموذج معين
appAccess.DoCmd.OpenForm "Form1"



وفي حالتك، جرب الامرين التاليين مع بعض
appAccess.runcommand (acCmdAppMaximize)	'لتكبير شاشة الاكسس
appAccess.docmd.maximize  'لتكبير شاشة النموذج او التقرير

.

في مساعد الاكسس ، ابحث عن كلمة application ، وسترى جميع الاوامر :

.

جعفر

[tharwt22]

السلام عليكم 

بعد صباح الخير  اشكر حضرتك على سرعه الاستجابه

ولكن الامرين لم يغيرا فى اى شيى بل اعطانى رساله  مفادها مرف الصوره 

[jjafferr]

وعليكم السلام 🙂

 

1. الصورة جدا صغيرة ، وبالكاد اقدر اميز الكتابة فيها ، يا ريت ترفق نسخة اكبر ،

2. ارفق لنا الكود الكامل اللي عندك.

 

جعفر

[tharwt22]

تم الرقع 

 

11Open.rar

[jjafferr]

المعادلة صحيحة ،

ولكن المشكلة هي اننا لا نستعمل الاكسس في تنفيذ امر فتح البرنامج ، فعليه ، لا توجد مكتبة في الملف التنفيذي لتقوم بتعريف المتغير acCmdAppMaximize ،

ومن مساعد الاكسس نرى ان قيمته = 10 :

.

اذن عندنا الخيار في استعمال الرقم 10 مباشرة ، او الاعلان عن المتغير acCmdAppMaximize بأن قيمته 10 :

 Dim appAccess

    Set appAccess = CreateObject("Access.Application")
	
	appAccess.OpenCurrentDatabase "C:\Users\Tharwt\OneDrive\Desktop\Database_Backup.accdb", True, "123"
	
	appAccess.UserControl = True

'نستعمل السطرين التاليين
	const acCmdAppMaximize = 10
	appAccess.RunCommand acCmdAppMaximize		'لتكبير شاشة الاكسس
	
'او استعمال السطر التالي
	'appAccess.RunCommand 10
		
	appAccess.docmd.maximize  'لتكبير شاشة النموذج او التقرير

 

جعفر

 

[tharwt22]

معلمى تم تجربه الكود وتمام اشتغل تمام بكامل الشاشه  انا استخدم اوفيس 365 ولا يوجد عند مساعد اكسس  ماذا افعل  اشكركم  مع خالص شكرى لكم جميعا على مساعدتكم لى اللا ان نلتقى فى موضوعات اخرى 

[Moosak]

2 ساعات مضت, tharwt22 said:

لا يوجد عند مساعد اكسس  ماذا افعل

تجدها في القائمة : 🙂 

[tharwt22]

السلام وعليكم   اشركم على الاهتمام  هذا صورة ماعندى  ولكم جزيل الشكر