اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

رابط هذا التعليق
شارك

اخى الحبيب

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

 

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

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

للعلم

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

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

 

رابط هذا التعليق
شارك

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

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

:blink:

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

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

رابط هذا التعليق
شارك

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information