بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
meido666
-
Posts
5 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
meido666's post in تعديل كود الاتصال بقاعدة البيانات اكسيس محمية بكلمة مرور was marked as the answer
الاخوة الافاضل
هذا هو الكود الذي تم الاستفادة منه في فتح قاعدة بيانات اكسيس محمية بكلمة مرور
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 وتمنياتي بالتوفق