meido666

الاخوة الافاضل هذا هو الكود الذي تم الاستفادة منه في فتح قاعدة بيانات اكسيس محمية بكلمة مرور Sub OpenDB() Dim db As DAO.Database Dim ws As DAO.WorkSpace Dim rst As DAO.Recordset Set ws = DBEngine.WorkSpaces(0) Set db = ws.OpenDatabase _ ("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _ False, False, "MS Access;PWD=northwind") Set rst = db.OpenRecordset("Customers", dbOpenDynaset) If rst.RecordCount > 0 Then rst.MoveLast MsgBox rst!CustomerID End If rst.Close db.Close End Sub وتمنياتي بالتوفق

الاخوة الأفاضل لقد قمت بالتعديل علي الكود كا هو موضح وفتحت مع قاعدة البيانات strPath = "E:\DADAD\ZAData.GGG" Dim BackObj As TableDef, BackDB As Database Set BackDB = DBEngine.Workspaces(0).OpenDatabase(strPath, True, False, "MS Access;PWD=7712")

لا اخي الفاضل انا مصمم هذه القاعدة ووضعت لها كلمة سر وعند الاتصال بالقاعده بالكود التالي Dim strPath As String strPath = "E:\DADAD\ZAData.GGG" تظهر رسال الخطأ not a valid password وشكرا

الاخوة الافاضل لدي قاعدة بيانات اكسيس مقسمة الي جزءين والقاعدة الثانية بها الجداول فقط اريد الاتصال بها وهي عليها كلمة مرور وهذا الكوود الذي اريد التعديل عليه "E:\DADAD\ZAData.GGG, PWD=7712" وشكرا لكم جميعاً

ألاخ أحمد السلام عليكم انا عندي استعداد لعمل هذا البرنامج فاذا اردت ذالك فبرجاء مراسلتي علي الاميل التالي meido666@yahoo.com