فتح قاعدة بيانات من خلال قاعدة اخرى

اخى الكريم

ضع هذا الكود فى النموذج

Const SW_SHOWNORMAL As Long = 1

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

Function ExecuteFile(fileName As String)
  ShellExecute 0, "Open", fileName, vbNullString, "", SW_SHOWNORMAL
End Function

و فى كود زر المر ضع الاتى

ExecuteFile fileName

حيث fileName هو اسم قاعدة البيانات كاملا

مثل

ExecuteFile "c:\folder\db.mdb"

جزاك الله خيرا اخي ابو يوسف

قمت بتطبيق الاكواد وتمام اشتغلت

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

وبارك الله فيك

استخدم هذا الكود فى حدث الزر

و عدل المسار الى ما لديك

Dim MyFile, MyPath, MyName
MyFile = Dir(CurrentProject.Path & "\1.mdb")
If Len(MyFile) = 0 Then
MsgBox "الملف غير موجود"
Else
ExecuteFile CurrentProject.Path & "\1.mdb"
End If

جربت الكود ولكن اعطني رسالة

Bad File Name or Number

والخطا عند السطر التلاي

MyFile = Dir(CurrentProject.Path & "E:\test\tt.mdb")

اخى الكريم ضع المسار مباشرة هكذا

MyFile = Dir( "E:\test\tt.mdb")

اخي اشكرك معلش عذبتك معي

بعد ما عملت الكود واشتغل تمام وحفظ وقمت باغلاق القاعدة وعند فتحها مره اخرى عند الضغط على الزر تعطيني هذه الرسال

module not found

ولا استطيع فتح محرر الاكواد للتعديل فيه

مرفق القاعدة للتجربة

وشكرا

test.zip

لا اعلم الخطأ عندك

و لكن واضح ان النموذج اصابه العطب

عموما اليك المثال بعد التعديل

مع اضافة مربع نص لكتابة المسار بدون التعديل فى الكود

test.rar

جزاك الله خيرا