اذهب الي المحتوي
أوفيسنا

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


tharwt22
إذهب إلى أفضل إجابة Solved by husamwahab,

الردود الموصى بها

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

 

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

 Dim appAccess

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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

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

 

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

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



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

.

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

image.png.3e913a23c661f37354cd78f80a6caf8b.png

.

جعفر

رابط هذا التعليق
شارك

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

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

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

image.png.2dd0f46ff4a6b7634c9cfa10a9e169d3.png

.

اذن عندنا الخيار في استعمال الرقم 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  'لتكبير شاشة النموذج او التقرير

 

جعفر

 

  • Like 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information