الارتباط بقاعدة محمية بكلمة مرور (معدل)

[محمدعليعبدالباقي]

السلام عليكم ورحمة الله وبركاته لدى ملف اكسس وقمت بتقسيمه لملف واجهه وملف باك اند وقمت بوضع كلمة مرور للباك اند ولكن لم استطع الوصول الى اجدول

حيث تظهر  رسالة not valid password  

كلمة المرور 1 مثال مرفق شبيه لملف الاكسس  ومكان الباك اند جزر (D)

Desktop.rar

[ali2017]

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

 

اخي الكريم  احذف الجداول المرتبطة  واعد الارتباط  مرة اخرى 

 

مرفق     ضع  الجداول  ف   D

مرتبات.rar

[محمدعليعبدالباقي]

السلام عليكم اخي الكريم

لم افهم جيدا ما تفضلت به

كيف احذف الجداول ؟

هل احولها الى جداول محلية ثم اعيد التقسم من جديد ؟

ام ماذا ؟

ارجو التوضيح

[ابوخليل]

12 ساعات مضت, ali2017 said:

اخي الكريم  احذف الجداول المرتبطة  واعد الارتباط  مرة اخرى 

اخي محمد السطر اعلاه  واضح جدا  

احذف المرتبطة اللي هي موجودة في الواجهة الامامية

ثم اعمل ارتباط  من جديد  بالخلفية ( سيطالبك بكلمة المرور )

 

 

[بحار الاكسس]

اتفضل التعديل 

كلمة السر 11

تحياتى للجميع

Desktop.rar

[عبد الله قدور]

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
Dim strLinkName As String

strLinkName = strSourceTableName

strConnect = "MS Access;PWD=" & strPassword & _
    ";DATABASE=" & strBEPath
Debug.Print strConnect
Set db = CurrentDb
Set tdf = db.CreateTableDef
tdf.Connect = strConnect
tdf.SourceTableName = strSourceTableName
tdf.Name = strLinkName
db.TableDefs.Append tdf
Set tdf = Nothing
Set db = Nothing

End Function

يمكنك وضع هذا الكود في وحدة نمطية وتستدعيه بالكود التالي فيقوم بربط جدول واحد ويمكنك تكرار كود الاستدعاء لربط اكثر من جدول

Call CreateTableLink(data path, "table name", "password")

بحيث يكون data path  هو مسار قاعدة البيانات

و table name هو اسم الجدول المراد ربطه

و password هي كلمة مرور قاعدة البيانات

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