تشغيل ماكرو اكسيس بواسطة فيجوال بيسيك 6

1- قم بإضافة المكتبة التالية :

''Refrance --> Microsoft Access 10.0 Object Library

2- قم بكتابة الكود التالي تحت حدث Click بإحدي أزرار الأوامر CommandButton :

Private Sub Command1_Click()
	Dim objAccess As New Access.Application


	With objAccess
		.OpenCurrentDatabase App.Path & "\DB.mdb"
		.Visible = True
		.DoCmd.RunMacro "ShowEmp", 2
	End With

	Set objAccess = Nothing
End Sub

حيث أن ShowEmp هي إحدي المكروهات الموجودة داخل Access

أنظر المثال المرفق ...

Macro.rar

الله ينور عليك

وتسلم ايدك وجعله الله فى ميزان حسناتك

تحياتى

الأخ الكريم/

أنا مهتم حاليا بمحاولة تشغيل قاعدة بيانات أكسس *.mdb من خلال VB ولقد قمت باستخدام الكود السابق مع تعديله ليفتح قاعدة البيانات فقط .. ولكن ظهرت رسالة الخطأ التالية ...

Compile Error >>>User-defined Type Not Defined

كيف يمكن تصحيحه ...شكرا لك

اقتباس

الأخ الكريم/

أنا مهتم حاليا بمحاولة تشغيل قاعدة بيانات أكسس *.mdb من خلال VB ولقد قمت باستخدام الكود السابق مع تعديله ليفتح قاعدة البيانات فقط .. ولكن ظهرت رسالة الخطأ التالية ...

Compile Error >>>User-defined Type Not Defined

كيف يمكن تصحيحه ...شكرا لك

الأخ الكريم ، ممكن توضح أكثر !!!

ماذا تقصد بفتح قاعدة بيانات mdb.* من خلال VB !!!

هل تقصد التعامل مع الجداول والعوارض وغيرها ، أم فتح برنامج Access نفسة

شكراً