اذهب الي المحتوي
أوفيسنا

meido666

عضو جديد 01
  • Posts

    5
  • تاريخ الانضمام

  • تاريخ اخر زياره

Community Answers

  1. 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 وتمنياتي بالتوفق
×
×
  • اضف...

Important Information