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

بدأه يماني اصيل في 15 أكتوبر 2011 · 2 رد · 1,512 مشاهدة · في قواعد بيانات Microsoft Access

#115 أكتوبر 2011 في 14:01 صاحب الموضوع

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

اريد أن أفتحها بواسطة كود موجود في قاعدة بيانات A

عندي كود يقوم بالمهمة بس عند اغلاق القاعدة A تنغلق القاعدة B فوراً

الكود الذي معي:

Dim strAccessExe As String, strDB As String
  'Define as Static so the instance of Access
  'doesn't close when the procedure ends.
  Static acc As Access.Application
  Dim db As DAO.Database
  Dim strDbName As String
'The path and filename of the DB to open.
  strDbName = CurrentProject.Path & "\ÇáæÇÌåÇÊ.mdb"
  Set acc = New Access.Application
  acc.Visible = True
  Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123")
  acc.OpenCurrentDatabase strDbName
  acc.RunCommand acCmdAppMaximize
  db.Close
  Set db = Nothing

وكما أسلفت، هذا الكود يفتح القاعدة الثانية صحيح بس تكون مربوطة بالقاعدة الأولى، وعند اغلاقها تغلق القاعدة الثانية..

والمطلوب: كود يفتح القاعدة الثانية المحمية بكلمة مرور، بواسطة القاعدة الأولى واغلاق القاعدة الأولى بدون أن تغلق القاعدة الثانية

ارجو ان اكون قد اوضحت السؤال

#215 أكتوبر 2011 في 22:43

اخي الفاضل

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

تفضل هذا الكود بناء على طلبك بحيث يتم فتح القاعدة الثانية المحمية من القاعدة الأولى ويتم اغلاق القاعدة الأولى بعد فتح القاعدة الثانية بدون ان يتم اغلاقها فقط يتم اغلاق القاعدة الأولى .

Dim acc As Access.Application

    Dim db As DAO.Database
    Dim strDbName, strMeName As String

    strDbName = "YourDBwithFullPath"

    Set acc = New Access.Application
    With acc 
        .Visible = True
        Set db = .DBEngine.OpenDatabase(strDbName, False, False, ";PWD="YourPassword")
        .OpenCurrentDatabase strDbName
        .UserControl = True
    End With

    db.Close
    Set db = Nothing  
    Set acc = Nothing
    Application.Quit

اما اذا رغبت في تطبيق جاهز بدون ان تتعب نفسك بالأكواد فإليك هذا الملف الذي تدخل فيه مسار قاعدة البيانات الثانية وتضع الرقم السري في مربعات النص وبعد ذلك تضغط على زر الأمر ( فتح القاعدة الخارجية )