الفيلسوف111

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

10 ردود في هذا الموضوع

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

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

صدقت ...

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

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

تم تعديل بواسطه ايهاب عثمان
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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

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

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

post-36224-1237903454_thumb.jpg

تم تعديل بواسطه ايهاب عثمان
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

الاستاذ الفاضل ايهاب عثمان اشكرك على هذه الاجابه واقدر لك هذا المجهود الملحوظ معي ومع الاعضاء الكرام ... ولكنك قصدت 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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اشكر الاستاذ mrnooo على التجاوب وهذه الافكار الرائعه ولكن اعتقد انه يوجد حل افضل لأن الطريقتين لم تحل المشكله ولكن المشكلة قائمة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

كيف مازالت قائمة هل جربت المرفق

تم تعديل بواسطه mrnooo2000
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

نعم اخي الكريم فانك اخفيت فورم1 بهذا الكود

DoCmd.OpenForm "form1", acNormal, , , , acHidden

ولم تحل المشكله من جذورها اي مازل هناك نموذج نشط

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .