مطلوب زر يقوم بفتح قاعدة بيانات اخري بنفس الفولدر الموجود به القاعدة الاساسية

[محمود _ المصري]

السلام عليكم ورحمة الله وبركاتة 
اولا : اود ان اشكر جميع القائمين علي هذا المنتدي الاكثر من رائع 
ثانيا : كل ما اطلبة هو ان لدي قاعدة بيانات اساسية تسمي ASASE  بداخل فولدر يسمي DATA
ويوجد قاعدين اخري تسمي A , B  والمطلوب كما هو موضح بالصورة 

DATA.rar

تم تعديل يناير 30, 2025 بواسطه محمود _ المصري

[Foksh]

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

تفضل يا صديقي :-

Private Function OpenDatabaseAndQuit(dbName As String)
    Dim currentPath As String
    Dim dbPath As String
    
    currentPath = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\"))
    dbPath = currentPath & dbName & ".mdb"
    Shell "cmd /c start " & dbPath, vbHide
    Application.Quit
End Function

Private Sub أمر22_Click()
    OpenDatabaseAndQuit "A"
End Sub

Private Sub أمر3_Click()
    OpenDatabaseAndQuit "B"
End Sub

 

الملف بعد التعديل 

Data.zip

[محمود _ المصري]

عاجز عن الشكر اخي FOKSH🏆 

 

تم تعديل يناير 30, 2025 بواسطه محمود _ المصري

[Foksh]

ولا يهمك أخي الكريم .. تستحق أكثر من غيرك 

[محمود _ المصري]

ولكني حين انقل قواعد البيانات في اي مكان اخر لم يقوم بتنفيذ الامر

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

واسف للاطالة

تم تعديل يناير 30, 2025 بواسطه محمود _ المصري

[Foksh]

أخي الكريم ، المسميات العربية تسبب لك الكثير من المشاكل ، وخصوصاً التي تكون من مقطعين 

[محمود _ المصري]

صحيح شكرا لك اخي الكريم علي تفاعلك الرائع