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

بدأه الفيلسوف111 في 24 مارس 2009 · 9 رد · 2,835 مشاهدة · في قسم أرشيف الحماية والامان

#124 مارس 2009 في 14:56 صاحب الموضوع

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

اخواني اخواتي الكرام اتمنى منكم التكرم بالاجابة اذا ما كنتم تعرفونها شاكرا لكم وللقائمين على هذا الموقع الرائد والرائع .

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

السؤال هو بعد بفتح القاعدة المحمية بكلمة مرور ما هو كود اغلاق القاعدة الحالية التي نفذ منها هذا الكود ؟

علما بان اذا فتحت القاعدة المحمية واردت اغلاق القاعدة التي نفذ منها الكود تغلق القاعدتين معا .

http://support.microsoft.com/kb/235422/ar

تحتاج إلى Microsoft DAO 3.6

Option Compare Database
Option Explicit

Sub OpenPasswordProtectedDB()

   '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
   strDbName = "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
   Set acc = New Access.Application
   acc.Visible = True
   Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=nwind")
   acc.OpenCurrentDatabase strDbName
   db.Close
   Set db = Nothing
End Sub

طارق العيد

#224 مارس 2009 في 15:11

الاستاذ الفاضل ايهاب عثمان اشكرك جزيل الشكر على سرعة الرد ولكن والله اعلم انك اجبت على سؤال غير هذا السؤال اعلاه

طارق العيد

#324 مارس 2009 في 15:25

عذراً اخي الكريم..

صدقت ...

ساحذف الرد من هنا واضعه في مكانه الصحيح

وانظر الى سؤالك ان شاء الله

تم تعديل هذه المشاركة بواسطة ايهاب عثمان في 24 مارس 2009 في 15:26

طبتم واهتديتم :)

===================================

إقرأ معي

رابط متجدد لكتاب أقرؤه فشاركني فيه

======

فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب

الكتاب :

حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار

اضغط على الصورة لتحميل الكتاب

-----------

كتب سابقة

سعد الدين الشاذلي - مذكرات حرب أكنتوبر

#424 مارس 2009 في 16:56

وهذا هو الحل ان شاء الله..

1 - في القاعدة الاصلية انشيء ماكرو وليكن باسم macro1

في ال Action قم باختيار الامر Close ولا تفعل اي شيء اخر سوى حفظ الماكرو

2- الان عدل اخر الكود ليصبح هكذا...

تم تعديل هذه المشاركة بواسطة ايهاب عثمان في 24 مارس 2009 في 17:04

طبتم واهتديتم :)

===================================

إقرأ معي

رابط متجدد لكتاب أقرؤه فشاركني فيه

======

الكتاب :

حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار

اضغط على الصورة لتحميل الكتاب

-----------

كتب سابقة

سعد الدين الشاذلي - مذكرات حرب أكنتوبر

#525 مارس 2009 في 14:03

الاستاذ الفاضل ايهاب عثمان اشكرك على هذه الاجابه واقدر لك هذا المجهود الملحوظ معي ومع الاعضاء الكرام ... ولكنك قصدت DoCmd.RunMacro

وليس

DoCmd.openMacro

وعلى الرغم من ذلك فان ال Action اختيار الامر Close لم يغلق القاعدة ولكن اغلاقها Quit وهذا هو المطلوب ولكن عندما تفتح القاعده المحمية ويظهر لك النموذج الافتتاحي هنا تبدأ مشكلة اخرى وهي اذا اغلقت النموذج الافتتاحي تغلق معه القاعدة ... ولقد ارفقت المثال ادناه ..كما اكرر شكري لك وللاعضاء الكرام .

Private Sub Command6_Click()
'Me.TimerInterval = 1000
'Me.MyTimer = 1
   '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
   strDbName = Trim(Me.PhotoFolder)
   Set acc = New Access.Application
   acc.Visible = True
   Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=1")
   acc.OpenCurrentDatabase strDbName
  ' DoCmd.RunMacro "YourMacro"
   'DoCmd.RunMacro "memacro"
   'acc.Quit
   db.Close
   Set db = Nothing
DoCmd.Quit
End Sub

PWD.rar

طارق العيد