( تمت الفائدة ) - مطلوب كود أضع فيه مسار قاعدة بيانات ويفتحها

[sweety]

السلام عليكم

الأخوة والأخوات الكرام

أريد كود يفتح قاعدة بيانات معينة من خلال الضغط على زر أمر... أي بمجرد الضغط على الزر يقوم بفتح قاعدة بيانات أخرى.

(مثال): أنا اعمل على قاعدة بيانات معينة وفيها زر اذا قمت بالضغط عليه يقوم بفتح قاعدة بيانات مسارها D:\Test.mdb

شكراً جزيلاً لكم

تحياااتي

[محب العلم]

وعليكم السلام ورحمة الله وبركاته

كود

'قم بإنشاء وحدة نمطية وضع هذا الكود بها في جزء Declarations
Dim appAccess As Access.Application

Sub DisplayForm()

    Dim strDB as String

    'تعريف متغير إلى موقع دليل قاعدة البيانات
    Const strConPathToSamples = "D:\"

    strDB = strConPathToSamples & "Test.mdb"
    'تعريف القاعدة المحددة
    Set appAccess = _
        CreateObject("Access.Application")
    'فتح القاعدة المحددة
    appAccess.OpenCurrentDatabase strDB
    'فتح نموذج معين من القاعدة المحددة ولنقل اسمه f1
    appAccess.DoCmd.OpenForm "f1"
End Sub

أملا أن يحقق الكود أعلاه مطلبك

مع وافر الاحترام

تم تعديل أبريل 8, 2014 بواسطه أبا عمر

[sweety]

عزيزي محب العلم

تحية إليك وشكر على تجاوبك ومساعدتك.

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

إليك صورة توضيحية مرفقة.

تحيااااتي

[محب العلم]

السلام عليكم

هذه الأشارات أتت من المنتدى بالخطأ أحذفها

على كل الأحوال قمت بتعديل الكود في المشاركة السابقة ، إن أحببت تستطيع نقله مرة أخرى

مع الاحترام