نموذج الاتصال بالجداول الخلفية المحمية بكلمة سر

[eng aoff]

السلام عليكم اخواني الاعزاء

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

تحياتي واسف ع الاطالة

[صالح حمادي]

السلام عليكم

ضع هذا الكود في وحدة نمطية 

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

و ضع هذا الكود خلف زر أمر الإرتباط

Dim BackFile As String
Dim table_name As String
Dim Password As String

' حذف الجداول المرتبطة الموجودة بقاعدة البيانات (الامامية

Dim FrontObj As AccessObject, FrontDB As Object
Set FrontDB = Application.CurrentData

For Each FrontObj In FrontDB.AllTables
If Left(FrontObj.Name, 4) <> "MSys" Then
DoCmd.DeleteObject acTable, FrontObj.Name
End If
Next FrontObj
Set FrontDB = Nothing

'إعادة الإرتباط

Password = "1988"        ' كلمة سر قاعدة البيانات

BackFile = CurrentProject.Path & "\DB.accdb"   'مسار القاعدة المراد الإرتباط بها

Dim BackObj As TableDef
Dim BackDB As Object
Set BackDB = DBEngine.Workspaces(0).OpenDatabase(BackFile, True, False, "MS Access;PWD=" & Password & ";DATABASE=" & CurrentProject.Path & "\DB.accdb")

For Each BackObj In BackDB.TableDefs
    If Left(BackObj.Name, 4) <> "MSys" Then
       table_name = BackObj.Name
       Call CreateTableLink(CurrentProject.Path & "\DB.accdb", table_name, Password)
    End If
Next BackObj
Set BackDB = Nothing

و هذا مثال على ذلك

 

الارتباط بقاعدة بيانات محمية.rar

[eng aoff]

عاشت ايدك استاذ ولكن الطريقة لم تعمل على بيئة شبكة 

[ابو جودي]

اخى الحبيب

وبعد اذن استاذنا الجميل الاستاذ المبجل استاذ @صالح حمادي

 

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

قم بتحميلها على موقع https://www.mediafire.com/
ورجاء ارسل لى رسالة برابط تحميلها

للعلم

انا طلبت هذا منك من قبل فى الموضوع 

ولكن لم اتلقى اى ردود من اصحاب المشكلة وكنت انت منهم استاذى الفاضل

 

[eng aoff]

اشكرك اخي العزيز ابا جودي ربي يحفظك اعتذر لم ارد على موضوعك السابق ولكن اشتغلت عندي 100% بارك الله بيك

[ابو جودي]

5 دقائق مضت, eng aoff jadaan said:

اشكرك اخي العزيز ابا جودي ربي يحفظك اعتذر لم ارد على موضوعك السابق ولكن اشتغلت عندي 100% بارك الله بيك

انا مش فاهم ازاى اشتغلت 100% وقبل كدة كنت تشتكى من وجود مشكله

هههههههههههههه يبدو انها بركات شهر رمضان

[eng aoff]

هههههههههههههههههههههههههههههه الحمدلله على رمضان ولكن كانت تظهر اخطاء بسبب كودات برمجية غير مهمة وقمت بحذفها واشتغلت والحمدلله

[ابو جودي]

12 دقائق مضت, eng aoff jadaan said:

هههههههههههههههههههههههههههههه الحمدلله على رمضان ولكن كانت تظهر اخطاء بسبب كودات برمجية غير مهمة وقمت بحذفها واشتغلت والحمدلله

كودات برمجية غير مهمة

 

هل يمكنك اطلاعى على القاعدة بعد التعديل ان تكرمت 

[eng aoff]

اعتذر من حضرتك استاذي العزيز ابا جودي ممكن على غدا ان شاء الله اعطيك نسخة لان السيرفر لم يتوفر لدي حاليا بكرا باذن الله سوف ارسل لحضرتك 

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

[ابو جودي]

استوقفتنى هذه الكلمات

كودات برمجية غير مهمة

لذلك طلبت التعديل للاطلاع عليه لان هذا المرفق اخذ وقت وجهد كبيرين وقمت بالتجربة مرار وتكرار ولم تصادفنى مشكلة فأحببت ان اتعلم منكم ما فاتنى ولم يهدنى الله اليه وكنت فيه مقصرا
اما اذا لم تكن المشكلة فى الاكواد تخص ما قدمته انا فجزاكم الله خيرا