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

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

قام بنشر

السلام عليكم

 

لدي قاعدتين بيانات A و B...  اريد انشاء زر أمر (vba) في قاعدة البيانات A عند الضغط عليه، يقوم بفتح قاعدة البيانات B وهي قاعدة آخرى خارجية.

 

مع جزيل الشكر

تحياااتي

قام بنشر

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

تفضل 

على اعتبار ان قاعدة البيانات B  موجودة بجانب القاعدة A واسم الزر  في القاعدة A هو openDB

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub openDB_Click()
ShellExecute Me.hwnd, "open", CurrentProject.Path & "\" & "B.mdb", "", "", 1
End Sub

 

قام بنشر

من الممكن استخدام هذا الكود من بعد اذن استاذ ابو خليل طبعاً 

لم افهم ماذا تقصد بالخاريجة لكن لو كانت على نفس الجهاز 

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

Dim appAccess As Access.Application
Set appAccess = New Access.Application
appAccess.OpenCurrentDatabase ("C:\Users\NAMEUSER\Desktop\أسم القاعدة.accdb")
appAccess.Visible = True
appAccess.UserControl = True
DoCmd.Quit

 

قام بنشر

 

السلام عليكم

ما أريده هو أن أقوم بفتح قاعدة بينانات B الموجودة في مسار معين (D:\test\B.mde) من خلال زر أمر في قاعدة البيانات A

لقد قمت بتجربة كود الاستاذ ابو خليل ولكن ظهرت لي مشكلة (صورة مرفقة)، كذلك قمت بتجربة كود الاستاذ Ahmed.IQ فظهرت لي رسالة خطأ في الكود appAccess.OpenCurrentDatabase ("D:\test\B.mde")

 

 

open external db.jpg

قام بنشر (معدل)

هل تريد اغلاق قاعدة البيانات A ام لا ؟

 

على العموم اخي الكريم تاكد فقط من اسم القاعدة والصيغة هل هيا mde فقط

Dim appAccess As Access.Application
Set appAccess = New Access.Application
appAccess.OpenCurrentDatabase ("D:\test\B.accdb")
appAccess.Visible = True
appAccess.UserControl = True
DoCmd.Quit

فقط انت عدل على الصيغة لانه الكود شغال 100% لدي سوف يقوم بفتح القاعدة الجديده وهيا B ويغلق A

فقط اعمل زر داخل القاعدة A وعند حدث عن الضغط ضع هذا الكود

تم تعديل بواسطه Ahmed.IQ
قام بنشر

السلام عليكم

الاستاذ Ahmed.IQ

لقد قمت بتجربة الكود الآخير وعند تنفيذه، تظهر رسالة خطأ، وقد قمت بالتأكد من أسم وامتداد الملف سواء كان mde أو mdb نفس المشكلة تظهر (صورة مرفقة).

أشكر تواصلك وتحياااتي

 

open external db2.jpg

قام بنشر (معدل)

اخي الكريم انت تستخدم اكسيس 2007 ؟

وحاول تغير اسم الملف الى 1 فقط وعدل على الكود 

 

تم تعديل بواسطه Ahmed.IQ
قام بنشر

هذا تطبيق  للكود اعلاه

تجد في الحدث  سطرين 

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

والثاني  لتشغيل القاعدة الثانية من اي مكان  وعليك فقط ضبط الامتداد ، وهو الآن غير مفعل

AB.rar

قام بنشر

شكراً جزيلاً لكل من الأستاذين ابو خليل و Ahmed.IQ

 

استاذ ابو خليل، طبقت مثالك وهو ما احتاجه.

 

تحياااتي

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information