(تمت الاجابة) كود فتح قاعدة بيانات B محمية بكلمة مرور بواسطة نموذج موجودة بقاعدة بيانات A

[عبيدالله]

لدي كود يفتح قاعدة بيانات B محمية بكلمة مرور بواسطة قاعدة البيانات A

بس هذا الكود يعمل على ربط القاعدة القاعدتين، فإذا تم اغلاق الملف A يغلق الملف B مباشرة

والمطلوب فتح القاعدة B المحمية بكلمة مرور ثم اغلاق القاعدة A بدون أن يغلق القاعدة B

والكود

Dim strAccessExe As String, strDB As String

  Static acc As Access.Application

  Dim db As DAO.Database

  Dim strDbName As String

  strDbName = CurrentProject.Path & "\Forms.mdb"

  Set acc = New Access.Application

  acc.Visible = True

  Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123")

  acc.OpenCurrentDatabase strDbName

  acc.RunCommand acCmdAppMinimize

  db.Close

  Set db = Nothing

الرجاء المساااعدة للضرورة القصوى

[ابوخليل]

يتم اغلاق القاعدة A مباشرة بمجرد فتح B فيصبح الكود هكذا

Dim strAccessExe As String, strDB As String

  Static acc As Access.Application

  Dim db As DAO.Database

  Dim strDbName As String

  strDbName = CurrentProject.Path & "\Forms.mdb"

  Set acc = New Access.Application

  acc.Visible = True

  Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123")

  acc.OpenCurrentDatabase strDbName

  acc.RunCommand acCmdAppMinimize

  db.Close

  Set db = Nothing

DoCmd.Quit

[عبيدالله]

بارك الله فيك

بس

الكود الذي ذكرت في مشاركتك هو نفس الكود الذي انا جبته والذي انا اشكو منه..

الكود هذا يقوم بعمل ربط بين الملف A والملف B فإذا اغلق الملف A يغلق B تلقائياً..

والمطلوب أن يغلق A دون أن يغلق B

اتمنى ان يكون طلبي قد اتضح

[ابوخليل]

بالطبع هو الكود نفسه

وقد قمت بتجربته قبل ان اجيبك

وهذا مثال شغال %

open.rar

[عبيدالله]

صحيح استاذي ابو خليل

الكود يعمل جيداً

ولا أدري لماذا لم يكن يعمل معي في المرة السابقة؟؟؟؟

كان يعندما اغلق قاعدة البيانات A تنغلق قاعدة البيانات B مباشرة..

الشكر موصول لأبو خليل وجميع اعضاء المنتدى الرائع