sweety قام بنشر أغسطس 17, 2016 قام بنشر أغسطس 17, 2016 السلام عليكم لدي قاعدتين بيانات A و B... اريد انشاء زر أمر (vba) في قاعدة البيانات A عند الضغط عليه، يقوم بفتح قاعدة البيانات B وهي قاعدة آخرى خارجية. مع جزيل الشكر تحياااتي
ابوخليل قام بنشر أغسطس 17, 2016 قام بنشر أغسطس 17, 2016 وعليكم السلام تفضل على اعتبار ان قاعدة البيانات 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
Ahmed.IQ قام بنشر أغسطس 17, 2016 قام بنشر أغسطس 17, 2016 من الممكن استخدام هذا الكود من بعد اذن استاذ ابو خليل طبعاً لم افهم ماذا تقصد بالخاريجة لكن لو كانت على نفس الجهاز هذا الامر يفتح القاعدة الجديده ويغلق القديمة ويمكن تعديله حسب اختيارك 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
sweety قام بنشر أغسطس 17, 2016 الكاتب قام بنشر أغسطس 17, 2016 السلام عليكم ما أريده هو أن أقوم بفتح قاعدة بينانات B الموجودة في مسار معين (D:\test\B.mde) من خلال زر أمر في قاعدة البيانات A لقد قمت بتجربة كود الاستاذ ابو خليل ولكن ظهرت لي مشكلة (صورة مرفقة)، كذلك قمت بتجربة كود الاستاذ Ahmed.IQ فظهرت لي رسالة خطأ في الكود appAccess.OpenCurrentDatabase ("D:\test\B.mde")
Ahmed.IQ قام بنشر أغسطس 17, 2016 قام بنشر أغسطس 17, 2016 (معدل) هل تريد اغلاق قاعدة البيانات 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 وعند حدث عن الضغط ضع هذا الكود تم تعديل أغسطس 17, 2016 بواسطه Ahmed.IQ
sweety قام بنشر أغسطس 18, 2016 الكاتب قام بنشر أغسطس 18, 2016 السلام عليكم الاستاذ Ahmed.IQ لقد قمت بتجربة الكود الآخير وعند تنفيذه، تظهر رسالة خطأ، وقد قمت بالتأكد من أسم وامتداد الملف سواء كان mde أو mdb نفس المشكلة تظهر (صورة مرفقة). أشكر تواصلك وتحياااتي
Ahmed.IQ قام بنشر أغسطس 18, 2016 قام بنشر أغسطس 18, 2016 (معدل) اخي الكريم انت تستخدم اكسيس 2007 ؟ وحاول تغير اسم الملف الى 1 فقط وعدل على الكود تم تعديل أغسطس 18, 2016 بواسطه Ahmed.IQ
ابوخليل قام بنشر أغسطس 18, 2016 قام بنشر أغسطس 18, 2016 هذا تطبيق للكود اعلاه تجد في الحدث سطرين واحد لتشغيل القاعدة الثانية حين تكون بجانب الاولى وهو المفعل الآن والثاني لتشغيل القاعدة الثانية من اي مكان وعليك فقط ضبط الامتداد ، وهو الآن غير مفعل AB.rar
sweety قام بنشر أغسطس 18, 2016 الكاتب قام بنشر أغسطس 18, 2016 شكراً جزيلاً لكل من الأستاذين ابو خليل و 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.